Mercurial > emacs
comparison lisp/vc.el @ 3905:5669887e3692
(vc-update-change-log): Restore previous default-directory
for running rcs2log.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 28 Jun 1993 00:56:54 +0000 |
| parents | 0710180efd8b |
| children | 1b954eb0f249 |
comparison
equal
deleted
inserted
replaced
| 3904:6c98b9e2a213 | 3905:5669887e3692 |
|---|---|
| 1127 (setq file (buffer-file-name (car buffers))) | 1127 (setq file (buffer-file-name (car buffers))) |
| 1128 (and file (vc-backend-deduce file) | 1128 (and file (vc-backend-deduce file) |
| 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 |
| 1145 (defun vc-match-substring (bn) | 1147 (defun vc-match-substring (bn) |
| 1146 (buffer-substring (match-beginning bn) (match-end bn))) | 1148 (buffer-substring (match-beginning bn) (match-end bn))) |