Mercurial > emacs
comparison lisp/faces.el @ 4122:82f0b478a551
(face-equal): Don't mess with face-background-pixmap.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 18 Jul 1993 04:44:27 +0000 |
| parents | 465c6787d6dd |
| children | e7ab04f23df5 |
comparison
equal
deleted
inserted
replaced
| 4121:25d32add267c | 4122:82f0b478a551 |
|---|---|
| 320 (setq face1 (internal-get-face face1 frame) | 320 (setq face1 (internal-get-face face1 frame) |
| 321 face2 (internal-get-face face2 frame)) | 321 face2 (internal-get-face face2 frame)) |
| 322 (and (equal (face-foreground face1 frame) (face-foreground face2 frame)) | 322 (and (equal (face-foreground face1 frame) (face-foreground face2 frame)) |
| 323 (equal (face-background face1 frame) (face-background face2 frame)) | 323 (equal (face-background face1 frame) (face-background face2 frame)) |
| 324 (equal (face-font face1 frame) (face-font face2 frame)) | 324 (equal (face-font face1 frame) (face-font face2 frame)) |
| 325 (equal (face-background-pixmap face1 frame) | 325 ;; (equal (face-background-pixmap face1 frame) |
| 326 (face-background-pixmap face2 frame)))) | 326 ;; (face-background-pixmap face2 frame)) |
| 327 )) | |
| 327 | 328 |
| 328 (defun face-differs-from-default-p (face &optional frame) | 329 (defun face-differs-from-default-p (face &optional frame) |
| 329 "True if face FACE displays differently from the default face, on FRAME. | 330 "True if face FACE displays differently from the default face, on FRAME. |
| 330 A face is considered to be ``the same'' as the default face if it is | 331 A face is considered to be ``the same'' as the default face if it is |
| 331 actually specified in the same way (equivalent fonts, etc) or if it is | 332 actually specified in the same way (equivalent fonts, etc) or if it is |