diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-07-23 05:32:32 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-07-23 05:32:32 +0000 |
| commit | 7d56ddc5764b329ff315706e7e2a7eba34e60201 (patch) | |
| tree | 8a3a951f6a363a7a1f7352d513f9ce28a1302c4d /lisp/pcvs.el | |
| parent | d93290ed100772393a6ced91c49675e169b58ea3 (diff) | |
| download | emacs-7d56ddc5764b329ff315706e7e2a7eba34e60201.tar.gz | |
(cvs-mode-add-change-log-entry-other-window): Use a directory
name for buffer-file-name if it refers to a directory.
Diffstat (limited to 'lisp/pcvs.el')
| -rw-r--r-- | lisp/pcvs.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/pcvs.el b/lisp/pcvs.el index 006b2cd905b..12ad6f5e2a0 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))))) |