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

(msdos-color-aliases): Add more aliases.

Browse source 
(msdos-face-setup): Change colors for bold, bold-italic, underline.
(x-frob-font-slant): Define as no-op.
This commit is contained in:
Richard M. Stallman 1995-11-22 13:44:42 +00:00
parent 9af3143a29
commit ea6401d799
1 changed files with 21 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
lisp/term/pc-win.el
View file

@ -36,7 +36,19 @@
("darkgoldenrod" . "brown")
("goldenrod" . "yellow")
("grey40" . "darkgray")
("rosybrown" . "brown"))
("rosybrown" . "brown")
("blue" . "lightblue") ;; from here: for Enriched Text
("darkslategray" . "darkgray")
("orange" . "brown")
("light blue" . "lightblue") ;; from here: for cpp-highlight
("light cyan" . "lightcyan")
("light yellow" . "yellow")
("light pink" . "lightred")
("pale green" . "lightgreen")
("beige" . "brown")
("medium purple" . "magenta")
("turquoise" . "lightgreen")
("violet" . "magenta"))
"List of alternate names for colors.")
(defun msdos-color-translate (name)
@ -84,10 +96,10 @@
(defun msdos-face-setup ()
(modify-frame-parameters (selected-frame) default-frame-alist)
(set-face-foreground 'bold "white")
(set-face-foreground 'bold "yellow")
(set-face-foreground 'italic "red")
(set-face-foreground 'bold-italic "yellow")
(set-face-foreground 'underline "blue")
(set-face-foreground 'bold-italic "lightred")
(set-face-foreground 'underline "white")
(set-face-background 'region "green")
(make-face 'msdos-menu-active-face)
@ -136,6 +148,11 @@
(defun x-get-selection (&rest rest) "")
(fset 'x-set-selection 'ignore)
;; From lisp/faces.el: we only have one font, so always return
;; it, no matter which variety they've asked for.
(defun x-frob-font-slant (font which)
font)
;; From lisp/frame.el
(fset 'set-default-font 'ignore)
(fset 'set-mouse-color 'ignore) ; We cannot, I think.