From 004f057a42eeb76021b2de3f5f8b1fd07d0421f4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 10 Jun 1996 21:20:40 +0000 Subject: [PATCH] (frame-initialize): Don't count MSDOS neither as window-system nor as a terminal frame here. --- lisp/frame.el | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/lisp/frame.el b/lisp/frame.el index e52bfba99b5..509c1347c2d 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -152,7 +152,7 @@ These supersede the values given in `default-frame-alist'.") (defun frame-initialize () ;; Are we actually running under a window system at all? - (if (and window-system (not noninteractive)) + (if (and window-system (not noninteractive) (not (eq window-system 'pc))) (progn ;; Turn on special-display processing only if there's a window system. (setq special-display-function 'special-display-popup-frame) @@ -191,13 +191,14 @@ These supersede the values given in `default-frame-alist'.") ;; No, we're not running a window system. Use make-terminal-frame if ;; we support that feature, otherwise arrange to cause errors. - (setq frame-creation-function - (if (fboundp 'make-terminal-frame) - 'make-terminal-frame - (function - (lambda (parameters) - (error - "Can't create multiple frames without a window system"))))))) + (or (eq window-system 'pc) + (setq frame-creation-function + (if (fboundp 'make-terminal-frame) + 'make-terminal-frame + (function + (lambda (parameters) + (error + "Can't create multiple frames without a window system")))))))) ;;; startup.el calls this function after loading the user's init ;;; file. Now default-frame-alist and initial-frame-alist contain -- 2.39.5