From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 21 Jun 1994 20:22:56 +0000 (+0000)
Subject: (face-equal): Do check the underline attribute.
X-Git-Tag: emacs-19.34~7853
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ae0249dfd8b2e6133ee3fe0f7afcceb08b9d43a0;p=emacs.git

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

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))
        ))