(fancy-splash-frame): Check selected frame last.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d15a5a7901d09f3bffd252c828456a06bc047be1..836033333764479e1b703eeb4b247fe6aba48bc3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-08-04  John Paul Wallington  <jpw@shootybangbang.com>
+
+       * startup.el (fancy-splash-frame): Check selected frame last.
+
 2002-08-04  Kai Gro\e,b_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
        * net/tramp.el: Version 2.0.10 released.

diff --git a/lisp/startup.el b/lisp/startup.el
index 42f2d545fead476e1d1838fae1b597fda40e445f..fbcc534e31be3ed944c44a9e86f694aad4d2e697 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1306,7 +1306,7 @@ Returning non-nil does not mean we should necessarily
 use the fancy splash screen, but if we do use it,
 we put it on this frame."
   (let (chosen-frame)
-    (dolist (frame (frame-list))
+    (dolist (frame (append (frame-list) (list (selected-frame))))
       (if (and (frame-visible-p frame)
               (not (window-minibuffer-p (frame-selected-window frame))))
          (setq chosen-frame frame)))