From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 20 Jun 1995 02:56:43 +0000 (+0000)
Subject: (vc-fetch-properties): Add save-excursion.
X-Git-Tag: emacs-19.34~3529
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ee526b55523e49d76e8f9a420217bb466dd1ffbd;p=emacs.git

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

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index e14d4c2cea0..39f94df20a8 100644
--- 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))
    ))