mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

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

Browse Source 
weight than normal.
This commit is contained in:
Gerd Moellmann 1999-09-06 15:57:48 +00:00
parent 128d940d04
commit da2c7b8cd5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/faces.el
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)