Mercurial > emacs
comparison lisp/faces.el @ 2906:ca9bf00d4b19
* xfaces.el (face-equal): Doc fix.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Wed, 19 May 1993 19:48:38 +0000 |
| parents | 9c22af6d7885 |
| children | c6c6e476d93d |
comparison
equal
deleted
inserted
replaced
| 2905:be10f559ebe4 | 2906:ca9bf00d4b19 |
|---|---|
| 306 (set-face-underline-p new-face (face-underline-p old-face frame) | 306 (set-face-underline-p new-face (face-underline-p old-face frame) |
| 307 frame)) | 307 frame)) |
| 308 new-face)) | 308 new-face)) |
| 309 | 309 |
| 310 (defun face-equal (face1 face2 &optional frame) | 310 (defun face-equal (face1 face2 &optional frame) |
| 311 "True if the faces FACE1 and FACE2 display in the the same way." | 311 "True if the faces FACE1 and FACE2 display in the same way." |
| 312 (setq face1 (internal-get-face face1 frame) | 312 (setq face1 (internal-get-face face1 frame) |
| 313 face2 (internal-get-face face2 frame)) | 313 face2 (internal-get-face face2 frame)) |
| 314 (and (equal (face-foreground face1 frame) (face-foreground face2 frame)) | 314 (and (equal (face-foreground face1 frame) (face-foreground face2 frame)) |
| 315 (equal (face-background face1 frame) (face-background face2 frame)) | 315 (equal (face-background face1 frame) (face-background face2 frame)) |
| 316 (equal (face-font face1 frame) (face-font face2 frame)) | 316 (equal (face-font face1 frame) (face-font face2 frame)) |