Mercurial > emacs
comparison lisp/facemenu.el @ 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 | d2c247888af6 |
| children | 6b794a66a256 cce1c0ee76ee |
comparison
equal
deleted
inserted
replaced
| 56935:8c69d00e9fac | 56936:6257efe5587a |
|---|---|
| 615 (face-attributes-as-vector (car face-list)) | 615 (face-attributes-as-vector (car face-list)) |
| 616 (or (internal-lisp-face-p (car face-list) frame) | 616 (or (internal-lisp-face-p (car face-list) frame) |
| 617 (check-face (car face-list))))) | 617 (check-face (car face-list))))) |
| 618 (i mask-len) | 618 (i mask-len) |
| 619 (useful nil)) | 619 (useful nil)) |
| 620 (while (> (setq i (1- i)) 1) | 620 (while (>= (setq i (1- i)) 0) |
| 621 (and (not (memq (aref face-atts i) '(nil unspecified))) | 621 (and (not (memq (aref face-atts i) '(nil unspecified))) |
| 622 (memq (aref mask-atts i) '(nil unspecified)) | 622 (memq (aref mask-atts i) '(nil unspecified)) |
| 623 (aset mask-atts i (setq useful t)))) | 623 (aset mask-atts i (setq useful t)))) |
| 624 useful) | 624 useful) |
| 625 (setq active-list (cons (car face-list) active-list))) | 625 (setq active-list (cons (car face-list) active-list))) |