From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 16 Mar 1995 20:23:22 +0000 (+0000)
Subject: (frame-initialize): Set frame-creation-function to `make-terminal-frame' if
X-Git-Tag: emacs-19.34~4820
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0759c4d083666eecd0cbd903bbdaf761ec39f11f;p=emacs.git

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

diff --git a/lisp/frame.el b/lisp/frame.el
index 88e088abdc7..a53b3c82eda 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -187,12 +187,15 @@ These supersede the values given in `default-frame-alist'.")
 	(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