gnu-emacs-sources
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]