Mercurial > emacs

changeset 17752:2687f3d7c191

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x-make-font-bold-italic): New function.
author Kenichi Handa <handa@m17n.org>
date Mon, 12 May 1997 05:26:35 +0000
parents 01342565404e
children de6be7f3b904
files lisp/faces.el
diffstat 1 files changed, 6 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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