From: Sean Whitton <spwhitton@spwhitton.name>
Date: Sat, 31 May 2025 08:36:25 +0000 (+0100)
Subject: Restore & obsolete vc-finish-logentry-hook
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5bfc66ab27014d2aa8c400193c43abc991dce158;p=emacs.git

Restore & obsolete vc-finish-logentry-hook

* lisp/vc/vc-dispatcher.el (vc-finish-logentry-hook): Declare,
document and mark obsolete.
(vc-finish-logentry): Call vc-finish-logentry-hook again.

(cherry picked from commit 98c3f4c371d2c31745ea056c1286f5f407397bc2)
---

diff --git a/lisp/vc/vc-dispatcher.el b/lisp/vc/vc-dispatcher.el
index f1491fd7f20..5cc2dd9ade9 100644
--- a/lisp/vc/vc-dispatcher.el
+++ b/lisp/vc/vc-dispatcher.el
@@ -122,6 +122,15 @@ dispatcher client mode imposes itself."
   :type 'hook
   :group 'vc)
 
+;; This hook was undeclared and undocumented until declared obsolete.
+;; I believe it can be replaced with `vc-log-after-operation-hook'; if
+;; someone can demonstrate a case where this is wanted too, we can
+;; unobsolete it.  --spwhitton
+(defvar vc-finish-logentry-hook nil
+  "Additional hook run at the end of `vc-finish-logentry'.")
+(make-obsolete-variable 'vc-finish-logentry-hook 'vc-log-after-operation-hook
+                        "31.1" 'set)
+
 (defcustom vc-delete-logbuf-window t
   "If non-nil, delete the log buffer and window after each logical action.
 If nil, bury that buffer instead.
@@ -882,7 +891,7 @@ the buffer contents as a comment."
 
     ;; Now make sure we see the expanded headers
     (mapc (lambda (file) (vc-resynch-buffer file t t)) log-fileset)
-    (run-hooks after-hook)))
+    (run-hooks after-hook 'vc-finish-logentry-hook)))
 
 (defun vc-dispatcher-browsing ()
   "Are we in a directory browser buffer?"