procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Default to splash on current frame, if none visible (Bug#31169)

Browse source 
* lisp/startup.el (fancy-splash-frame): Default to current frame.
This commit is contained in:
Noam Postavsky 2018-05-23 19:26:49 -04:00
parent 97d5d1a1f4
commit 91ebbbfa10
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/startup.el
View file

@ -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."