diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2004-09-04 19:13:40 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2004-09-04 19:13:40 +0000 |
| commit | 240c0c90e557cd161e22f1255b580076ee5d4d93 (patch) | |
| tree | fd703a97f465188cefec770a29dfeda7cba76504 /lisp/facemenu.el | |
| parent | 8e7344567875c6d08789b2437f31c9e931bf9d04 (diff) | |
| download | emacs-240c0c90e557cd161e22f1255b580076ee5d4d93.tar.gz | |
(facemenu-active-faces): Change condition of inner `while' loop to
also check the first two elements of `face-atts' and `mask-atts'.
Diffstat (limited to 'lisp/facemenu.el')
| -rw-r--r-- | lisp/facemenu.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)))) |