diff options
author | Karl Heuer <[email protected]> | 1995-05-24 01:02:08 +0000 |
---|---|---|
committer | Karl Heuer <[email protected]> | 1995-05-24 01:02:08 +0000 |
commit | 82a74107638f35cca4bbcea79f46daed8067a052 (patch) | |
tree | f0f2fd4611d55ac4ed01d2a5ce2345fa4d2b8c01 /lisp/menu-bar.el | |
parent | ccc06dcce5bb60b53583bfe3f86a7a25617a53df (diff) |
(delete-frame-enabled-p): New subroutine.
Use frame-visible-p to reduce consing.
Diffstat (limited to 'lisp/menu-bar.el')
-rw-r--r-- | lisp/menu-bar.el | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 08c909170a..a49370fd52 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -355,15 +355,20 @@ Do the same for the keys of the same name." (and (buffer-file-name) (or (buffer-modified-p) (not (verify-visited-file-modtime (current-buffer))))))) + ;; Permit deleting frame if it would leave a visible or iconified frame. (put 'delete-frame 'menu-enable - '(let ((frames (frame-list)) - (count 0)) - (while frames - (if (cdr (assq 'visibility (frame-parameters (car frames)))) - (setq count (1+ count))) - (setq frames (cdr frames))) - (> count 1))) + '(delete-frame-enabled-p)) + +(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))) (put 'advertised-undo 'menu-enable '(and (not (eq t buffer-undo-list)) |