facemenu-read-color should not be case-sensitive

facemenu-read-color should not be case-sensitive

[Jeff Dwork]

This bug report will be sent to the Free Software Foundation,
not to your local site managers!
Please write in English, because the Emacs maintainers do not have
translators to read other languages for them.

Your bug report will be posted to the bug-gnu-emacs@gnu.org mailing list,
and to the gnu.emacs.bug news group.

In GNU Emacs 21.3.1 (i686-pc-linux-gnu, X toolkit)
 of 2004-01-19 on flashbak
configured using `configure  --prefix=/tool/pandora/.package/emacs-21.3-a --x-includes=/tool/pandora/include --x-libraries=/tool/pandora/lib --without-gif'
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: C
  locale-coding-system: nil
  default-enable-multibyte-characters: t

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

$ emacs -q --no-site-file
M-x set-backgrond-color<return>mistyrose<return>

emacs beeps and says: [No match]

X colors are case insensitive, but facemenu-read-color does a case
sensitive match.  The same bug is present in current CVS.  Patch
below.

Jeff


Recent input:
C-h f f a c e m e n u - r e a d - c o l o r <return> 
C-x o C-e C-b C-b C-b C-b <return> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<menu-bar> <help-menu> <report-emacs-bug>

Recent messages:
Loading disp-table...done
Loading tool-bar...done
Loading image...done
Loading tooltip...done
For information about the GNU Project and its goals, type C-h C-p.
Loading view...done
Loading /tool/pandora/.package/emacs-21.3-a/libexec/emacs/21.3/i686-pc-linux-gnu/fns-21.3.1.el (source)...done
Type C-x 1 to remove help window.  C-M-v to scroll the help.
Note: file is write protected
Loading emacsbug...done


*** facemenu.el Fri Jul  8 13:22:07 2005
--- /tool/pandora/.package/emacs-21.3-a/share/emacs/21.3/lisp/facemenu.el Sat Jan 27 03:48:03 2001
***************
*** 480,490 ****
  ;;;###autoload
  (defun facemenu-read-color (&optional prompt)
    "Read a color using the minibuffer."
!   (let* ((completion-ignore-case t)
! 	 (col (completing-read (or prompt "Color: ") 
! 			       (or facemenu-color-alist
! 				   (mapcar 'list (defined-colors)))
! 			       nil t)))
      (if (equal "" col)
  	nil
        col)))
--- 480,489 ----
  ;;;###autoload
  (defun facemenu-read-color (&optional prompt)
    "Read a color using the minibuffer."
!   (let ((col (completing-read (or prompt "Color: ") 
! 			      (or facemenu-color-alist
! 				  (mapcar 'list (defined-colors)))
! 			      nil t)))
      (if (equal "" col)
  	nil
        col)))


-- 
Jeff Dwork                     | jeff.dwork@amd.com  408-307-2496 (cell)
Advanced Micro Devices, M/S 362| 408-749-5216 (desk) 408-774-7811 (fax)
PO Box 3453                    |----------------------------------------
Sunnyvale, Ca 94088-3453       |