Commit ee526b55 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 6fbcbee7
......@@ -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))
))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment