# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1028477898 0
# Node ID cf9cd5b7096ed755b943096fc442ed233a8f3370
# Parent  10aa49b3d28a51976eed8c5fbe9de12df27df743
(fancy-splash-frame): Check selected frame last.

diff -r 10aa49b3d28a -r cf9cd5b7096e lisp/startup.el
--- a/lisp/startup.el	Sun Aug 04 13:58:44 2002 +0000
+++ b/lisp/startup.el	Sun Aug 04 16:18:18 2002 +0000
@@ -1306,7 +1306,7 @@
 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)))