1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-07 04:10:27 -08:00

(face-bold-p): Don't return t if face has lighter

weight than normal.
This commit is contained in:
Gerd Moellmann 1999-09-06 15:57:48 +00:00
parent 128d940d04
commit da2c7b8cd5

View file

@ -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)