Mercurial > emacs

changeset 12330:2e2af003b9c5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-fetch-properties): Add save-excursion.
author Richard M. Stallman <rms@gnu.org>
date Tue, 20 Jun 1995 02:56:43 +0000
parents e97b20222345
children 444c5079cb22
files lisp/vc-hooks.el
diffstat 1 files changed, 11 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- 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))
    ))