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 () |