From: Kenichi Handa <handa@m17n.org>
Date: Mon, 12 May 1997 05:26:35 +0000 (+0000)
Subject: (x-make-font-bold-italic): New function.
X-Git-Tag: emacs-20.1~2193
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b7d7285cd6ad629b55877b7023c926b06ab7fd16;p=emacs.git

(x-make-font-bold-italic): New function.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index 9c12fe34ff5..30ce1405e9d 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