diff options
| author | Richard M. Stallman | 2004-03-12 10:12:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-03-12 10:12:14 +0000 |
| commit | cd07ee902842e21c1d37aaf1e31cf45fbe65e143 (patch) | |
| tree | b061921780bf11b35b49ebe8a278163c65ae9f21 | |
| parent | 74ce1b11e972aa2e8b7fa7ffc2f5761ea32c65d8 (diff) | |
| download | emacs-cd07ee902842e21c1d37aaf1e31cf45fbe65e143.tar.gz emacs-cd07ee902842e21c1d37aaf1e31cf45fbe65e143.zip | |
(cvs-mode-add-change-log-entry-other-window): Fix minor bug.
| -rw-r--r-- | lisp/pcvs.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/pcvs.el b/lisp/pcvs.el index eea0e541043..a7683ce371e 100644 --- a/lisp/pcvs.el +++ b/lisp/pcvs.el | |||
| @@ -2115,8 +2115,8 @@ With prefix argument, prompt for cvs flags." | |||
| 2115 | "Add a ChangeLog entry in the ChangeLog of the current directory." | 2115 | "Add a ChangeLog entry in the ChangeLog of the current directory." |
| 2116 | (interactive) | 2116 | (interactive) |
| 2117 | (dolist (fi (cvs-mode-marked nil nil)) | 2117 | (dolist (fi (cvs-mode-marked nil nil)) |
| 2118 | (let ((default-directory (cvs-expand-dir-name (cvs-fileinfo->dir fi))) | 2118 | (let* ((default-directory (cvs-expand-dir-name (cvs-fileinfo->dir fi))) |
| 2119 | (buffer-file-name (expand-file-name (cvs-fileinfo->file fi)))) | 2119 | (buffer-file-name (expand-file-name (cvs-fileinfo->file fi)))) |
| 2120 | (kill-local-variable 'change-log-default-name) | 2120 | (kill-local-variable 'change-log-default-name) |
| 2121 | (save-excursion (add-change-log-entry-other-window))))) | 2121 | (save-excursion (add-change-log-entry-other-window))))) |
| 2122 | 2122 | ||