[Emacs-diffs] Changes to emacs/lisp/facemenu.el

[Richard M . Stallman]

Index: emacs/lisp/facemenu.el
diff -c emacs/lisp/facemenu.el:1.83 emacs/lisp/facemenu.el:1.84
*** emacs/lisp/facemenu.el:1.83 Mon Jul  4 23:08:54 2005
--- emacs/lisp/facemenu.el      Sun Jul 10 17:20:02 2005
***************
*** 475,484 ****
  ;;;###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)))
      (if (equal "" col)
        nil
        col)))
--- 475,485 ----
  ;;;###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
!                                  (defined-colors))
!                              nil t)))
      (if (equal "" col)
        nil
        col)))