diff options
| author | Richard M. Stallman | 1993-06-28 00:56:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-06-28 00:56:54 +0000 |
| commit | 41dfb835db8a0c12fb7a03d484b8c7a9a7335f24 (patch) | |
| tree | 24f3ce466cd63e2a19545a3b0e55f45fb23a7879 | |
| parent | d05b18831af098aad23760daa2782135d13a9b27 (diff) | |
| download | emacs-41dfb835db8a0c12fb7a03d484b8c7a9a7335f24.tar.gz emacs-41dfb835db8a0c12fb7a03d484b8c7a9a7335f24.zip | |
(vc-update-change-log): Restore previous default-directory
for running rcs2log.
| -rw-r--r-- | lisp/vc.el | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index b48e3bf07d4..27490df9b9d 100644 --- a/lisp/vc.el +++ b/lisp/vc.el | |||
| @@ -1129,16 +1129,18 @@ From a program, any arguments are passed to the `rcs2log' script." | |||
| 1129 | (setq files (cons (file-relative-name file) files))) | 1129 | (setq files (cons (file-relative-name file) files))) |
| 1130 | (setq buffers (cdr buffers))) | 1130 | (setq buffers (cdr buffers))) |
| 1131 | files)))) | 1131 | files)))) |
| 1132 | (find-file-other-window (find-change-log)) | 1132 | (let ((odefault default-directory)) |
| 1133 | (barf-if-buffer-read-only) | 1133 | (find-file-other-window (find-change-log)) |
| 1134 | (vc-buffer-sync) | 1134 | (barf-if-buffer-read-only) |
| 1135 | (undo-boundary) | 1135 | (vc-buffer-sync) |
| 1136 | (goto-char (point-min)) | 1136 | (undo-boundary) |
| 1137 | (push-mark) | 1137 | (goto-char (point-min)) |
| 1138 | (message "Computing change log entries...") | 1138 | (push-mark) |
| 1139 | (message "Computing change log entries... %s" | 1139 | (message "Computing change log entries...") |
| 1140 | (if (eq 0 (apply 'call-process "rcs2log" nil t nil args)) | 1140 | (let ((default-directory odefault)) |
| 1141 | "done" "failed"))) | 1141 | (message "Computing change log entries... %s" |
| 1142 | (if (eq 0 (apply 'call-process "rcs2log" nil t nil args)) | ||
| 1143 | "done" "failed"))))) | ||
| 1142 | 1144 | ||
| 1143 | ;; Functions for querying the master and lock files. | 1145 | ;; Functions for querying the master and lock files. |
| 1144 | 1146 | ||