diff options
Diffstat (limited to 'lisp')
| -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))) |