From 9758e75ff82c5e969ac6cc527231cc2a4a461ce2 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 30 May 2025 13:21:07 +0100 Subject: [PATCH] vc-finish-logentry: Don't run vc-finish-logentry-hook * lisp/vc/vc-dispatcher.el (vc-finish-logentry): Don't run undocumented, undeclared 'vc-finish-logentry-hook'. There is already 'vc-log-after-operation-hook'; it is not clear we need both. (cherry picked from commit c459ba692ece6ed7c9d4be9cf3821b4efe04cd30) --- lisp/vc/vc-dispatcher.el | 18 +++++++----------- 1 file changed, 7 insertions(+), 11 deletions(-) diff --git a/lisp/vc/vc-dispatcher.el b/lisp/vc/vc-dispatcher.el index 5bcbc648600..f1491fd7f20 100644 --- a/lisp/vc/vc-dispatcher.el +++ b/lisp/vc/vc-dispatcher.el @@ -874,19 +874,15 @@ the buffer contents as a comment." (setq vc-log-operation nil) ;; Quit windows on logbuf. - (cond - ((not logbuf)) - (vc-delete-logbuf-window - (quit-windows-on logbuf t (selected-frame))) - (t - (quit-windows-on logbuf nil 0))) + (cond ((not logbuf)) + (vc-delete-logbuf-window + (quit-windows-on logbuf t (selected-frame))) + (t + (quit-windows-on logbuf nil 0))) ;; Now make sure we see the expanded headers - (when log-fileset - (mapc - (lambda (file) (vc-resynch-buffer file t t)) - log-fileset)) - (run-hooks after-hook 'vc-finish-logentry-hook))) + (mapc (lambda (file) (vc-resynch-buffer file t t)) log-fileset) + (run-hooks after-hook))) (defun vc-dispatcher-browsing () "Are we in a directory browser buffer?" -- 2.39.5