mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-30 19:53:09 +00:00
Code Issues Releases Activity

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

Browse Source 
*VC-log* buffer instead of vc-parent-buffer.
This commit is contained in:
Richard M. Stallman 1994-07-13 09:34:01 +00:00
parent 123ec94d83
commit e2bef5c3a2
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/vc.el
View File

@ -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