(facemenu-active-faces): Change condition of inner `while' loop to

also check the first two elements of `face-atts' and `mask-atts'.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e5ba5f23c03..f3ccc6f6099 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2004-09-04  Luc Teirlinck  <teirllm@auburn.edu>
+
+        * facemenu.el (facemenu-active-faces): Change condition of inner
+        `while' loop to also check the first two elements of `face-atts'
+        and `mask-atts'.
+
 2004-09-04  John Paul Wallington  <jpw@gnu.org>
 
         * thumbs.el (thumbs-view-image-mode-map): Fix command name typo.
diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index e9af58fc73d..c6cce457fe6 100644
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -617,7 +617,7 @@ use the selected frame.  If t, then the global, non-frame faces are used."
                        (check-face (car face-list)))))
                 (i mask-len)
                 (useful nil))
-            (while (> (setq i (1- i)) 1)
+            (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))))