procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(frame-initialize): Don't count MSDOS neither as

Browse source 
window-system nor as a terminal frame here.
This commit is contained in:
Richard M. Stallman 1996-06-10 21:20:40 +00:00
parent 753a134f1e
commit 004f057a42
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/frame.el
View file

@ -152,7 +152,7 @@ These supersede the values given in `default-frame-alist'.")
(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 @@ These supersede the values given in `default-frame-alist'.")
;; 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