Mercurial > emacs
changeset 15397:f95592fcdb1c
(msdos-face-setup): Use `terminal-frame' for initial frame setup.
(make-msdos-frame): New MSDOS-specific frame creation function.
(focus-frame, unfocus-frame): Don't set to 'ignore.
(auto-raise-mode, auto-lower-mode): Likewise.
(set-background-color, set-foreground-color): Definitions deleted.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 10 Jun 1996 21:19:59 +0000 |
| parents | fbecc317220d |
| children | e0d50fe661c0 |
| files | lisp/term/pc-win.el |
| diffstat | 1 files changed, 21 insertions(+), 32 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/pc-win.el Mon Jun 10 21:15:47 1996 +0000 +++ b/lisp/term/pc-win.el Mon Jun 10 21:19:59 1996 +0000 @@ -204,27 +204,37 @@ ;; --------------------------------------------------------------------------- ;; We want to delay setting frame parameters until the faces are setup (defvar default-frame-alist nil) +(modify-frame-parameters terminal-frame default-frame-alist) (defun msdos-face-setup () - (modify-frame-parameters (selected-frame) default-frame-alist) + (modify-frame-parameters terminal-frame default-frame-alist) - (set-face-foreground 'bold "yellow") - (set-face-foreground 'italic "red") - (set-face-foreground 'bold-italic "lightred") - (set-face-foreground 'underline "white") - (set-face-background 'region "green") + (set-face-foreground 'bold "yellow" terminal-frame) + (set-face-foreground 'italic "red" terminal-frame) + (set-face-foreground 'bold-italic "lightred" terminal-frame) + (set-face-foreground 'underline "white" terminal-frame) + (set-face-background 'region "green" terminal-frame) (make-face 'msdos-menu-active-face) (make-face 'msdos-menu-passive-face) (make-face 'msdos-menu-select-face) - (set-face-foreground 'msdos-menu-active-face "white") - (set-face-foreground 'msdos-menu-passive-face "lightgray") - (set-face-background 'msdos-menu-active-face "blue") - (set-face-background 'msdos-menu-passive-face "blue") - (set-face-background 'msdos-menu-select-face "red")) + (set-face-foreground 'msdos-menu-active-face "white" terminal-frame) + (set-face-foreground 'msdos-menu-passive-face "lightgray" terminal-frame) + (set-face-background 'msdos-menu-active-face "blue" terminal-frame) + (set-face-background 'msdos-menu-passive-face "blue" terminal-frame) + (set-face-background 'msdos-menu-select-face "red" terminal-frame)) ;; We have only one font, so... (add-hook 'before-init-hook 'msdos-face-setup) + +;; We create frames as if we were a terminal, but with a twist. +(defun make-msdos-frame (&optional parameters) + (let ((parms + (append initial-frame-alist default-frame-alist parameters nil))) + (make-terminal-frame parms))) + +(setq frame-creation-function 'make-msdos-frame) + ;; --------------------------------------------------------------------------- ;; More or less useful imitations of certain X-functions. A lot of the ;; values returned are questionable, but usually only the form of the @@ -233,8 +243,6 @@ ;; From src/xfns.c (defun x-display-color-p (&optional display) 't) -(fset 'focus-frame 'ignore) -(fset 'unfocus-frame 'ignore) (defun x-list-fonts (pattern &optional face frame) (list "default")) (defun x-color-defined-p (color) (numberp (msdos-color-translate color))) (defun x-display-pixel-width (&optional frame) (frame-width frame)) @@ -292,20 +300,6 @@ (fset 'set-mouse-color 'ignore) ; We cannot, I think. (fset 'set-cursor-color 'ignore) ; Hardware determined by char under. (fset 'set-border-color 'ignore) ; Not useful. -(fset 'auto-raise-mode 'ignore) -(fset 'auto-lower-mode 'ignore) -(defun set-background-color (color-name) - "Set the background color of the selected frame to COLOR. -When called interactively, prompt for the name of the color to use." - (interactive "sColor: ") - (modify-frame-parameters (selected-frame) - (list (cons 'background-color color-name)))) -(defun set-foreground-color (color-name) - "Set the foreground color of the selected frame to COLOR. -When called interactively, prompt for the name of the color to use." - (interactive "sColor: ") - (modify-frame-parameters (selected-frame) - (list (cons 'foreground-color color-name)))) ;; --------------------------------------------------------------------------- ;; Handle the X-like command line parameters "-fg" and "-bg" (defun msdos-handle-args (args) @@ -330,8 +324,3 @@ (setq command-line-args (msdos-handle-args command-line-args)) ;; --------------------------------------------------------------------------- -(require 'faces) -(if (msdos-mouse-p) - (progn - (require 'menu-bar) - (menu-bar-mode t)))