From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Tue, 30 Oct 2007 12:44:24 +0000 (+0000)
Subject: (vc-annotate): Fix omission bug:
X-Git-Tag: emacs-pretest-23.0.90~9957
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=01823b77a288cda7d190db3c4ed5e35392ced790;p=emacs.git

(vc-annotate): Fix omission bug:
Specify value for vc-sentinel-movepoint.
---

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")))))))