Mercurial > emacs

comparison lisp/faces.el @ 25561:67c224f5cc1a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 b0a117037bde
children 1d8ba3dd04e9
comparison
equal deleted inserted replaced
25560:c4397641ee0e 25561:67c224f5cc1a
368 If the optional argument FRAME is given, report on face FACE in that frame. 368 If the optional argument FRAME is given, report on face FACE in that frame.
369 If FRAME is t, report on the defaults for face FACE (for new frames). 369 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)
377 "Return non-nil if the font of FACE is italic on FRAME. 377 "Return non-nil if the font of FACE is italic on FRAME.
378 If the optional argument FRAME is given, report on face FACE in that frame. 378 If the optional argument FRAME is given, report on face FACE in that frame.