`facemenu-set-face' doesn't add face to the Face menu

[Drew Adams]

The doc string of facemenu-set-face says that the chosen face will be
added to the top of the "face list". It's not clear what "face list"
means here, but the impression is that the face will be added to the
Face menu - especially since the code calls `facemenu-add-new-face',
and that function's doc string says that the face is added to the Face
menu.

IOW, I'd guess that the intention is that when you use
`facemenu-set-face' to apply a face to text, that face should then be
added to the Face menu, for quick use thereafter. This is not what
happens now.

The problem seems to be in `facemenu-add-new-face', if
`facemenu-listed-faces' is nil (the default case). The last clause of
the cond doesn't get executed.


In GNU Emacs 22.0.50.1 (i386-msvc-nt5.1.2600)
 of 2006-07-19 on BOS-CTHEWLAP2
X server distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-msvc (12.00)'

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: Text

Minor modes in effect:
  encoded-kbd-mode: t
  tooltip-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
  auto-compression-mode: t
  line-number-mode: t

Recent input:
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<down-mouse-1> <mouse-1> <help-echo> C-x C-f f a c 
e <tab> m <tab> <return> C-x C-f t t t . t x t <tab> 
<return> <down-mouse-1> <mouse-movement> <mouse-movement> 
<drag-mouse-1> C-u <C-down-mouse-2> <fc> o M-p f o 
n t - l o c k - c o m m <tab> f <tab> <return> f d 
C-_ <down-mouse-1> <mouse-movement> <mouse-movement> 
<drag-mouse-1> <C-down-mouse-2> C-h k <C-down-mouse-2> 
<fc> o <return> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <menu-bar> 
<menu-bar> <help-menu> <report-emacs-bug>

Recent messages:
Loading regexp-opt...done
Loading dired...done
Making completion list...
Loading help-mode...done
Loading thingatpt...done
next-history-element: Beginning of history; no preceding item
Undo!
Loading help-fns...done
Type C-x 1 to remove help window.  
Loading emacsbug...done