Function: vc-diff-finish

vc-diff-finish is a byte-compiled function defined in vc.el.gz.

Signature

(vc-diff-finish BUFFER MESSAGES)

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc.el.gz
(defun vc-diff-finish (buffer messages)
  ;; The empty sync output case has already been handled, so the only
  ;; possibility of an empty output is for an async process.
  (when (buffer-live-p buffer)
    (let ((window (get-buffer-window buffer t))
	  (emptyp (zerop (buffer-size buffer))))
      (with-current-buffer buffer
	(and messages emptyp
	     (let ((inhibit-read-only t))
	       (insert (cdr messages) ".\n")
	       (message "%s" (cdr messages))))
	(diff-setup-whitespace)
	(goto-char (point-min))
	(when window
	  (shrink-window-if-larger-than-buffer window)))
      (when (and messages (not emptyp))
	(message "%sdone" (car messages))))))