diff options
| author | Richard M. Stallman | 1995-06-20 02:56:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-06-20 02:56:43 +0000 |
| commit | ee526b55523e49d76e8f9a420217bb466dd1ffbd (patch) | |
| tree | 13536a45319f1b616dac9c39ff46f6bb42fed85a | |
| parent | 6fbcbee7e5224974ddc1bce70b84c0233de7a5f8 (diff) | |
| download | emacs-ee526b55523e49d76e8f9a420217bb466dd1ffbd.tar.gz emacs-ee526b55523e49d76e8f9a420217bb466dd1ffbd.zip | |
(vc-fetch-properties): Add save-excursion.
| -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.") | |||
| 572 | ;; if that wasn't already done. | 572 | ;; if that wasn't already done. |
| 573 | (cond | 573 | (cond |
| 574 | ((eq (vc-backend file) 'RCS) | 574 | ((eq (vc-backend file) 'RCS) |
| 575 | (set-buffer (get-buffer-create "*vc-info*")) | 575 | (save-excursion |
| 576 | (vc-insert-file (vc-name file) "^desc") | 576 | (set-buffer (get-buffer-create "*vc-info*")) |
| 577 | (vc-parse-buffer | 577 | (vc-insert-file (vc-name file) "^desc") |
| 578 | (list '("^\\([0-9]+\\.[0-9.]+\\)\ndate[ \t]+\\([0-9.]+\\);" 1 2) | 578 | (vc-parse-buffer |
| 579 | (list (concat "^\\([0-9]+\\.[0-9.]+\\)\n" | 579 | (list '("^\\([0-9]+\\.[0-9.]+\\)\ndate[ \t]+\\([0-9.]+\\);" 1 2) |
| 580 | "date[ \t]+\\([0-9.]+\\);[ \t]+" | 580 | (list (concat "^\\([0-9]+\\.[0-9.]+\\)\n" |
| 581 | "author[ \t]+" | 581 | "date[ \t]+\\([0-9.]+\\);[ \t]+" |
| 582 | (regexp-quote (user-login-name)) ";") 1 2)) | 582 | "author[ \t]+" |
| 583 | file | 583 | (regexp-quote (user-login-name)) ";") 1 2)) |
| 584 | '(vc-latest-version vc-your-latest-version))) | 584 | file |
| 585 | '(vc-latest-version vc-your-latest-version)))) | ||
| 585 | (t (vc-fetch-master-properties file)) | 586 | (t (vc-fetch-master-properties file)) |
| 586 | )) | 587 | )) |
| 587 | 588 | ||