From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 6 Sep 1999 15:57:48 +0000 (+0000)
Subject: (face-bold-p): Don't return t if face has lighter
X-Git-Tag: emacs-pretest-21.0.90~6881
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=da2c7b8cd5a2ed62228663f2b57339f748fb7e7d;p=emacs.git

(face-bold-p): Don't return t if face has lighter
weight than normal.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index 22fdc20855d..2fef37d49b8 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -370,7 +370,7 @@ If FRAME is t, report on the defaults for face FACE (for new frames).
 If FRAME is omitted or nil, use the selected frame.
 Use `face-attribute' for finer control."
   (let ((bold (face-attribute face :weight frame)))
-    (not (memq bold '(normal unspecified)))))
+    (memq bold '(semi-bold bold extra-bold ultra-bold))))
 
 
 (defun face-italic-p (face &optional frame)