Mercurial > emacs
comparison lisp/vc.el @ 3229:f2b1d5cc9337
(vc-finish-logentry): Use delete-windows-on.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 29 May 1993 03:47:48 +0000 |
| parents | b2e2fcc4fb24 |
| children | dffbfae75c92 |
comparison
equal
deleted
inserted
replaced
| 3228:8199b2047076 | 3229:f2b1d5cc9337 |
|---|---|
| 620 vc-log-version | 620 vc-log-version |
| 621 (buffer-string))) | 621 (buffer-string))) |
| 622 (error "No log operation is pending.")) | 622 (error "No log operation is pending.")) |
| 623 ;; Return to "parent" buffer of this checkin and remove checkin window | 623 ;; Return to "parent" buffer of this checkin and remove checkin window |
| 624 (pop-to-buffer vc-parent-buffer) | 624 (pop-to-buffer vc-parent-buffer) |
| 625 (vc-error-occurred | 625 (delete-windows-on (get-buffer "*VC-log*")) |
| 626 (delete-window (get-buffer-window "*VC-log*"))) | |
| 627 (kill-buffer "*VC-log*") | 626 (kill-buffer "*VC-log*") |
| 628 ;; Now make sure we see the expanded headers | 627 ;; Now make sure we see the expanded headers |
| 629 (if buffer-file-name | 628 (if buffer-file-name |
| 630 (vc-resynch-window buffer-file-name vc-keep-workfiles t)) | 629 (vc-resynch-window buffer-file-name vc-keep-workfiles t)) |
| 631 (run-hooks vc-log-after-operation-hook)) | 630 (run-hooks vc-log-after-operation-hook)) |