Fix thinko in 'delete-other-frames'
* lisp/frame.el (delete-other-frames): In second round make sure the candidate frame has not been deleted in the first round to avoid that 'frame-terminal' and friends throw an error.
This commit is contained in:
@@ -2889,7 +2889,10 @@ deleting them."
|
||||
(if iconify (iconify-frame this) (delete-frame this))))
|
||||
;; In a second round consider all remaining frames.
|
||||
(dolist (this frames)
|
||||
(unless (or (eq this frame)
|
||||
;; We did not recalculate FRAMES so make sure THIS is still a live
|
||||
;; frame since otherwise 'frame-terminal' will throw an error.
|
||||
(unless (or (not (frame-live-p this))
|
||||
(eq this frame)
|
||||
(eq this minibuffer-frame)
|
||||
(not (eq (frame-terminal this) terminal))
|
||||
;; When FRAME is a child frame, delete its siblings
|
||||
|
||||
Reference in New Issue
Block a user