Mercurial > emacs
comparison lisp/startup.el @ 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 | 028d61c862a9 |
| children | 13ce201c9620 |
comparison
equal
deleted
inserted
replaced
| 46802:10aa49b3d28a | 46803:cf9cd5b7096e |
|---|---|
| 1304 "Return the frame to use for the fancy splash screen. | 1304 "Return the frame to use for the fancy splash screen. |
| 1305 Returning non-nil does not mean we should necessarily | 1305 Returning non-nil does not mean we should necessarily |
| 1306 use the fancy splash screen, but if we do use it, | 1306 use the fancy splash screen, but if we do use it, |
| 1307 we put it on this frame." | 1307 we put it on this frame." |
| 1308 (let (chosen-frame) | 1308 (let (chosen-frame) |
| 1309 (dolist (frame (frame-list)) | 1309 (dolist (frame (append (frame-list) (list (selected-frame)))) |
| 1310 (if (and (frame-visible-p frame) | 1310 (if (and (frame-visible-p frame) |
| 1311 (not (window-minibuffer-p (frame-selected-window frame)))) | 1311 (not (window-minibuffer-p (frame-selected-window frame)))) |
| 1312 (setq chosen-frame frame))) | 1312 (setq chosen-frame frame))) |
| 1313 chosen-frame)) | 1313 chosen-frame)) |
| 1314 | 1314 |