Mercurial > emacs

changeset 8000:6d0a448be1ec

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(face-equal): Do check the underline attribute.
author Richard M. Stallman <rms@gnu.org>
date Tue, 21 Jun 1994 20:22:56 +0000
parents f1837249c67f
children 1a6bff2bc0e7
files lisp/faces.el
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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))
        ))