(vc-annotate): Fix omission bug:

Specify value for vc-sentinel-movepoint.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b0c98ddb290c6a5cf91c73af5fdb5e70721160ef..43656726e3ca513dd5eb17e60ed28bbd15d5a260 100644 (file)
--- 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 be6e8c5883bab72e7b90a413d5170fe8145ea27a..1bc6aac856d81419d335209534a4863ed967de0e 100644 (file)
--- 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")))))))