mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-16 17:19:41 +00:00
Code Issues Releases Activity

(normal-top-level): Check for frame-initial-frame

Browse Source 
only if it's really used.
This commit is contained in:
Gerd Moellmann 2001-10-25 13:32:29 +00:00
parent b2bbd50940
commit 538ef02ab9
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/startup.el
View File

@ -485,7 +485,11 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
;; Don't do this if we failed to create the initial frame,
;; for instance due to a dense colormap.
(when frame-initial-frame
(when (or frame-initial-frame
;; If frame-initial-frame has no meaning, do this anyway.
(not (and window-system
(not noninteractive)
(not (eq window-system 'pc)))))
;; Modify the initial frame based on what .emacs puts into
;; ...-frame-alist.
(if (fboundp 'frame-notice-user-settings)