From: yamaoka <yamaoka>
Date: Tue, 24 Aug 1999 13:28:11 +0000 (+0000)
Subject: (gnus-eval-in-buffer-window): Select the last selected frame.
X-Git-Tag: t-gnus-6_13_0-11~8
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d5b2595c76252736d89e6f20bf87b3905d582a75;p=elisp%2Fgnus.git-

(gnus-eval-in-buffer-window): Select the last selected frame.
---

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))