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

process is really all done.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bf45b3524f47129c5796a59e4b7e2b0dc1b3bfb9..b77f76096202863a73da48f69f4e8406ef312a04 100644 (file)
--- 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 8342a86a4f7c40354b27600d6933a22fb10c4f60..04efe7fc2f078bc2cd8beeac9ae343835e705941 100644 (file)
--- 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.