From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 22 Nov 1995 13:44:42 +0000 (+0000)
Subject: (msdos-color-aliases): Add more aliases.
X-Git-Tag: emacs-19.34~2232
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea6401d799e32a17523a65bf01f9e106e283be74;p=emacs.git

(msdos-color-aliases): Add more aliases.
(msdos-face-setup): Change colors for bold, bold-italic, underline.
(x-frob-font-slant): Define as no-op.
---

diff --git a/lisp/term/pc-win.el b/lisp/term/pc-win.el
index 8e888c674b4..95b8cfc0c31 100644
--- a/lisp/term/pc-win.el
+++ b/lisp/term/pc-win.el
@@ -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.