diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-03-16 20:23:22 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-03-16 20:23:22 +0000 |
| commit | e934c80abde80487698ccad97cac71a664283b02 (patch) | |
| tree | dea95429250421e2a38480e04df58e6fc700c9cf | |
| parent | 2fcfd7db71a81a0a48d9cfc6bf1f56eabef72f61 (diff) | |
| download | emacs-e934c80abde80487698ccad97cac71a664283b02.tar.gz | |
(frame-initialize): Set frame-creation-function to `make-terminal-frame' if
appropriate.
| -rw-r--r-- | lisp/frame.el | 13 |
1 files changed, 8 insertions, 5 deletions
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 |