Mercurial > emacs
diff lisp/facemenu.el @ 90201:fbb2bea03df9
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-69
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 474-484)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 88-91)
- Merge from emacs--cvs-trunk--0
- Update FSF's address in GPL notices
- Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Thu, 14 Jul 2005 08:02:00 +0000 |
parents | f9a65d7ebd29 11c1d62f46ae |
children | 2d92f5c9d6ae |
line wrap: on
line diff
--- a/lisp/facemenu.el Thu Jul 07 12:43:14 2005 +0000 +++ b/lisp/facemenu.el Thu Jul 14 08:02:00 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)))