diff lisp/frame.el @ 11038:f93c3156e05a

(frame-initialize): Set frame-creation-function to `make-terminal-frame' if appropriate.

--- a/lisp/frame.el	Thu Mar 16 18:51:49 1995 +0000
+++ b/lisp/frame.el	Thu Mar 16 20:23:22 1995 +0000
@@ -187,12 +187,15 @@
 	(delete-frame terminal-frame)
 	(setq terminal-frame nil))
 
-    ;; No, we're not running a window system.  Arrange to cause errors.
+    ;; 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
-	  (function
-	   (lambda (parameters)
-	     (error
-	      "Can't create multiple frames without a window system"))))))
+	  (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