diff options
author | Kenichi Handa <[email protected]> | 1997-05-12 05:26:35 +0000 |
---|---|---|
committer | Kenichi Handa <[email protected]> | 1997-05-12 05:26:35 +0000 |
commit | b7d7285cd6ad629b55877b7023c926b06ab7fd16 (patch) | |
tree | 5b6ae7e89c58ded42e72ac543461f44ceb358847 /lisp/faces.el | |
parent | 9dfa30b59607cad29090f61da033a198f302e132 (diff) |
(x-make-font-bold-italic): New function.
Diffstat (limited to 'lisp/faces.el')
-rw-r--r-- | lisp/faces.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 9c12fe34ff..30ce1405e9 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -823,6 +823,12 @@ If that can't be done, return nil." "Given an X font specification, make a non-italic version of it. If that can't be done, return nil." (x-frob-font-slant font "r")) + +(defun x-make-font-bold-italic (font) + "Given an X font specification, make a bold and italic version of it. +If that can't be done, return nil." + (and (setq font (x-make-font-bold font)) + (x-make-font-italic font))) ;;; non-X-specific interface |