diff options
| author | Eric S. Raymond <esr@snark.thyrsus.com> | 1993-10-04 20:51:01 +0000 |
|---|---|---|
| committer | Eric S. Raymond <esr@snark.thyrsus.com> | 1993-10-04 20:51:01 +0000 |
| commit | 9a47d40b5561ece770205c6ac61a68d198aa25c2 (patch) | |
| tree | 3e97b0ab9bba5d7ef10d3fb498f2f3b230a4335a /lisp | |
| parent | 8ff3d703559e5a3c10e367799859a49d91c393c5 (diff) | |
| download | emacs-9a47d40b5561ece770205c6ac61a68d198aa25c2.tar.gz | |
(vc-next-action) Fix (throw ... ) invocation to work with 19; this
allows vc-next-action on all marked files in a dired buffer to work.
(vc-finish-logentry) There isn't necessarily a *VC-log-entry* buffer
to remove if this function was called from within a dired buffer. Fix
its handling of this case.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/vc.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index 060d64794eb..de99a97c828 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -451,7 +451,7 @@ lock steals will raise an error." (vc-start-entry nil nil nil "Enter a change comment for the marked files." 'vc-next-action-dired) - (throw 'nogo)))) + (throw 'nogo nil)))) (while vc-parent-buffer (pop-to-buffer vc-parent-buffer)) (if buffer-file-name @@ -653,8 +653,9 @@ If nil, uses `change-log-default-name'." (error "No log operation is pending")) ;; Return to "parent" buffer of this checkin and remove checkin window (pop-to-buffer vc-parent-buffer) - (delete-windows-on (get-buffer "*VC-log*")) - (kill-buffer "*VC-log*") + (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)) |