mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-26 08:10:47 -07:00
Code Issues Projects Releases Wiki Activity

* lisp/vc/log-edit.el (log-edit-diff-function): Give non-nil default

Browse source 
(log-edit-show-diff): Simplify accordingly.
This commit is contained in:
Stefan Monnier 2021-04-11 22:27:25 -04:00
parent 4315a0bb26
commit 28a5932e74
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/vc/log-edit.el
View file

@ -191,7 +191,8 @@ when this variable is set to nil.")
(defconst log-edit-files-buf "*log-edit-files*")
(defvar log-edit-initial-files nil)
(defvar log-edit-callback nil)
(defvar log-edit-diff-function nil)
(defvar log-edit-diff-function
(lambda () (error "Diff functionality has not been setup")))
(defvar log-edit-listfun nil)
(defvar log-edit-parent-buffer nil)
@ -659,9 +660,7 @@ Also saves its contents in the comment history and hides
(defun log-edit-show-diff ()
"Show the diff for the files to be committed."
(interactive)
(if (functionp log-edit-diff-function)
(funcall log-edit-diff-function)
(error "Diff functionality has not been setup")))
(funcall log-edit-diff-function))
(defun log-edit-show-files ()
"Show the list of files to be committed."