changeset 25561:67c224f5cc1a

(face-bold-p): Don't return t if face has lighter weight than normal.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 06 Sep 1999 15:57:48 +0000
parents c4397641ee0e
children 374f4e51615c
files lisp/faces.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)