From 5bcc074b491800c5787ae61c7437a2e1cbd6657c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 10 Jul 2005 17:20:02 +0000 Subject: [PATCH] (facemenu-read-color): Do case-insensitive matching. --- lisp/facemenu.el | 9 +++++---- 1 file 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))) -- 2.39.2