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

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

parent 6fbcbee7
......@@ -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))
))
......
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