changeset 54376:43c8c6b5656b

(cvs-mode-add-change-log-entry-other-window): Fix minor bug.
author Richard M. Stallman <rms@gnu.org>
date Fri, 12 Mar 2004 10:12:14 +0000
parents 2ea941bff549
children a9843a971cfc
files lisp/pcvs.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/pcvs.el	Fri Mar 12 10:11:16 2004 +0000
+++ b/lisp/pcvs.el	Fri Mar 12 10:12:14 2004 +0000
@@ -2115,8 +2115,8 @@
   "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)))))