# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 795385402 0
# Node ID f93c3156e05a13f4ec9c5df2c8abaaeaf824a085
# Parent  802a774b44b7384a29cb593fe2d0d3fad1ce3eb2
(frame-initialize): Set frame-creation-function to `make-terminal-frame' if
appropriate.

diff -r 802a774b44b7 -r f93c3156e05a lisp/frame.el
--- 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