# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1121016002 0
# Node ID 11c1d62f46ae67945f43fbd8dc1786dbc649936c
# Parent  3e480e2df3351a12c5b6382b1b4af516b51cb022
(facemenu-read-color): Do case-insensitive matching.

diff -r 3e480e2df335 -r 11c1d62f46ae lisp/facemenu.el
--- a/lisp/facemenu.el	Sun Jul 10 17:19:28 2005 +0000
+++ b/lisp/facemenu.el	Sun Jul 10 17:20:02 2005 +0000
@@ -475,10 +475,11 @@
 ;;;###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)))