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.

1 files changed, 7 insertions, 11 deletions

diff --git a/lisp/vc/vc-dispatcher.el b/lisp/vc/vc-dispatcher.el
index 2368cc6512e..820c666ca7d 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?"