Mercurial > hg > xemacs-beta

comparison lisp/faces.el @ 286:57709be46d1b r21-0b41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b41
author cvs
date Mon, 13 Aug 2007 10:35:03 +0200
parents 558f606b08ae
children e11d67e05968
comparison
equal deleted inserted replaced
285:9a3756523c1b 286:57709be46d1b
767 767
768 (defun face-differs-from-default-p (face &optional domain) 768 (defun face-differs-from-default-p (face &optional domain)
769 "Return t if FACE will display differently from the default face in DOMAIN. 769 "Return t if FACE will display differently from the default face in DOMAIN.
770 See `face-property-instance' for the semantics of the DOMAIN argument." 770 See `face-property-instance' for the semantics of the DOMAIN argument."
771 (not (face-equal face 'default domain))) 771 (not (face-equal face 'default domain)))
772
773 ; moved from x-faces.el
774 (defun try-font-name (name &optional device)
775 ;; yes, name really should be here twice.
776 (and name (make-font-instance name device t) name))
772 777
773 778
774 ;; This function is a terrible, disgusting hack!!!! Need to 779 ;; This function is a terrible, disgusting hack!!!! Need to
775 ;; separate out the font elements as separate face properties! 780 ;; separate out the font elements as separate face properties!
776 781