# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1094325078 0
# Node ID 6257efe5587a6230196d2ae3ffeab02d21875113
# Parent  8c69d00e9fac1204f323e9d493212d19c1bfd55d
(facemenu-active-faces): Change condition of inner `while' loop to
also check the first two elements of `face-atts' and `mask-atts'.

diff -r 8c69d00e9fac -r 6257efe5587a lisp/facemenu.el
--- a/lisp/facemenu.el	Sat Sep 04 18:40:13 2004 +0000
+++ b/lisp/facemenu.el	Sat Sep 04 19:11:18 2004 +0000
@@ -617,7 +617,7 @@
 		       (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))))