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)

diff --git a/lisp/vc/vc-dispatcher.el b/lisp/vc/vc-dispatcher.el
index 5bcbc648600ea3a705df6f8a8abf7b01c3f0b023..f1491fd7f205b5af3d0e1612a683301d296b265c 100644 (file)
--- 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?"