Mercurial > emacs
changeset 57541:841073f11023
(special-display-popup-frame): Make the buffer current as its frame is created.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 17 Oct 2004 06:53:08 +0000 |
| parents | 8bf58c5521d8 |
| children | 06006ae6008a |
| files | lisp/frame.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/frame.el Sun Oct 17 06:51:48 2004 +0000 +++ b/lisp/frame.el Sun Oct 17 06:53:08 2004 +0000 @@ -135,7 +135,9 @@ ;; (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))))))