Mercurial > emacs
changeset 81740:8c6a9f107a7e
(vc-annotate): Jump to line and output message only after the
process is really all done.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 07 Jul 2007 20:46:39 +0000 |
| parents | 3651af36c6b6 |
| children | d40120fec750 |
| files | lisp/ChangeLog lisp/vc.el |
| diffstat | 2 files changed, 12 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Jul 07 20:37:19 2007 +0000 +++ b/lisp/ChangeLog Sat Jul 07 20:46:39 2007 +0000 @@ -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.
--- 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.