Function: delete-frame-enabled-p

delete-frame-enabled-p is a byte-compiled function defined in menu-bar.el.gz.

Signature

(delete-frame-enabled-p)

Documentation

Return non-nil if delete-frame should be enabled in the menu bar.

Source Code

;; Defined in /usr/src/emacs/lisp/menu-bar.el.gz
;; Permit deleting frame if it would leave a visible or iconified frame.
(defun delete-frame-enabled-p ()
  "Return non-nil if `delete-frame' should be enabled in the menu bar."
  (let ((frames (frame-list))
	(count 0))
    (while frames
      (if (frame-visible-p (car frames))
	  (setq count (1+ count)))
      (setq frames (cdr frames)))
    (> count 1)))