diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-10-17 06:53:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-10-17 06:53:08 +0000 |
| commit | 86bd482f7068474b8a7f03d73dbcaf1a2861583d (patch) | |
| tree | 48c3b0977f0fcd502e8e1b5da60883fc2df84c04 /lisp/frame.el | |
| parent | 87f14b12a9be32da17f35c67e48d71b3e92641ed (diff) | |
| download | emacs-86bd482f7068474b8a7f03d73dbcaf1a2861583d.tar.gz | |
(special-display-popup-frame): Make the buffer current as its frame is created.
Diffstat (limited to 'lisp/frame.el')
| -rw-r--r-- | lisp/frame.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index 8d979cdaff4..76049faddee 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -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)))))) |