# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1097995988 0
# Node ID 841073f11023faad088d8199e5ffdb9838c86494
# Parent  8bf58c5521d86d7652da9081b8e09afc608f3a11
(special-display-popup-frame): Make the buffer current as its frame is created.

diff -r 8bf58c5521d8 -r 841073f11023 lisp/frame.el
--- 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))))))