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

diff --git a/lisp/frame.el b/lisp/frame.el
index 8d979cdaff4c0fb95f3a60714c46555c3ecea0b4..76049faddee6ae98504aa0d42e19e2672946bcc4 100644 (file)
--- 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))))))