mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-24 19:03:29 +00:00
Code Issues Releases Activity

Tweak earlier vc-log-edit change

Browse Source 
* lisp/vc/vc-dispatcher.el (vc-log-edit): Do set up the log buffer
if it was "empty", or used for a different set of files.

Fixes: debbugs:17884
This commit is contained in:
Glenn Morris 2014-07-14 15:29:29 -04:00
parent b20759f920
commit be8b1ebb5c
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2014-07-14 Glenn Morris <rgm@gnu.org>
* vc/vc-dispatcher.el (vc-log-edit): Do set up the log buffer
if it was "empty", or used for a different set of files. (Bug#17884)
2014-07-13 Eli Zaretskii <eliz@gnu.org>
* bindings.el (mode-line-remote): If default-directory is not a

9
lisp/vc/vc-dispatcher.el
View File

@ -591,12 +591,19 @@ NOT-URGENT means it is ok to continue if the user says not to save."
;; Set up key bindings for use while editing log messages
(declare-function log-edit-empty-buffer-p "log-edit" ())
(defun vc-log-edit (fileset mode backend)
"Set up `log-edit' for use on FILE."
(setq default-directory
(buffer-local-value 'default-directory vc-parent-buffer))
(require 'log-edit)
(log-edit 'vc-finish-logentry
(= (point-min) (point-max))
;; Setup a new log message if the log buffer is "empty",
;; or was previously used for a different set of files.
(or (log-edit-empty-buffer-p)
(and (local-variable-p 'vc-log-fileset)
(not (equal vc-log-fileset fileset))))
`((log-edit-listfun . (lambda ()
;; FIXME: Should expand the list
;; for directories.