diff options
| author | Richard M. Stallman | 1994-06-21 20:22:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-06-21 20:22:56 +0000 |
| commit | ae0249dfd8b2e6133ee3fe0f7afcceb08b9d43a0 (patch) | |
| tree | 0556448ce1368625d9526153fc08dd80b2aa9cfe | |
| parent | 697e4895a2d85c1b5170cddc275aa734fb5b38b3 (diff) | |
| download | emacs-ae0249dfd8b2e6133ee3fe0f7afcceb08b9d43a0.tar.gz emacs-ae0249dfd8b2e6133ee3fe0f7afcceb08b9d43a0.zip | |
(face-equal): Do check the underline attribute.
| -rw-r--r-- | lisp/faces.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index cfed0a65d26..8f008a42898 100644 --- a/lisp/faces.el +++ b/lisp/faces.el | |||
| @@ -335,6 +335,7 @@ to NEW-FACE on frame NEW-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 | )) |