From: Martin Rudalics <rudalics@gmx.at>
Date: Wed, 17 Aug 2011 06:50:31 +0000 (+0200)
Subject: In display-buffer-pop-up-frame make frame with buffer to display current.
X-Git-Tag: emacs-pretest-24.0.90~104^2~124^2~24
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8c9177f2b41de8206065b9b614a082051d8426da;p=emacs.git

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 0bed14f625d..f3d37a77b24 100644
--- 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 7e666af6abf..eca3dcb435d 100644
--- 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