From 3a321ddb31f5b542c59a2a3f83b03d5c5ce8b318 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 4 Aug 2002 16:18:54 +0000 Subject: [PATCH] (fancy-splash-frame): Check selected frame last. --- lisp/ChangeLog | 4 ++++ lisp/startup.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d15a5a7901d..83603333376 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2002-08-04 John Paul Wallington + + * startup.el (fancy-splash-frame): Check selected frame last. + 2002-08-04 Kai Gro,b_(Bjohann * net/tramp.el: Version 2.0.10 released. diff --git a/lisp/startup.el b/lisp/startup.el index 42f2d545fea..fbcc534e31b 100644 --- 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))) -- 2.39.2