(vc-fetch-properties): Add save-excursion.

ee526b55 · Richard M. Stallman · 6fbcbee7 · ee526b55
Commit ee526b55 authored Jun 20, 1995 by Richard M. Stallman
Show whitespace changes
Inline Side-by-side

Showing with 11 additions and 10 deletions

lisp/vc-hooks.el lisp/vc-hooks.el +11 -10

No files found.
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -572,6 +572,7 @@ value of this flag.")
  ;; if that wasn't already done.
  (cond
   ((eq (vc-backend file) 'RCS)
+    (save-excursion
      (set-buffer (get-buffer-create "*vc-info*"))
      (vc-insert-file (vc-name file) "^desc")
      (vc-parse-buffer 
@@ -581,7 +582,7 @@ value of this flag.")
 			   "author[ \t]+"
 			   (regexp-quote (user-login-name)) ";") 1 2))
       file
-     '(vc-latest-version vc-your-latest-version)))
+       '(vc-latest-version vc-your-latest-version))))
   (t (vc-fetch-master-properties file))
   ))