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

[Richard Stallman]

I think this will make the doc strings correct.  Thanks.

*** facemenu.el 03 Jul 2006 11:14:40 -0400      1.88
--- facemenu.el 06 Aug 2006 14:23:14 -0400      
***************
*** 321,338 ****
  ;;;###autoload
  (defun facemenu-set-face (face &optional start end)
    "Add FACE to the region or next character typed.
- This adds FACE to the top of the face list; any faces lower on the list that
- will not show through at all will be removed.
  
! Interactively, reads the face name with the minibuffer.
  
! If the region is active (normally true except in Transient Mark mode)
! and there is no prefix argument, this command sets the region to the
! requested face.
! 
! Otherwise, this command specifies the face for the next character
! inserted.  Moving point or switching buffers before
! typing a character to insert cancels the specification."
    (interactive (list (progn
                       (barf-if-buffer-read-only)
                       (read-face-name "Use face"))
--- 321,341 ----
  ;;;###autoload
  (defun facemenu-set-face (face &optional start end)
    "Add FACE to the region or next character typed.
  
! If the region is active (normally true except in Transient
! Mark mode) and there is no prefix argument, this command
! adds FACE to the region.  Otherwise, this command adds FACE
! to the faces to use for the next character
! inserted.  (Moving point or switching buffers before typing
! a character to insert cancels the specification.)
! 
! To \"add FACE\" means putting FACE at the front of the list
! of faces to be used.  It also removes any faces further
! along in the list that would be completely overridden by
! preceding faces (including FACE).
  
! This command also adds FACE to the menu of faces
! if `facemenu-listed-faces' says to do that."
    (interactive (list (progn
                       (barf-if-buffer-read-only)
                       (read-face-name "Use face"))
***************
*** 655,663 ****
      (nreverse active-list)))
  
  (defun facemenu-add-new-face (face)
!   "Add FACE (a face) to the Face menu.
! 
! This is called whenever you create a new face."
    (let* (name
         symbol
         menu docstring
--- 658,665 ----
      (nreverse active-list)))
  
  (defun facemenu-add-new-face (face)
!   "Add FACE (a face) to the Face menu if `facemenu-listed-faces' says so.
! This is called whenever you create a new face, and at other times."
    (let* (name
         symbol
         menu docstring