Mercurial > emacs
changeset 15399:e9ec008793fd
(frame-initialize): Don't count MSDOS neither as
window-system nor as a terminal frame here.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 10 Jun 1996 21:20:40 +0000 |
| parents | e0d50fe661c0 |
| children | 64095f6a315c |
| files | lisp/frame.el |
| diffstat | 1 files changed, 9 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/frame.el Mon Jun 10 21:20:18 1996 +0000 +++ b/lisp/frame.el Mon Jun 10 21:20:40 1996 +0000 @@ -152,7 +152,7 @@ (defun frame-initialize () ;; Are we actually running under a window system at all? - (if (and window-system (not noninteractive)) + (if (and window-system (not noninteractive) (not (eq window-system 'pc))) (progn ;; Turn on special-display processing only if there's a window system. (setq special-display-function 'special-display-popup-frame) @@ -191,13 +191,14 @@ ;; 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 - (if (fboundp 'make-terminal-frame) - 'make-terminal-frame - (function - (lambda (parameters) - (error - "Can't create multiple frames without a window system"))))))) + (or (eq window-system 'pc) + (setq frame-creation-function + (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