Mercurial > emacs
comparison lisp/frame.el @ 11038:f93c3156e05a
(frame-initialize): Set frame-creation-function to `make-terminal-frame' if
appropriate.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Thu, 16 Mar 1995 20:23:22 +0000 |
parents | b357feae0096 |
children | c9e2537da847 |
comparison
equal
deleted
inserted
replaced
11037:802a774b44b7 | 11038:f93c3156e05a |
---|---|
185 ;; At this point, we know that we have a frame open, so we | 185 ;; At this point, we know that we have a frame open, so we |
186 ;; can delete the terminal frame. | 186 ;; can delete the terminal frame. |
187 (delete-frame terminal-frame) | 187 (delete-frame terminal-frame) |
188 (setq terminal-frame nil)) | 188 (setq terminal-frame nil)) |
189 | 189 |
190 ;; No, we're not running a window system. Arrange to cause errors. | 190 ;; No, we're not running a window system. Use make-terminal-frame if |
191 ;; we support that feature, otherwise arrange to cause errors. | |
191 (setq frame-creation-function | 192 (setq frame-creation-function |
192 (function | 193 (if (fboundp 'make-terminal-frame) |
193 (lambda (parameters) | 194 'make-terminal-frame |
194 (error | 195 (function |
195 "Can't create multiple frames without a window system")))))) | 196 (lambda (parameters) |
197 (error | |
198 "Can't create multiple frames without a window system"))))))) | |
196 | 199 |
197 ;;; startup.el calls this function after loading the user's init | 200 ;;; startup.el calls this function after loading the user's init |
198 ;;; file. Now default-frame-alist and initial-frame-alist contain | 201 ;;; file. Now default-frame-alist and initial-frame-alist contain |
199 ;;; information to which we must react; do what needs to be done. | 202 ;;; information to which we must react; do what needs to be done. |
200 (defun frame-notice-user-settings () | 203 (defun frame-notice-user-settings () |