[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: minicolor.el --- place a face on the minibuffer prompt
From: |
Vinicius Jose Latorre |
Subject: |
Re: minicolor.el --- place a face on the minibuffer prompt |
Date: |
Tue, 18 Dec 2001 14:34:50 -0200 |
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