Mercurial > emacs
comparison lisp/vc.el @ 10786:353416feba10
(vc-log-info): Don't switch to the *vc* buffer before running
vc-do-command, because that would change its default-directory.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Mon, 20 Feb 1995 09:39:26 +0000 |
| parents | 380605821cc9 |
| children | b905092475a7 |
comparison
equal
deleted
inserted
replaced
| 10785:f3a45c2e57c2 | 10786:353416feba10 |
|---|---|
| 1506 | 1506 |
| 1507 (defun vc-log-info (command file last flags patterns &optional properties) | 1507 (defun vc-log-info (command file last flags patterns &optional properties) |
| 1508 ;; Search for information in log program output | 1508 ;; Search for information in log program output |
| 1509 (if (and file (file-exists-p file)) | 1509 (if (and file (file-exists-p file)) |
| 1510 (save-excursion | 1510 (save-excursion |
| 1511 (set-buffer (get-buffer-create "*vc*")) | 1511 ;; Don't switch to the *vc* buffer before running vc-do-command, |
| 1512 ;; because that would change its default-directory. | |
| 1512 (apply 'vc-do-command 0 command file last flags) | 1513 (apply 'vc-do-command 0 command file last flags) |
| 1514 (set-buffer (get-buffer "*vc*")) | |
| 1513 (set-buffer-modified-p nil) | 1515 (set-buffer-modified-p nil) |
| 1514 (prog1 | 1516 (prog1 |
| 1515 (vc-parse-buffer patterns file properties) | 1517 (vc-parse-buffer patterns file properties) |
| 1516 (kill-buffer (current-buffer)) | 1518 (kill-buffer (current-buffer)) |
| 1517 ) | 1519 ) |