procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(facemenu-read-color): Do case-insensitive matching.

Browse source
This commit is contained in:
Richard M. Stallman 2005-07-10 17:20:02 +00:00
parent f44c13705f
commit 5bcc074b49
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/facemenu.el
View file

@ -475,10 +475,11 @@ These special properties include `invisible', `intangible' and `read-only'."
;;;###autoload
(defun facemenu-read-color (&optional prompt)
"Read a color using the minibuffer."
(let ((col (completing-read (or prompt "Color: ")
(or facemenu-color-alist
(defined-colors))
nil t)))
(let* ((completion-ignore-case t)
(col (completing-read (or prompt "Color: ")
(or facemenu-color-alist
(defined-colors))
nil t)))
(if (equal "" col)
nil
col)))