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

diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index 55ddf663b281092a3d941096422fd6188373d391..1cda18dda2edc52f5849cc0c27b4a25edabd9fa5 100644 (file)
--- 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)))