(face-equal): Do check the underline attribute.

This commit is contained in:
Richard M. Stallman 1994-06-21 20:22:56 +00:00
parent 697e4895a2
commit ae0249dfd8

View file

@ -335,6 +335,7 @@ to NEW-FACE on frame NEW-FRAME."
(and (equal (face-foreground face1 frame) (face-foreground face2 frame))
(equal (face-background face1 frame) (face-background face2 frame))
(equal (face-font face1 frame) (face-font face2 frame))
(eq (face-underline-p face1 frame) (face-underline-p face2 frame))
;; (equal (face-background-pixmap face1 frame)
;; (face-background-pixmap face2 frame))
))