Mercurial > emacs

comparison lisp/facemenu.el @ 89971:cce1c0ee76ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-36 Merge from emacs--cvs-trunk--0, emacs--gnus--5.10, gnus--rel--5.10 Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523 Merge from emacs--gnus--5.10, gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-524 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-534 Update from CVS * miles@gnu.org--gnu-2004/emacs--gnus--5.10--base-0 tag of miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-464 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-1 Import from CVS branch gnus-5_10-branch * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-2 Merge from lorentey@elte.hu--2004/emacs--multi-tty--0, emacs--cvs-trunk--0 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-3 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-4 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-18 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-19 Remove autoconf-generated files from archive * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-20 Update from CVS
author Miles Bader <miles@gnu.org>
date Thu, 09 Sep 2004 09:36:36 +0000
parents 4c90ffeb71c5 6257efe5587a
children cb67264d6096
comparison
equal deleted inserted replaced
89970:a849e5779b8c 89971:cce1c0ee76ee
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)))