1306 |
use the fancy splash screen, but if we do use it, |
use the fancy splash screen, but if we do use it, |
1307 |
we put it on this frame." |
we put it on this frame." |
1308 |
(let (chosen-frame) |
(let (chosen-frame) |
1309 |
(dolist (frame (frame-list)) |
(dolist (frame (append (frame-list) (list (selected-frame)))) |
1310 |
(if (and (frame-visible-p frame) |
(if (and (frame-visible-p frame) |
1311 |
(not (window-minibuffer-p (frame-selected-window frame)))) |
(not (window-minibuffer-p (frame-selected-window frame)))) |
1312 |
(setq chosen-frame frame))) |
(setq chosen-frame frame))) |