Mercurial > emacs

changeset 64211:11c1d62f46ae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(facemenu-read-color): Do case-insensitive matching.
author Richard M. Stallman <rms@gnu.org>
date Sun, 10 Jul 2005 17:20:02 +0000
parents 3e480e2df335
children 2cf2651a3a37
files lisp/facemenu.el
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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)))