mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

(delete-other-frames): Handle minibuffer-only frames.

Browse Source
This commit is contained in:
Gerd Moellmann 2001-04-17 12:02:53 +00:00
parent 8f9ab4032f
commit a2125918a0
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/frame.el
View File

@ -1043,11 +1043,23 @@ should use `set-frame-height' instead."
(defun delete-other-frames (&optional frame)
"Delete all frames except FRAME.
FRAME nil or omitted means delete all frames except the selected frame."
If FRAME uses another frame's minibuffer, the minibuffer frame is
left untouched. FRAME nil or omitted means use the selected frame."
(interactive)
(unless frame
(setq frame (selected-frame)))
(mapcar 'delete-frame (delq frame (frame-list))))
(let* ((mini-frame (window-frame (minibuffer-window frame)))
(frames (delq mini-frame (delq frame (frame-list)))))
;; Delete mon-minibuffer-only frames first, because `delete-frame'
;; signals an error when trying to delete a mini-frame that's
;; still in use by another frame.
(dolist (frame frames)
(unless (eq (frame-parameter frame 'minibuffer) 'only)
(delete-frame frame)))
;; Delete minibuffer-only frames.
(dolist (frame frames)
(when (eq (frame-parameter frame 'minibuffer) 'only)
(delete-frame frame)))))
(make-obsolete 'screen-height 'frame-height) ;before 19.15