Mercurial > emacs

changeset 37360:7bee98ffa33b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(delete-other-frames): Handle minibuffer-only frames.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 17 Apr 2001 12:02:53 +0000
parents 08167912b464
children d5098c76ae9a
files lisp/frame.el
diffstat 1 files changed, 14 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/frame.el	Tue Apr 17 06:01:40 2001 +0000
+++ b/lisp/frame.el	Tue Apr 17 12:02:53 2001 +0000
@@ -1043,11 +1043,23 @@
 
 (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