# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 772230176 0
# Node ID 6d0a448be1ec52bca679615e388b25382a7e7db0
# Parent  f1837249c67f31299aa59f4597f5c60c8d49c1f3
(face-equal): Do check the underline attribute.

diff -r f1837249c67f -r 6d0a448be1ec lisp/faces.el
--- a/lisp/faces.el	Tue Jun 21 19:47:44 1994 +0000
+++ b/lisp/faces.el	Tue Jun 21 20:22:56 1994 +0000
@@ -335,6 +335,7 @@
   (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))
        ))