diff lisp/vc.el @ 81740:8c6a9f107a7e

(vc-annotate): Jump to line and output message only after the process is really all done.

--- a/lisp/vc.el	Sat Jul 07 20:37:19 2007 +0000
+++ b/lisp/vc.el	Sat Jul 07 20:46:39 2007 +0000
@@ -3209,9 +3209,13 @@
         (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.