Commit e2bef5c3 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(vc-finish-logentry): Use the value of vc-log-after-operation-hook of

*VC-log* buffer instead of vc-parent-buffer.
parent 123ec94d
......@@ -686,15 +686,17 @@ If nil, uses `change-log-default-name'."
vc-log-version
(buffer-string)))
(error "No log operation is pending"))
;; Return to "parent" buffer of this checkin and remove checkin window
(pop-to-buffer vc-parent-buffer)
(let ((logbuf (get-buffer "*VC-log*")))
(delete-windows-on logbuf)
(kill-buffer logbuf))
;; Now make sure we see the expanded headers
(if buffer-file-name
;; save the vc-log-after-operation-hook of log buffer
(let ((after-hook vc-log-after-operation-hook))
;; Return to "parent" buffer of this checkin and remove checkin window
(pop-to-buffer vc-parent-buffer)
(let ((logbuf (get-buffer "*VC-log*")))
(delete-windows-on logbuf)
(kill-buffer logbuf))
;; Now make sure we see the expanded headers
(if buffer-file-name
(vc-resynch-window buffer-file-name vc-keep-workfiles t))
(run-hooks vc-log-after-operation-hook))
(run-hooks after-hook)))
;; Code for access to the comment ring
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment