Mercurial > emacs
comparison lisp/vc.el @ 8237:189d7c4eaf68
(vc-finish-logentry): Use the value of vc-log-after-operation-hook of
*VC-log* buffer instead of vc-parent-buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 13 Jul 1994 09:34:01 +0000 |
| parents | 513f25ffd93d |
| children | f95e050e272f |
comparison
equal
deleted
inserted
replaced
| 8236:444501972687 | 8237:189d7c4eaf68 |
|---|---|
| 684 (funcall vc-log-operation | 684 (funcall vc-log-operation |
| 685 vc-log-file | 685 vc-log-file |
| 686 vc-log-version | 686 vc-log-version |
| 687 (buffer-string))) | 687 (buffer-string))) |
| 688 (error "No log operation is pending")) | 688 (error "No log operation is pending")) |
| 689 ;; Return to "parent" buffer of this checkin and remove checkin window | 689 ;; save the vc-log-after-operation-hook of log buffer |
| 690 (pop-to-buffer vc-parent-buffer) | 690 (let ((after-hook vc-log-after-operation-hook)) |
| 691 (let ((logbuf (get-buffer "*VC-log*"))) | 691 ;; Return to "parent" buffer of this checkin and remove checkin window |
| 692 (delete-windows-on logbuf) | 692 (pop-to-buffer vc-parent-buffer) |
| 693 (kill-buffer logbuf)) | 693 (let ((logbuf (get-buffer "*VC-log*"))) |
| 694 ;; Now make sure we see the expanded headers | 694 (delete-windows-on logbuf) |
| 695 (if buffer-file-name | 695 (kill-buffer logbuf)) |
| 696 ;; Now make sure we see the expanded headers | |
| 697 (if buffer-file-name | |
| 696 (vc-resynch-window buffer-file-name vc-keep-workfiles t)) | 698 (vc-resynch-window buffer-file-name vc-keep-workfiles t)) |
| 697 (run-hooks vc-log-after-operation-hook)) | 699 (run-hooks after-hook))) |
| 698 | 700 |
| 699 ;; Code for access to the comment ring | 701 ;; Code for access to the comment ring |
| 700 | 702 |
| 701 (defun vc-previous-comment (arg) | 703 (defun vc-previous-comment (arg) |
| 702 "Cycle backwards through comment history." | 704 "Cycle backwards through comment history." |