# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 863414795 0
# Node ID 2687f3d7c191c8458ac693c70eb350d0cac2ba60
# Parent  01342565404eecd27e84a3d358d1f619b4475e35
(x-make-font-bold-italic): New function.

diff -r 01342565404e -r 2687f3d7c191 lisp/faces.el
--- a/lisp/faces.el	Mon May 12 01:19:54 1997 +0000
+++ b/lisp/faces.el	Mon May 12 05:26:35 1997 +0000
@@ -823,6 +823,12 @@
   "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