Re: minicolor.el --- place a face on the minibuffer prompt

[Vinicius Jose Latorre]

Hi Burton,


> ;;; minicolor.el --- place a face on the minibuffer prompt

I made these changes:

===================================================================== BEGIN
(defcustom minibuffer-face 'minibuffer-face
  "*Specify face used to color the minibuffer."
  :type 'face
  :group 'faces)

(defface minibuffer-face
  '((((class color))
     (:bold t :background "LightYellow" :foreground "OliveDrab"))
    (t (:bold t :foreground "yellow")))
  "Face used to color the minibuffer.")


;; The default minibuffer-prompt-properties should look something like this.
;; (setq minibuffer-prompt-properties
;;       '(read-only t point-entered minibuffer-avoid-prompt))

(let ((face (cdr (memq 'face minibuffer-prompt-properties))))
  (if face
      (setcar face minibuffer-face)
    (setq minibuffer-prompt-properties
          (append minibuffer-prompt-properties
                  (list 'face 'minibuffer-face)))))


(provide 'minicolor)
======================================================================= END


Bye,


Vinicius