Mercurial > emacs
changeset 46803:cf9cd5b7096e
(fancy-splash-frame): Check selected frame last.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 04 Aug 2002 16:18:18 +0000 |
| parents | 10aa49b3d28a |
| children | d729c9804513 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)))