(vc-annotate): Jump to line and output message only after the

process is really all done.

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  <tromey@redhat.com>
+
+        * vc.el (vc-annotate): Jump to line and output message only after the
+        process is really all done.
+
 2007-07-07  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * 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.