diff options
| author | Gerd Moellmann | 1999-09-06 15:57:48 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 1999-09-06 15:57:48 +0000 |
| commit | da2c7b8cd5a2ed62228663f2b57339f748fb7e7d (patch) | |
| tree | 82b37c0c84738cffa4f1e31bddc2320896a7a130 | |
| parent | 128d940d04dd764de695e828976961119e24d786 (diff) | |
| download | emacs-da2c7b8cd5a2ed62228663f2b57339f748fb7e7d.tar.gz emacs-da2c7b8cd5a2ed62228663f2b57339f748fb7e7d.zip | |
(face-bold-p): Don't return t if face has lighter
weight than normal.
| -rw-r--r-- | lisp/faces.el | 2 |
1 files changed, 1 insertions, 1 deletions
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). | |||
| 370 | If FRAME is omitted or nil, use the selected frame. | 370 | If FRAME is omitted or nil, use the selected frame. |
| 371 | Use `face-attribute' for finer control." | 371 | Use `face-attribute' for finer control." |
| 372 | (let ((bold (face-attribute face :weight frame))) | 372 | (let ((bold (face-attribute face :weight frame))) |
| 373 | (not (memq bold '(normal unspecified))))) | 373 | (memq bold '(semi-bold bold extra-bold ultra-bold)))) |
| 374 | 374 | ||
| 375 | 375 | ||
| 376 | (defun face-italic-p (face &optional frame) | 376 | (defun face-italic-p (face &optional frame) |