(cvs-mode-add-change-log-entry-other-window): Use a directory

name for buffer-file-name if it refers to a directory.

2 files changed, 19 insertions, 12 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6f3da01303..2e3f32ad25 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-07-23  Stefan Monnier  <[email protected]>
+
+	* pcvs.el (cvs-mode-add-change-log-entry-other-window): Use a directory
+	name for buffer-file-name if it refers to a directory.
+
 2007-07-22  Jason Rumney  <[email protected]>
 
 	* w32-fns.el (set-default-process-coding-system): Use dos line ends
@@ -51,8 +56,7 @@
 	(vc-hg-next-version, vc-hg-delete-file, vc-hg-rename-file)
 	(vc-hg-register, vc-hg-create-repo, vc-hg-checkin)
 	(vc-hg-revert): Likewise.
-	(vc-hg-revision-table, vc-hg-revision-completion-table): New
-	functions.
+	(vc-hg-revision-table, vc-hg-revision-completion-table): New functions.
 
 2007-07-21  Thien-Thi Nguyen  <[email protected]>
 
@@ -186,8 +190,8 @@
 
 	* longlines.el (longlines-wrap-region): Avoid marking buffer as
 	modified.
-	(longlines-auto-wrap, longlines-window-change-function): Remove
-	unnecessary calls to set-buffer-modified-p.
+	(longlines-auto-wrap, longlines-window-change-function):
+	Remove unnecessary calls to set-buffer-modified-p.
 
 2007-06-20  Stefan Monnier  <[email protected]>
 
@@ -496,8 +500,8 @@
 	* calendar/timeclock.el: Update version number.
 	(timeclock-modeline-display): Mention timeclock-use-display-time
 	in explanatory message.
-	(timeclock-log): Suppress warnings when finding the log.  Don't
-	check for a nil project twice.  Run hooks after killing the
+	(timeclock-log): Suppress warnings when finding the log.
+	Don't check for a nil project twice.  Run hooks after killing the
 	buffer (if applicable).
 	(timeclock-geometric-mean): Rename to `timeclock-mean' (it never
 	was geometric).  All uses changed.
@@ -515,8 +519,8 @@
 
 2007-06-04  Katsumi Yamaoka  <[email protected]>
 
-	* mail/mail-extr.el (mail-extract-address-components): Recognize
-	non-ASCII characters except for NBSP as words.
+	* mail/mail-extr.el (mail-extract-address-components):
+	Recognize non-ASCII characters except for NBSP as words.
 
 2007-06-04  Ryan Yeske  <[email protected]>
 
@@ -544,8 +548,7 @@
 	* files.el (magic-mode-alist): Remove image-type-auto-detected-p.
 	(magic-fallback-mode-alist): Add image-type-auto-detected-p.
 
-	* image.el (image-type-auto-detected-p): Don't scan
-	auto-mode-alist.
+	* image.el (image-type-auto-detected-p): Don't scan auto-mode-alist.
 
 	* longlines.el (longlines-mode): Make longlines-auto-wrap
 	buffer-local.  Add hooks unconditionally.
@@ -569,8 +572,8 @@
 2007-05-29  Martin Rudalics  <[email protected]>
 
 	* textmodes/table.el (table--point-entered-cell-function)
-	(table--point-left-cell-function): Bind
-	`inhibit-point-motion-hooks' to t.
+	(table--point-left-cell-function):
+	Bind `inhibit-point-motion-hooks' to t.
 
 2007-05-29  Nikolaj Schumacher  <[email protected]>  (tiny change)
 
diff --git a/lisp/pcvs.el b/lisp/pcvs.el
index 006b2cd905..12ad6f5e2a 100644
--- a/lisp/pcvs.el
+++ b/lisp/pcvs.el
@@ -2207,6 +2207,10 @@ With prefix argument, prompt for cvs flags."
   (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))))
+      (if (file-directory-p buffer-file-name)
+          ;; Be careful to use a directory name, otherwise add-log starts
+          ;; looking for a ChangeLog file in the parent dir.
+          (setq buffer-file-name (file-name-as-directory buffer-file-name)))
       (kill-local-variable 'change-log-default-name)
       (save-excursion (add-change-log-entry-other-window)))))