Mercurial > hg > xemacs-beta

comparison lisp/faces.el @ 284:558f606b08ae r21-0b40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b40
author cvs
date Mon, 13 Aug 2007 10:34:13 +0200
parents c5d627a313b1
children 57709be46d1b
comparison
equal deleted inserted replaced
283:fa3d41851a08 284:558f606b08ae
749 (if (null domain) (setq domain (selected-window))) 749 (if (null domain) (setq domain (selected-window)))
750 (if (not (valid-specifier-domain-p domain)) 750 (if (not (valid-specifier-domain-p domain))
751 (error "Invalid specifier domain")) 751 (error "Invalid specifier domain"))
752 (let ((device (dfw-device domain)) 752 (let ((device (dfw-device domain))
753 (common-props '(foreground background font display-table underline)) 753 (common-props '(foreground background font display-table underline))
754 (x-props '(background-pixmap strikethru)) 754 (win-props '(background-pixmap strikethru))
755 (tty-props '(highlight dim blinking reverse))) 755 (tty-props '(highlight dim blinking reverse)))
756 756
757 ;; First check the properties which are used in common between the 757 ;; First check the properties which are used in common between the
758 ;; x and tty devices. Then, check those properties specific to 758 ;; x and tty devices. Then, check those properties specific to
759 ;; the particular device type. 759 ;; the particular device type.
760 (and (face-equal-loop common-props face1 face2 domain) 760 (and (face-equal-loop common-props face1 face2 domain)
761 (cond ((eq 'tty (device-type device)) 761 (cond ((eq 'tty (device-type device))
762 (face-equal-loop tty-props face1 face2 domain)) 762 (face-equal-loop tty-props face1 face2 domain))
763 ((eq 'x (device-type device)) 763 ((or (eq 'x (device-type device))
764 (face-equal-loop x-props face1 face2 domain)) 764 (eq 'mswindows (device-type device)))
765 (face-equal-loop win-props face1 face2 domain))
765 (t t))))) 766 (t t)))))
766 767
767 (defun face-differs-from-default-p (face &optional domain) 768 (defun face-differs-from-default-p (face &optional domain)
768 "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.
769 See `face-property-instance' for the semantics of the DOMAIN argument." 770 See `face-property-instance' for the semantics of the DOMAIN argument."