comparison lisp/vc.el @ 4817:4c49473fbfd4

(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.

4816:2a5085c32935

	  (if (= (length files) 1)
	      (find-file-other-window (dired-get-filename))
	    (vc-start-entry nil nil nil
			    "Enter a change comment for the marked files."
			    'vc-next-action-dired)
	    (throw 'nogo))))
    (while vc-parent-buffer
      (pop-to-buffer vc-parent-buffer))
    (if buffer-file-name
	(vc-next-action-on-file buffer-file-name verbose)
      (vc-registration-error nil))))

		 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)
  (delete-windows-on (get-buffer "*VC-log*"))
  (kill-buffer "*VC-log*")
  ;; 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))

4817:4c49473fbfd4

	  (if (= (length files) 1)
	      (find-file-other-window (dired-get-filename))
	    (vc-start-entry nil nil nil
			    "Enter a change comment for the marked files."
			    'vc-next-action-dired)
	    (throw 'nogo nil))))
    (while vc-parent-buffer
      (pop-to-buffer vc-parent-buffer))
    (if buffer-file-name
	(vc-next-action-on-file buffer-file-name verbose)
      (vc-registration-error nil))))

		 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
	(vc-resynch-window buffer-file-name vc-keep-workfiles t))
  (run-hooks vc-log-after-operation-hook))