From d5b2595c76252736d89e6f20bf87b3905d582a75 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 24 Aug 1999 13:28:11 +0000 Subject: [PATCH] (gnus-eval-in-buffer-window): Select the last selected frame. --- lisp/gnus-util.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index 289f237..ee18c66 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -52,10 +52,12 @@ "Pop to BUFFER, evaluate FORMS, and then return to the original window." (let ((tempvar (make-symbol "GnusStartBufferWindow")) (w (make-symbol "w")) - (buf (make-symbol "buf"))) + (buf (make-symbol "buf")) + (frame (make-symbol "frame"))) `(let* ((,tempvar (selected-window)) (,buf ,buffer) - (,w (get-buffer-window ,buf 'visible))) + (,w (get-buffer-window ,buf 'visible)) + ,frame) (unwind-protect (progn (if ,w @@ -64,7 +66,9 @@ (set-buffer (window-buffer ,w))) (pop-to-buffer ,buf)) ,@forms) - (select-window ,tempvar))))) + (setq ,frame (selected-frame)) + (select-window ,tempvar) + (select-frame ,frame))))) (put 'gnus-eval-in-buffer-window 'lisp-indent-function 1) (put 'gnus-eval-in-buffer-window 'edebug-form-spec '(form body)) -- 1.7.10.4