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

diff --git a/lisp/faces.el b/lisp/faces.el
index 9c12fe34ff560e1c64db31b565ff4ae5b7100ff0..30ce1405e9d0f5a9f6c5cc7327340e14062e442a 100644 (file)
--- 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)))
 \f
 ;;; non-X-specific interface