Mercurial > emacs
changeset 56936:6257efe5587a
(facemenu-active-faces): Change condition of inner `while' loop to
also check the first two elements of `face-atts' and `mask-atts'.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Sat, 04 Sep 2004 19:11:18 +0000 |
| parents | 8c69d00e9fac |
| children | 3f1cdaf7990a |
| files | lisp/facemenu.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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))))