[Emacs-diffs] /srv/bzr/emacs/trunk r105478: In display-buffer-pop-up-frame make frame with buffer to display current.

[martin rudalics]

------------------------------------------------------------
revno: 105478
committer: martin rudalics <address@hidden>
branch nick: trunk
timestamp: Wed 2011-08-17 08:50:31 +0200
message:
  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.
modified:
  lisp/ChangeLog
  lisp/window.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-08-17 01:31:05 +0000
+++ b/lisp/ChangeLog    2011-08-17 06:50:31 +0000
@@ -1,3 +1,9 @@
+2011-08-17  Martin Rudalics  <address@hidden>
+
+       * 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  <address@hidden>
 
        * epa-mail.el: Simplify GnuPG group expansion using

=== modified file 'lisp/window.el'
--- a/lisp/window.el    2011-08-14 05:11:36 +0000
+++ b/lisp/window.el    2011-08-17 06:50:31 +0000
@@ -5087,9 +5087,10 @@
            (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