Mercurial > emacs
diff lisp/vc-hooks.el @ 12330:2e2af003b9c5
(vc-fetch-properties): Add save-excursion.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 20 Jun 1995 02:56:43 +0000 |
parents | 2a02456ddc4b |
children | 6da25b126f03 |
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)) ))