Re: More visible mini-buffer prompt face

[Lennart Borgman (gmail)]

Richard Stallman wrote:
>     I wonder if it would not be better to have a more visible face for the 
>     minibuffer prompt by default. My suggestion would be using a visible 
>     background color (some not too sharp yellow perhaps).
>
> What color do you get now?

Dark blue text on white.

> Which of the options in the defface is being used?
> Could you propose a patch in that defface?

The face used is minibuffer-prompt, see below. I have made a new 
suggestion for the default. This is modelled after secondary-selection 
face to avoid to big surprises. For light background this face has a 
yellow background. AFAIU yellow is often used to draw attention on 
different signs in our culture and that makes it a good choice here.

I selected a somewhat darker yellow variant of the named colors which I 
personally find more pleasant. Though I do not know if this color fits 
the (min-colors 88).

However it does not seem that the support for my idea is very big at the 
moment ;-)


Index: faces.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/faces.el,v
retrieving revision 1.366
diff -u -r1.366 faces.el
--- faces.el    14 Feb 2007 15:31:09 -0000      1.366
+++ faces.el    23 Feb 2007 20:14:56 -0000
@@ -2134,12 +2134,20 @@
   :version "22.1"
   :group 'basic-faces)

+;; Modelled after secondary-selection face.
+;; Suggested on Emacs Devel as usual.
 (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"))
+  '((((class color) (min-colors 88) (background light))
+     :background "gold")
+    (((class color) (min-colors 88) (background dark))
+     :background "SkyBlue4")
+    (((class color) (min-colors 16) (background light))
+     :background "yellow")
+    (((class color) (min-colors 16) (background dark))
+     :background "SkyBlue4")
+    (((class color) (min-colors 8))
+     :background "cyan" :foreground "black")
+    (t :inverse-video t))
   "Face for minibuffer prompts.
 By default, Emacs automatically adds this face to the value of
 `minibuffer-prompt-properties', which is a list of text properties