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.

lisp/ChangeLog

+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

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