diff options
author | Richard M. Stallman <rms@gnu.org> | 2005-07-10 17:20:02 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2005-07-10 17:20:02 +0000 |
commit | 5bcc074b491800c5787ae61c7437a2e1cbd6657c (patch) | |
tree | a109f726385f405f2fb3b001368d11b4a94c7ef6 /lisp/facemenu.el | |
parent | f44c13705f7749f95153296e66e2475e43399def (diff) | |
download | emacs-5bcc074b491800c5787ae61c7437a2e1cbd6657c.tar.gz |
(facemenu-read-color): Do case-insensitive matching.
Diffstat (limited to 'lisp/facemenu.el')
-rw-r--r-- | lisp/facemenu.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/facemenu.el b/lisp/facemenu.el index 55ddf663b28..1cda18dda2e 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el @@ -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))) |