(cvs-mode-add-change-log-entry-other-window): Fix minor bug.

This commit is contained in:
Richard M. Stallman 2004-03-12 10:12:14 +00:00
parent 74ce1b11e9
commit cd07ee9028

View file

@ -2115,8 +2115,8 @@ With prefix argument, prompt for cvs flags."
"Add a ChangeLog entry in the ChangeLog of the current directory."
(interactive)
(dolist (fi (cvs-mode-marked nil nil))
(let ((default-directory (cvs-expand-dir-name (cvs-fileinfo->dir fi)))
(buffer-file-name (expand-file-name (cvs-fileinfo->file fi))))
(let* ((default-directory (cvs-expand-dir-name (cvs-fileinfo->dir fi)))
(buffer-file-name (expand-file-name (cvs-fileinfo->file fi))))
(kill-local-variable 'change-log-default-name)
(save-excursion (add-change-log-entry-other-window)))))