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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6f3da0130307ce8597b6a258e811e047725260f6..2e3f32ad25cf88d1354805e8117a9f22f312a871 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-07-23  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * 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  <jasonr@gnu.org>
 
        * 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  <ttn@gnuvola.org>
 
@@ -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  <monnier@iro.umontreal.ca>
 
@@ -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  <yamaoka@jpl.org>
 
-       * 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  <rcyeske@gmail.com>
 
@@ -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  <rudalics@gmx.at>
 
        * 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  <n_schumacher@web.de>  (tiny change)
 

diff --git a/lisp/pcvs.el b/lisp/pcvs.el
index 006b2cd905b45ecf94c60f2f79278a48708e9595..12ad6f5e2a004b7cbbea21d037b92378e509120a 100644 (file)
--- 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)))))