From cd07ee902842e21c1d37aaf1e31cf45fbe65e143 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 12 Mar 2004 10:12:14 +0000 Subject: [PATCH] (cvs-mode-add-change-log-entry-other-window): Fix minor bug. --- lisp/pcvs.el | 4 ++-- 1 file 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." "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))))) -- 2.39.5