Function: ediff-safe-to-quit

ediff-safe-to-quit is a byte-compiled function defined in ediff-mult.el.gz.

Signature

(ediff-safe-to-quit META-BUFFER)

Source Code

;; Defined in /usr/src/emacs/lisp/vc/ediff-mult.el.gz
;; t if no session is in progress
(defun ediff-safe-to-quit (meta-buffer)
  (if (ediff-buffer-live-p meta-buffer)
      (let ((lis ediff-meta-list)
	    (cont t)
	    buffer-read-only)
	;;(ediff-update-meta-buffer meta-buffer)
	(ediff-with-current-buffer meta-buffer
	  (setq lis (cdr lis)) ; discard the description part of meta-list
	  (while (and cont lis)
	    (if (ediff-buffer-live-p
		 (ediff-get-group-buffer lis)) ; in progress
		(setq cont nil))
	    (setq lis (cdr lis)))
	  cont))))