Patch for bug in facemenu.el

[Luc Teirlinck]

Do `emacs -q'

C-x C-f enr.text  M-x enriched-mode

Insert: qqq

C-x h
M-g l

Now all q's are in bold italic.

C-x h
M-x facemenu-set-foreground RET green

Now the q's are green, but no longer bold or italic.

I believe that this is a bug.

The following small patch would fix this.

===File ~/facemenu.el-diff==================================
*** facemenu.el 20 May 2004 12:11:30 -0500      1.72
--- facemenu.el 01 Sep 2004 17:39:21 -0500      
***************
*** 617,623 ****
                       (check-face (car face-list)))))
                (i mask-len)
                (useful nil))
!           (while (> (setq i (1- i)) 1)
              (and (not (memq (aref face-atts i) '(nil unspecified)))
                   (memq (aref mask-atts i) '(nil unspecified))
                   (aset mask-atts i (setq useful t))))
--- 617,623 ----
                       (check-face (car face-list)))))
                (i mask-len)
                (useful nil))
!           (while (>= (setq i (1- i)) 0)
              (and (not (memq (aref face-atts i) '(nil unspecified)))
                   (memq (aref mask-atts i) '(nil unspecified))
                   (aset mask-atts i (setq useful t))))
============================================================