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

[Luc Teirlinck]

Index: emacs/lisp/facemenu.el
diff -c emacs/lisp/facemenu.el:1.72 emacs/lisp/facemenu.el:1.73
*** emacs/lisp/facemenu.el:1.72 Thu May 20 16:56:35 2004
--- emacs/lisp/facemenu.el      Sat Sep  4 19:11:18 2004
***************
*** 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))))