mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 18:41:25 -08:00
Code Issues Projects Releases Wiki Activity

In special-display-popup-frame reset new frame's previous buffers to nil.

Browse source 
* window.el (special-display-popup-frame): When popping up a new frame
reset its previous buffers to nil.  Simplify code.
This commit is contained in:
Martin Rudalics 2011-09-22 11:28:57 +02:00
parent bfeef8b6da
commit 7f80c86d3c
2 changed files with 12 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/window.el
View file

@ -4104,14 +4104,16 @@ and (cdr ARGS) as second."
special-display-buffer-names special-display-regexps)
(display-buffer buffer)))
;; If no window yet, make one in a new frame.
(let ((frame
(with-current-buffer buffer
(make-frame (append args special-display-frame-alist)))))
(display-buffer-record-window
'frame (frame-selected-window frame) buffer)
(set-window-buffer (frame-selected-window frame) buffer)
(set-window-dedicated-p (frame-selected-window frame) t)
(frame-selected-window frame))))))
(let* ((frame
(with-current-buffer buffer
(make-frame (append args special-display-frame-alist))))
(window (frame-selected-window frame)))
(display-buffer-record-window 'frame window buffer)
(set-window-buffer window buffer)
;; Reset list of WINDOW's previous buffers to nil.
(set-window-prev-buffers window nil)
(set-window-dedicated-p window t)
window)))))
(defcustom special-display-function 'special-display-popup-frame
"Function to call for displaying special buffers.