lisp/term/pc-win.el

44 ;;; color is ``light''; see `frame-set-background-mode' in lisp/faces.el for
66 ;; We want to delay setting frame parameters until the faces are setup
67 (defvar default-frame-alist nil)
68 (modify-frame-parameters terminal-frame default-frame-alist)
72   (set-face-foreground 'bold "yellow" terminal-frame)
73   (set-face-foreground 'italic "red" terminal-frame)
74   (set-face-foreground 'bold-italic "lightred" terminal-frame)
75   (set-face-foreground 'underline "white" terminal-frame)
80   (set-face-foreground 'msdos-menu-active-face "white" terminal-frame)
81   (set-face-foreground 'msdos-menu-passive-face "lightgray" terminal-frame)
82   (set-face-background 'msdos-menu-active-face "blue" terminal-frame)
83   (set-face-background 'msdos-menu-passive-face "blue" terminal-frame)
84   (set-face-background 'msdos-menu-select-face "red" terminal-frame))
88 (defun msdos-handle-reverse-video (frame parameters)
89   "Handle the reverse-video frame parameter on MS-DOS frames."
91 		 (assq 'reverse default-frame-alist)))
92       (let* ((params (frame-parameters frame))
96 	    (modify-frame-parameters frame
99 	    (modify-frame-parameters frame
102 ;; This must run after all the default colors are inserted into
103 ;; tty-color-alist, since msdos-handle-reverse-video needs to know the
104 ;; actual frame colors.  tty-color-alist is set up by startup.el, but
106 (defun msdos-setup-initial-frame ()
107   (modify-frame-parameters terminal-frame default-frame-alist)
108   ;; This remembers the screen colors after applying default-frame-alist,
110   (msdos-remember-default-colors terminal-frame)
111   (modify-frame-parameters terminal-frame initial-frame-alist)
112   (msdos-handle-reverse-video terminal-frame
113 			      (frame-parameters terminal-frame))
115   (frame-set-background-mode terminal-frame)
116   (face-set-after-frame-default terminal-frame))
118 (add-hook 'term-setup-hook 'msdos-setup-initial-frame)
121 (defun make-msdos-frame (&optional parameters)
122   (let ((frame (make-terminal-frame parameters))
126 	  (msdos-handle-reverse-video frame (frame-parameters frame))
127 	  (frame-set-background-mode frame)
128 	  (face-set-after-frame-default frame)
130       (unless success (delete-frame frame)))
131     frame))
133 (setq frame-creation-function 'make-msdos-frame)
142 (defun x-list-fonts (pattern &optional face frame maximum width)
146 (defun x-display-pixel-width (&optional frame) (frame-width frame))
147 (defun x-display-pixel-height (&optional frame) (frame-height frame))
148 (defun x-display-planes (&optional frame) 4) ;bg switched to 16 colors as well
149 (defun x-display-color-cells (&optional frame) 16)
150 (defun x-server-max-request-size (&optional frame) 1000000) ; ???
151 (defun x-server-vendor (&optional frame) t "GNU")
152 (defun x-server-version (&optional frame) '(1 0 0))
153 (defun x-display-screens (&optional frame) 1)
154 (defun x-display-mm-height (&optional frame) 245) ; Guess the size of my
155 (defun x-display-mm-width (&optional frame) 322)  ; monitor, EZ...
156 (defun x-display-backing-store (&optional frame) 'not-useful)
157 (defun x-display-visual-class (&optional frame) 'static-color)
163   "The display name specifying the MS-DOS display and frame type.")
179 This is the default on this system, since MS-Windows does not
224 If FRAME is omitted or nil, use the selected frame.\n\
228   '(("default" . t)))
233 ;; From lisp/term/x-win.el: make iconify-or-deiconify-frame a no-op.
234 (fset 'iconify-or-deiconify-frame 'ignore)
236 ;; From lisp/frame.el
237 (fset 'set-default-font 'ignore)