diff options
| author | Noam Postavsky | 2018-05-23 19:26:49 -0400 |
|---|---|---|
| committer | Noam Postavsky | 2018-06-18 20:02:03 -0400 |
| commit | 91ebbbfa107c60db84e09d54d952ffd969821ccb (patch) | |
| tree | 7fafe95ca87afb23906fa6bc1566142eb7d2a3d6 | |
| parent | 97d5d1a1f4790f959d1bee64e552b492103eddbe (diff) | |
| download | emacs-91ebbbfa107c60db84e09d54d952ffd969821ccb.tar.gz emacs-91ebbbfa107c60db84e09d54d952ffd969821ccb.zip | |
Default to splash on current frame, if none visible (Bug#31169)
* lisp/startup.el (fancy-splash-frame): Default to current frame.
| -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." | |||
| 1903 | (if (and (frame-visible-p frame) | 1903 | (if (and (frame-visible-p frame) |
| 1904 | (not (window-minibuffer-p (frame-selected-window frame)))) | 1904 | (not (window-minibuffer-p (frame-selected-window frame)))) |
| 1905 | (setq chosen-frame frame))) | 1905 | (setq chosen-frame frame))) |
| 1906 | chosen-frame)) | 1906 | ;; If there are no visible frames yet, try the selected one. |
| 1907 | (or chosen-frame (selected-frame)))) | ||
| 1907 | 1908 | ||
| 1908 | (defun use-fancy-splash-screens-p () | 1909 | (defun use-fancy-splash-screens-p () |
| 1909 | "Return t if fancy splash screens should be used." | 1910 | "Return t if fancy splash screens should be used." |