diff options
author | Noam Postavsky <npostavs@gmail.com> | 2018-05-23 19:26:49 -0400 |
---|---|---|
committer | Noam Postavsky <npostavs@gmail.com> | 2018-06-18 20:02:03 -0400 |
commit | 91ebbbfa107c60db84e09d54d952ffd969821ccb (patch) | |
tree | 7fafe95ca87afb23906fa6bc1566142eb7d2a3d6 /lisp | |
parent | 97d5d1a1f4790f959d1bee64e552b492103eddbe (diff) | |
download | emacs-91ebbbfa107c60db84e09d54d952ffd969821ccb.tar.gz emacs-91ebbbfa107c60db84e09d54d952ffd969821ccb.tar.bz2 emacs-91ebbbfa107c60db84e09d54d952ffd969821ccb.zip |
Default to splash on current frame, if none visible (Bug#31169)
* lisp/startup.el (fancy-splash-frame): Default to current frame.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/startup.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index fdf6cc1dbaa..c1e56fcdff3 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1903,7 +1903,8 @@ we put it on this frame." (if (and (frame-visible-p frame) (not (window-minibuffer-p (frame-selected-window frame)))) (setq chosen-frame frame))) - chosen-frame)) + ;; If there are no visible frames yet, try the selected one. + (or chosen-frame (selected-frame)))) (defun use-fancy-splash-screens-p () "Return t if fancy splash screens should be used." |