From cd42ec7d9b0d8538a4b7339e57d794f897a77b0a Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 7 Jul 2007 20:46:39 +0000 Subject: [PATCH] (vc-annotate): Jump to line and output message only after the process is really all done. --- lisp/ChangeLog | 5 +++++ lisp/vc.el | 10 +++++++--- 2 files changed, 12 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bf45b3524f4..b77f7609620 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-07-07 Tom Tromey + + * vc.el (vc-annotate): Jump to line and output message only after the + process is really all done. + 2007-07-07 Stefan Monnier * vc.el (vc-exec-after): Don't move point from the sentinel. diff --git a/lisp/vc.el b/lisp/vc.el index 8342a86a4f7..04efe7fc2f0 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -3209,9 +3209,13 @@ colors. `vc-annotate-background' specifies the background color." (set (make-local-variable 'vc-annotate-parent-rev) rev) (set (make-local-variable 'vc-annotate-parent-display-mode) display-mode))) - (when current-line - (goto-line current-line temp-buffer-name)) - (message "Annotating... done"))) + + (vc-exec-after + `(progn + (when ,current-line + (goto-line ,current-line ,temp-buffer-name)) + (unless (active-minibuffer-window) + (message "Annotating... done")))))) (defun vc-annotate-prev-version (prefix) "Visit the annotation of the version previous to this one. -- 2.39.5