# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 936633468 0
# Node ID 67c224f5cc1ab11d2eee6997cc66a1cc66eaf0b4
# Parent  c4397641ee0e6fb2b80525e07dc4505949cc21a7
(face-bold-p): Don't return t if face has lighter
weight than normal.

diff -r c4397641ee0e -r 67c224f5cc1a lisp/faces.el
--- a/lisp/faces.el	Mon Sep 06 11:47:56 1999 +0000
+++ b/lisp/faces.el	Mon Sep 06 15:57:48 1999 +0000
@@ -370,7 +370,7 @@
 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)