Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
6655f0bf
Commit
6655f0bf
authored
Jul 20, 2007
by
Stefan Monnier
Browse files
(cvs-mode-add-change-log-entry-other-window): Use a directory
name for buffer-file-name if it refers to a directory.
parent
f3b8feb4
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
7 additions
and
0 deletions
+7
-0
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/pcvs.el
lisp/pcvs.el
+4
-0
No files found.
lisp/ChangeLog
View file @
6655f0bf
2007-07-20 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.
* vc-arch.el (vc-arch-diff): Fix last change.
* progmodes/compile.el (compilation-start): Remember the original
...
...
lisp/pcvs.el
View file @
6655f0bf
...
...
@@ -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)))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment