mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(special-display-popup-frame): Make the buffer current as its frame is created.

Browse source
This commit is contained in:
Richard M. Stallman 2004-10-17 06:53:08 +00:00
parent 87f14b12a9
commit 86bd482f70
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/frame.el
View file

@ -135,7 +135,9 @@ Pass it BUFFER as first arg, and (cdr ARGS) gives the rest of the args."
;; (set-window-dedicated-p window t)
window))
;; If no window yet, make one in a new frame.
(let ((frame (make-frame (append args special-display-frame-alist))))
(let ((frame
(with-current-buffer buffer
(make-frame (append args special-display-frame-alist)))))
(set-window-buffer (frame-selected-window frame) buffer)
(set-window-dedicated-p (frame-selected-window frame) t)
(frame-selected-window frame))))))