From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 7 Jul 2007 20:46:39 +0000 (+0000)
Subject: (vc-annotate): Jump to line and output message only after the
X-Git-Tag: emacs-pretest-23.0.90~12018
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cd42ec7d9b0d8538a4b7339e57d794f897a77b0a;p=emacs.git

(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 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.