From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 12 Mar 2004 10:12:14 +0000 (+0000)
Subject: (cvs-mode-add-change-log-entry-other-window): Fix minor bug.
X-Git-Tag: ttn-vms-21-2-B4~7264
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cd07ee902842e21c1d37aaf1e31cf45fbe65e143;p=emacs.git

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

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)))))