In display-buffer-pop-up-frame make frame with buffer to display current.

* window.el (display-buffer-pop-up-frame): Run frame creation
function with BUFFER current (as special-display-popup-frame
does).  Reported by Drew Adams.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0bed14f625dad428f60ddfa5bc859f7869e81aa4..f3d37a77b24420e6cde733f87917a7bea69e033a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2011-08-17  Martin Rudalics  <rudalics@gmx.at>
+
+       * window.el (display-buffer-pop-up-frame): Run frame creation
+       function with BUFFER current (as special-display-popup-frame
+       does).  Reported by Drew Adams.
+
 2011-08-17  Daiki Ueno  <ueno@unixuser.org>
 
        * epa-mail.el: Simplify GnuPG group expansion using

diff --git a/lisp/window.el b/lisp/window.el
index 7e666af6abf490912705e56f0b58b277f9c2059c..eca3dcb435d6308184b6b3d4e1b77ebe0f37bf99 100644 (file)
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -5087,9 +5087,10 @@ documentation of `display-buffer-alist' for a description."
            (when (symbolp function)
              (cdr (assq 'pop-up-frame-alist specifiers))))
           (frame
-           (if (symbolp function)
-               (funcall function parameters)
-             (funcall function))))
+           (with-current-buffer buffer
+             (if (symbolp function)
+                 (funcall function parameters)
+               (funcall function)))))
       (when frame
        (let ((window (frame-selected-window frame)))
          (set-window-parameter