1 files changed, 5 insertions, 0 deletions

diff --git a/lisp/faces.el b/lisp/faces.el
index cc6b5d0f8df..936e0a132a4 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1910,6 +1910,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."
@@ -2077,6 +2080,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."