From ee526b55523e49d76e8f9a420217bb466dd1ffbd Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 20 Jun 1995 02:56:43 +0000 Subject: [PATCH] (vc-fetch-properties): Add save-excursion. --- lisp/vc-hooks.el | 21 +++++++++++---------- 1 file 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)) )) -- 2.39.2