From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 10 Jul 2005 17:20:02 +0000 (+0000)
Subject: (facemenu-read-color): Do case-insensitive matching.
X-Git-Tag: emacs-pretest-22.0.90~8246
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5bcc074b491800c5787ae61c7437a2e1cbd6657c;p=emacs.git

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

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)))