From ae0249dfd8b2e6133ee3fe0f7afcceb08b9d43a0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 21 Jun 1994 20:22:56 +0000 Subject: [PATCH] (face-equal): Do check the underline attribute. --- lisp/faces.el | 1 + 1 file changed, 1 insertion(+) 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." (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)) ))