From 86bd482f7068474b8a7f03d73dbcaf1a2861583d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 17 Oct 2004 06:53:08 +0000 Subject: [PATCH] (special-display-popup-frame): Make the buffer current as its frame is created. --- lisp/frame.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)))))) -- 2.39.5