andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(delete-other-frames): Only delete frames on the

Browse source 
same terminal (bug#3442).
This commit is contained in:
Stefan Monnier 2009-06-04 14:46:23 +00:00
parent 8682defdaa
commit 5e5ae184f4
2 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2009-06-04 Stefan Monnier <monnier@iro.umontreal.ca>
* frame.el (delete-other-frames): Only delete frames on the
same terminal (bug#3442).
2009-06-04 Glenn Morris <rgm@gnu.org>
* calendar/solar.el (solar-n-hemi-seasons, solar-s-hemi-seasons):

4
lisp/frame.el
View file

@ -1485,6 +1485,10 @@ left untouched. FRAME nil or omitted means use the selected frame."
(setq frame (selected-frame)))
(let* ((mini-frame (window-frame (minibuffer-window frame)))
(frames (delq mini-frame (delq frame (frame-list)))))
;; Only consider frames on the same terminal.
(dolist (frame (prog1 frames (setq frames nil)))
(if (eq (frame-terminal) (frame-terminal frame))
(push frame frames)))
;; 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.