[Emacs-diffs] trunk r113977: In display-buffer-pop-up-frame make BUFFER current (Bug#15133).

[Martin Rudalics]

------------------------------------------------------------
revno: 113977
revision-id: address@hidden
parent: address@hidden
committer: martin rudalics <address@hidden>
branch nick: trunk
timestamp: Fri 2013-08-23 08:52:19 +0200
message:
  In display-buffer-pop-up-frame make BUFFER current (Bug#15133).
  
  * window.el (display-buffer-pop-up-frame): Call pop-up-frame-function
  with BUFFER current so `make-frame' will use it as the new frame's
  buffer (Bug#15133).
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/window.el                 window.el-20091113204419-o5vbwnq5f7feedwu-94

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-08-22 01:09:08 +0000
+++ b/lisp/ChangeLog    2013-08-23 06:52:19 +0000
@@ -1,3 +1,9 @@
+2013-08-23  Martin Rudalics  <address@hidden>
+
+       * window.el (display-buffer-pop-up-frame): Call
+       pop-up-frame-function with BUFFER current so `make-frame' will
+       use it as the new frame's buffer (Bug#15133).
+
 2013-08-22  Stefan Monnier  <address@hidden>
 
        * calendar/timeclock.el: Minor cleanups.

=== modified file 'lisp/window.el'
--- a/lisp/window.el    2013-08-16 09:44:32 +0000
+++ b/lisp/window.el    2013-08-23 06:52:19 +0000
@@ -5642,7 +5642,10 @@
         (fun pop-up-frame-function)
         frame window)
     (when (and fun
-              (setq frame (funcall fun))
+              ;; Make BUFFER current so `make-frame' will use it as the
+              ;; new frame's buffer (Bug#15133).
+              (with-current-buffer buffer
+                (setq frame (funcall fun)))
               (setq window (frame-selected-window frame)))
       (prog1 (window--display-buffer
              buffer window 'frame alist display-buffer-mark-dedicated)