Mercurial > emacs
comparison lisp/facemenu.el @ 64211:11c1d62f46ae
(facemenu-read-color): Do case-insensitive matching.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 10 Jul 2005 17:20:02 +0000 |
| parents | 6fb026ad601f |
| children | 41bb365f41c4 fbb2bea03df9 |
comparison
equal
deleted
inserted
replaced
| 64210:3e480e2df335 | 64211:11c1d62f46ae |
|---|---|
| 473 start end '(invisible nil intangible nil read-only nil)))) | 473 start end '(invisible nil intangible nil read-only nil)))) |
| 474 | 474 |
| 475 ;;;###autoload | 475 ;;;###autoload |
| 476 (defun facemenu-read-color (&optional prompt) | 476 (defun facemenu-read-color (&optional prompt) |
| 477 "Read a color using the minibuffer." | 477 "Read a color using the minibuffer." |
| 478 (let ((col (completing-read (or prompt "Color: ") | 478 (let* ((completion-ignore-case t) |
| 479 (or facemenu-color-alist | 479 (col (completing-read (or prompt "Color: ") |
| 480 (defined-colors)) | 480 (or facemenu-color-alist |
| 481 nil t))) | 481 (defined-colors)) |
| 482 nil t))) | |
| 482 (if (equal "" col) | 483 (if (equal "" col) |
| 483 nil | 484 nil |
| 484 col))) | 485 col))) |
| 485 | 486 |
| 486 ;;;###autoload | 487 ;;;###autoload |