facemenu-color-alist never gets set?

[Drew Adams]

emacs -q
C-h v facemenu-color-alist shows this:

 facemenu-color-alist is a variable defined in `facemenu.el'.
 Its value is nil

 Documentation:
 Alist of colors, used for completion.
 If null, `facemenu-read-color' will set it.

I don't see this, either in the code or in practice. It never seems to
get set, beyond nil.

M-: (facemenu-read-color), then enter "green", then C-h v
facemenu-color-alist still shows it to be nil.



In GNU Emacs 22.0.50.1 (i386-mingw-nt5.1.2600)
 of 2006-03-20 on W2ONE
X server distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-gcc (3.4) --cflags -Id:/g/include'

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: ENU
  locale-coding-system: cp1252
  default-enable-multibyte-characters: t

Major mode: Emacs-Lisp

Minor modes in effect:
  encoded-kbd-mode: t
  tooltip-mode: t
  auto-compression-mode: t
  tool-bar-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  line-number-mode: t

Recent input:
<down-mouse-1> <mouse-1> C-h v f a c e m e n u - c 
o l o r - <tab> <return> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <down-mouse-2> 
<mouse-2> <wheel-down> <down-mouse-1> <mouse-1> C-s 
C-w C-w C-w C-s C-a <down-mouse-1> <mouse-1> M-: ( 
f a m c <backspace> <backspace> c e m e n u - r e a 
d - c o l o r SPC <backspace> ) <return> g r e e n 
<return> <down-mouse-1> <mouse-1> C-h v <return> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <down-mouse-1> 
<mouse-1> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <menu-bar> 
<help-menu> <report-emacs-bug>

Recent messages:
Loading dired...done
Loading help-fns...done
Loading pp...done
Type C-x 1 to remove help window.  
Loading find-func...done
Loading vc-cvs...done
Mark saved where search started
"green"
Type C-x 4 b RET to restore the other window.  
Loading emacsbug...done