From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 17 Oct 2004 06:53:08 +0000 (+0000)
Subject: (special-display-popup-frame): Make the buffer current as its frame is created.
X-Git-Tag: ttn-vms-21-2-B4~4530
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=86bd482f7068474b8a7f03d73dbcaf1a2861583d;p=emacs.git

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

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))))))