From 538ef02ab967ecaea416e8733ef40218eef0f74c Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 25 Oct 2001 13:32:29 +0000 Subject: [PATCH] (normal-top-level): Check for frame-initial-frame only if it's really used. --- lisp/startup.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/startup.el b/lisp/startup.el index b84c122e25b..0fffc1b90ec 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -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)