(frame-initialize): Don't count MSDOS neither as

window-system nor as a terminal frame here.

diff --git a/lisp/frame.el b/lisp/frame.el
index e52bfba99b5d61d62c3f9ab62eec242e260e4f66..509c1347c2dd9ce346f178857f9594f894613f44 100644 (file)
--- 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