# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1108819560 0
# Node ID 82eaf594d12a59a82cc3a574efae96878366353b
# Parent  b070535d2416f4bef099712e54c99cffb37b9097
(escape-glyph, minibuffer-prompt, button): Add commentary for
the reasons we use "type pc" in these faces.

diff -r b070535d2416 -r 82eaf594d12a lisp/button.el
--- a/lisp/button.el	Sat Feb 19 13:24:16 2005 +0000
+++ b/lisp/button.el	Sat Feb 19 13:26:00 2005 +0000
@@ -50,6 +50,7 @@
 
 ;; Globals
 
+;; Use color for the MS-DOS port because it doesn't support underline.
 (defface button '((((type pc) (class color))
 		   (:foreground "lightblue"))
 		  (t :underline t))
diff -r b070535d2416 -r 82eaf594d12a lisp/faces.el
--- a/lisp/faces.el	Sat Feb 19 13:24:16 2005 +0000
+++ b/lisp/faces.el	Sat Feb 19 13:26:00 2005 +0000
@@ -1880,6 +1880,9 @@
 
 
 (defface minibuffer-prompt '((((background dark)) :foreground "cyan")
+			     ;; Don't use blue because many users of
+			     ;; the MS-DOS port customize their
+			     ;; foreground color to be blue.
 			     (((type pc)) :foreground "magenta")
 			     (t :foreground "dark blue"))
   "Face for minibuffer prompts."
@@ -2047,6 +2050,8 @@
   :group 'basic-faces)
 
 (defface escape-glyph '((((background dark)) :foreground "cyan")
+			;; See the comment in minibuffer-prompt for
+			;; the reason not to use blue on MS-DOS.
 			(((type pc)) :foreground "magenta")
 			(t :foreground "blue"))
   "Face for characters displayed as ^-sequences or \-sequences."