[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/pcvs.el,v
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/pcvs.el,v |
Date: |
Fri, 20 Jul 2007 20:08:22 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Stefan Monnier <monnier> 07/07/20 20:08:22
Index: pcvs.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/pcvs.el,v
retrieving revision 1.100
retrieving revision 1.101
diff -u -b -r1.100 -r1.101
--- pcvs.el 28 Jun 2007 01:37:40 -0000 1.100
+++ pcvs.el 20 Jul 2007 20:08:20 -0000 1.101
@@ -2207,6 +2207,10 @@
(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)))))
- [Emacs-diffs] Changes to emacs/lisp/pcvs.el,v,
Stefan Monnier <=