# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 803617003 0
# Node ID 2e2af003b9c5823d78705d8dce65a8c0a1a4f7d9
# Parent  e97b202223456c3951bc9009e1d6374cb460e1b9
(vc-fetch-properties): Add save-excursion.

diff -r e97b20222345 -r 2e2af003b9c5 lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Tue Jun 20 02:53:59 1995 +0000
+++ b/lisp/vc-hooks.el	Tue Jun 20 02:56:43 1995 +0000
@@ -572,16 +572,17 @@
   ;; if that wasn't already done.
   (cond
    ((eq (vc-backend file) 'RCS)
-    (set-buffer (get-buffer-create "*vc-info*"))
-    (vc-insert-file (vc-name file) "^desc")
-    (vc-parse-buffer 
-     (list '("^\\([0-9]+\\.[0-9.]+\\)\ndate[ \t]+\\([0-9.]+\\);" 1 2)
-	   (list (concat "^\\([0-9]+\\.[0-9.]+\\)\n"
-			 "date[ \t]+\\([0-9.]+\\);[ \t]+"
-			 "author[ \t]+"
-			 (regexp-quote (user-login-name)) ";") 1 2))
-     file
-     '(vc-latest-version vc-your-latest-version)))
+    (save-excursion
+      (set-buffer (get-buffer-create "*vc-info*"))
+      (vc-insert-file (vc-name file) "^desc")
+      (vc-parse-buffer 
+       (list '("^\\([0-9]+\\.[0-9.]+\\)\ndate[ \t]+\\([0-9.]+\\);" 1 2)
+	     (list (concat "^\\([0-9]+\\.[0-9.]+\\)\n"
+			   "date[ \t]+\\([0-9.]+\\);[ \t]+"
+			   "author[ \t]+"
+			   (regexp-quote (user-login-name)) ";") 1 2))
+       file
+       '(vc-latest-version vc-your-latest-version))))
    (t (vc-fetch-master-properties file))
    ))