Commit 0759c4d0 authored by Karl Heuer's avatar Karl Heuer
Browse files

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

appropriate.
parent f845b8b2
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment