(vc-annotate): Fix omission bug:

Specify value for vc-sentinel-movepoint.

2 files changed, 10 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b0c98ddb290..43656726e3c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-30  Thien-Thi Nguyen  <ttn@gnuvola.org>
+
+        * vc.el (vc-annotate): Fix omission bug:
+        Specify value for vc-sentinel-movepoint.
+
 2007-10-30  Tassilo Horn  <tassilo@member.fsf.org>
 
         * doc-view.el: Remove cl-dependency.
@@ -737,13 +742,13 @@
 
 2007-10-22  Bastien Guerry  <Bastien.Guerry@ens.fr>
 
-        * org-export-latex.el (org-export-latex-protect-string): 
+        * org-export-latex.el (org-export-latex-protect-string):
         Renaming of `org-latex-protect'.
-        (org-export-latex-emphasis-alist): By default, don't protect 
+        (org-export-latex-emphasis-alist): By default, don't protect
         any emphasis formatter from further conversion.
         (org-export-latex-tables): honor column grouping for tables.
         (org-export-latex-title-command): New option.
-        (org-export-latex-treat-backslash-char): Use \textbackslash{} to 
+        (org-export-latex-treat-backslash-char): Use \textbackslash{} to
         export backslash character.
 
 2007-10-22  Carsten Dominik  <dominik@science.uva.nl>
diff --git a/lisp/vc.el b/lisp/vc.el
index be6e8c5883b..1bc6aac856d 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1286,7 +1286,7 @@ Otherwise, throw an error."
            (message "All version-controlled files below %s selected."
                     default-directory)
            (list default-directory)))
-        ((and allow-unregistered (not (vc-registered buffer-file-name))) 
+        ((and allow-unregistered (not (vc-registered buffer-file-name)))
          (list buffer-file-name))
         (t (error "No fileset is available here."))))
 
@@ -3324,7 +3324,7 @@ mode-specific menu.  `vc-annotate-color-map' and
           ;; of the user's cursor :-(
           (when ,current-line           ;(and (bobp))
             (goto-line ,current-line)
-            (setq vc-sentinel-movepoint))
+            (setq vc-sentinel-movepoint (point)))
           (unless (active-minibuffer-window)
             (message "Annotating... done")))))))