[Emacs-diffs] emacs/lisp ChangeLog vc-rcs.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/11/16 14:41:08

Modified files:
        lisp           : ChangeLog vc-rcs.el 

Log message:
        (vc-rcs-consult-headers): Add missing save-excursion.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16645&r2=1.16646
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-rcs.el?cvsroot=emacs&r1=1.97&r2=1.98

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16645
retrieving revision 1.16646
diff -u -b -r1.16645 -r1.16646
--- ChangeLog   16 Nov 2009 14:25:43 -0000      1.16645
+++ ChangeLog   16 Nov 2009 14:41:05 -0000      1.16646
@@ -1,3 +1,7 @@
+2009-11-16  Stefan Monnier  <address@hidden>
+
+       * vc-rcs.el (vc-rcs-consult-headers): Add missing save-excursion.
+
 2009-11-16  Michael Albinus  <address@hidden>
 
        * net/dbus.el (dbus-unregister-service): New defun.
@@ -25,8 +29,8 @@
 
        * calc/calc-aent.el (math-read-token): Read complement signed numbers.
 
-       * calc/calc-embed.el (calc-embedded-mode-vars): Add
-       `calc-complement-signed-mode' to the list of modes.
+       * calc/calc-embed.el (calc-embedded-mode-vars):
+       Add `calc-complement-signed-mode' to the list of modes.
 
        * calc/calc-map.el (calc-get-operator): Add `calc-symclip'.
         (calc-b-oper-keys): Add `calc-symclip' to list.
@@ -40,8 +44,7 @@
        `calc-symclip'.
         (calc-modes-menu): Add item for twos complement mode.
 
-       * calc/calc-help.el (calc-b-prefix-help):  Add help for
-       `calc-symclip'.
+       * calc/calc-help.el (calc-b-prefix-help):  Add help for `calc-symclip'.
 
 2009-11-15  Chong Yidong  <address@hidden>
 

Index: vc-rcs.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-rcs.el,v
retrieving revision 1.97
retrieving revision 1.98
diff -u -b -r1.97 -r1.98
--- vc-rcs.el   15 Nov 2009 20:29:02 -0000      1.97
+++ vc-rcs.el   16 Nov 2009 14:41:08 -0000      1.98
@@ -1056,6 +1056,7 @@
    ((not (get-file-buffer file)) nil)
    ((let (status version locking-user)
       (with-current-buffer (get-file-buffer file)
+        (save-excursion
         (goto-char (point-min))
         (cond
          ;; search for $Id or $Header
@@ -1112,7 +1113,7 @@
             (setq status 'rev)))
          ;; else: nothing found
          ;; -------------------
-         (t nil)))
+           (t nil))))
      (if status (vc-file-setprop file 'vc-working-revision version))
      (and (eq status 'rev-and-lock)
          (vc-file-setprop file 'vc-state