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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9ea146cd6c628768b38b045e6f79e792b2372ebb..8a535f6e32c2700bbc95d02fbbd799f802806487 100644 (file)
--- 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 dcd26846d10371f4c65d8574ae595a4835c60177..5f9b5094e6cad911baa680888e644132b083ecc8 100644 (file)
--- a/lisp/button.el
+++ b/lisp/button.el
@@ -50,6 +50,7 @@
 \f
 ;; 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 1a868b4537c1434950a42b832a6d2f1493dc301a..e448ab4f13db3303efb146755f5027195725d239 100644 (file)
--- 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."