Mercurial > emacs
comparison lisp/faces.el @ 8000:6d0a448be1ec
(face-equal): Do check the underline attribute.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 21 Jun 1994 20:22:56 +0000 |
| parents | a64f4117dc04 |
| children | 1bb462fc29fc |
comparison
equal
deleted
inserted
replaced
| 7999:f1837249c67f | 8000:6d0a448be1ec |
|---|---|
| 333 (setq face1 (internal-get-face face1 frame) | 333 (setq face1 (internal-get-face face1 frame) |
| 334 face2 (internal-get-face face2 frame)) | 334 face2 (internal-get-face face2 frame)) |
| 335 (and (equal (face-foreground face1 frame) (face-foreground face2 frame)) | 335 (and (equal (face-foreground face1 frame) (face-foreground face2 frame)) |
| 336 (equal (face-background face1 frame) (face-background face2 frame)) | 336 (equal (face-background face1 frame) (face-background face2 frame)) |
| 337 (equal (face-font face1 frame) (face-font face2 frame)) | 337 (equal (face-font face1 frame) (face-font face2 frame)) |
| 338 (eq (face-underline-p face1 frame) (face-underline-p face2 frame)) | |
| 338 ;; (equal (face-background-pixmap face1 frame) | 339 ;; (equal (face-background-pixmap face1 frame) |
| 339 ;; (face-background-pixmap face2 frame)) | 340 ;; (face-background-pixmap face2 frame)) |
| 340 )) | 341 )) |
| 341 | 342 |
| 342 (defun face-differs-from-default-p (face &optional frame) | 343 (defun face-differs-from-default-p (face &optional frame) |