From be8b1ebb5c997dc37cdc789d4e9689913e2b1d12 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 14 Jul 2014 15:29:29 -0400 Subject: [PATCH] Tweak earlier vc-log-edit change * 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 --- lisp/ChangeLog | 5 +++++ lisp/vc/vc-dispatcher.el | 9 ++++++++- 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5f4c02c0670..14ed03e7570 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-07-14 Glenn Morris + + * 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 * bindings.el (mode-line-remote): If default-directory is not a diff --git a/lisp/vc/vc-dispatcher.el b/lisp/vc/vc-dispatcher.el index 0445891ed55..4fd9691d2a2 100644 --- a/lisp/vc/vc-dispatcher.el +++ b/lisp/vc/vc-dispatcher.el @@ -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. -- 2.39.5