[Emacs-diffs] emacs/lisp vc-annotate.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/03/10 00:59:10

Modified files:
        lisp           : vc-annotate.el 

Log message:
        (vc-annotate): Use widened line number (Bug#2612).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-annotate.el?cvsroot=emacs&r1=1.7&r2=1.8

Patches:
Index: vc-annotate.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-annotate.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- vc-annotate.el      5 Jan 2009 03:19:51 -0000       1.7
+++ vc-annotate.el      10 Mar 2009 00:59:09 -0000      1.8
@@ -362,7 +362,10 @@
          ;; If BUF is specified, we presume the caller maintains current line,
          ;; so we don't need to do it here.  This implementation may give
          ;; strange results occasionally in the case of REV != WORKFILE-REV.
-         (current-line (or move-point-to (unless buf (line-number-at-pos)))))
+         (current-line (or move-point-to (unless buf
+                                          (save-restriction
+                                            (widen)
+                                            (line-number-at-pos))))))
     (message "Annotating...")
     ;; If BUF is specified it tells in which buffer we should put the
     ;; annotations.  This is used when switching annotations to another