(escape-glyph, minibuffer-prompt, button): Add commentary for

the reasons we use "type pc" in these faces.

3 files changed, 13 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9ea146cd6c6..8a535f6e32c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2005-02-19  Eli Zaretskii  <eliz@gnu.org>
+
+	* faces.el (escape-glyph, minibuffer-prompt): Add commentary for
+	the reasons we use "type pc" in these faces.
+
+	* button.el (button): Ditto.
+
 2005-02-19  Michael Mauger  <mmaug@yahoo.com>
 
 	* replace.el (query-replace-read-from): Set the value of
diff --git a/lisp/button.el b/lisp/button.el
index dcd26846d10..5f9b5094e6c 100644
--- a/lisp/button.el
+++ b/lisp/button.el
@@ -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 --git a/lisp/faces.el b/lisp/faces.el
index 1a868b4537c..e448ab4f13d 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1880,6 +1880,9 @@ created."
 
 
 (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 @@ Note: Other faces cannot inherit from the cursor face."
   :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."