diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/facemenu.el | 2 |
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)))) |