# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 834441640 0
# Node ID e9ec008793fdf291682367e9dc2f21b5ed49687f
# Parent  e0d50fe661c00bfa7f12d4ed7f32b780f0afebe7
(frame-initialize): Don't count MSDOS neither as
window-system nor as a terminal frame here.

diff -r e0d50fe661c0 -r e9ec008793fd lisp/frame.el
--- a/lisp/frame.el	Mon Jun 10 21:20:18 1996 +0000
+++ b/lisp/frame.el	Mon Jun 10 21:20:40 1996 +0000
@@ -152,7 +152,7 @@
 (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 @@
 
     ;; 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