diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-06-20 02:56:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-06-20 02:56:43 +0000 |
| commit | 4be476462b8c36a657aeba6b2ba63829167aa80f (patch) | |
| tree | 99ec3a539e0778cb8b5a6e5e874804cbb7899f72 /lisp/vc-hooks.el | |
| parent | e5cfc492a5565bf178ede65058f86c30daabbcaa (diff) | |
| download | emacs-4be476462b8c36a657aeba6b2ba63829167aa80f.tar.gz | |
(vc-fetch-properties): Add save-excursion.
Diffstat (limited to 'lisp/vc-hooks.el')
| -rw-r--r-- | lisp/vc-hooks.el | 21 |
1 files changed, 11 insertions, 10 deletions
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)) )) |