From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 11 Aug 1997 01:18:29 +0000 (+0000)
Subject: (msdos-color-aliases): Remove color names which end with a number.
X-Git-Tag: emacs-20.1~658
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c13c88d74dc71fe00c22eb81bf887cc7d193ce55;p=emacs.git

(msdos-color-aliases): Remove color names which end with a number.
(msdos-color-translate): Handle color names which end with a
number, like gray85 and purple3.
(msdos-face-setup): Call `face-set-after-frame-default', so
default faces are correctly set.
Do not set background of the region face (it is set by
`face-set-after-frame-default').
---

diff --git a/lisp/term/pc-win.el b/lisp/term/pc-win.el
index 8ee6a0b88de..a29c14920bf 100644
--- a/lisp/term/pc-win.el
+++ b/lisp/term/pc-win.el
@@ -131,9 +131,6 @@
     ("light gray"	. "lightgray")
     ("gray"		. "darkgray")
     ("grey"		. "darkgray")
-    ("gray80"		. "darkgray")
-    ("gray50"		. "black")
-    ("gray90"		. "darkgray")
     ("khaki"		. "green")
     ("maroon"		. "red")
     ("orange"		. "brown")
@@ -165,7 +162,6 @@
     ("greenyellow"	. "yellow")
     ("purple"		. "magenta")
     ("royalblue"	. "blue")
-    ("grey40"		. "darkgray")
     ("rosybrown"	. "brown")
     ("rosy brown"	. "brown")
     ("beige"		. "brown"))
@@ -200,7 +196,26 @@
 	     (msdos-color-translate (substring name 4)))
 	(and (> len 5)
 	     (string= "dark " (substring name 0 5))
-	     (msdos-color-translate (substring name 5))))))
+	     (msdos-color-translate (substring name 5)))
+	(and (> len 4) ;; gray shades: gray0 to gray100
+	     (save-match-data
+	       (and
+		(string-match "gr[ae]y[0-9]" name)
+		(string-match "[0-9]+\\'" name)
+		(let ((num (string-to-int
+			    (substring name (match-beginning 0)))))
+		  (msdos-color-translate
+		   (cond
+		    ((> num 90) "white")
+		    ((> num 50) "lightgray")
+		    ((> num 10) "darkgray")
+		    (t "black")))))))
+	(and (> len 1) ;; purple1 to purple4 and the like
+	     (save-match-data
+	       (and
+		(string-match "[1-4]\\'" name)
+		(msdos-color-translate
+		 (substring name 0 (match-beginning 0)))))))))
 ;; ---------------------------------------------------------------------------
 ;; We want to delay setting frame parameters until the faces are setup
 (defvar default-frame-alist nil)
@@ -217,11 +232,16 @@
 (defun msdos-face-setup ()
   (modify-frame-parameters terminal-frame default-frame-alist)
 
+  (modify-frame-parameters terminal-frame
+			   (list (cons 'background-mode
+				       (msdos-bg-mode terminal-frame))
+				 (cons 'display-type 'color)))
+  (face-set-after-frame-default terminal-frame)
+
   (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)
@@ -230,11 +250,7 @@
   (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)
-  (modify-frame-parameters terminal-frame
-			   (list (cons 'background-mode
-				       (msdos-bg-mode terminal-frame))
-				 (cons 'display-type 'color))))
+  (set-face-background 'msdos-menu-select-face "red" terminal-frame))
 
 ;; We have only one font, so...
 (add-hook 'before-init-hook 'msdos-face-setup)