From 8c9177f2b41de8206065b9b614a082051d8426da Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Wed, 17 Aug 2011 08:50:31 +0200 Subject: [PATCH] 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 | 6 ++++++ lisp/window.el | 7 ++++--- 2 files changed, 10 insertions(+), 3 deletions(-) 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 + + * 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 * 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 -- 2.39.5