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

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index e14d4c2cea0742a2a8c57f1d491894072f0b0e38..39f94df20a819df0fbc3279c20d22f18376f381a 100644 (file)
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -572,16 +572,17 @@ value of this flag.")
   ;; 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))
    ))