Mercurial > hg > xemacs-beta

comparison lisp/x-faces.el @ 343:8bec6624d99b r21-1-1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-1
author cvs
date Mon, 13 Aug 2007 10:52:53 +0200
parents fbbf69b4e8a7
children cc15677e0335
comparison
equal deleted inserted replaced
342:b036ce23deaa 343:8bec6624d99b
200 200
201 (defun x-make-font-bold-italic (font &optional device) 201 (defun x-make-font-bold-italic (font &optional device)
202 "Given an X font specification, this attempts to make a `bold-italic' font. 202 "Given an X font specification, this attempts to make a `bold-italic' font.
203 If it fails, it returns nil." 203 If it fails, it returns nil."
204 ;; This is haired up to avoid loading the "intermediate" fonts. 204 ;; This is haired up to avoid loading the "intermediate" fonts.
205 (or (try-font-name 205 (if *try-oblique-before-italic-fonts*
206 (x-frob-font-slant (x-frob-font-weight font "bold") "i") device) 206 (or (try-font-name
207 (try-font-name 207 (x-frob-font-slant (x-frob-font-weight font "bold") "o") device)
208 (x-frob-font-slant (x-frob-font-weight font "bold") "o") device) 208 (try-font-name
209 (try-font-name 209 (x-frob-font-slant (x-frob-font-weight font "bold") "i") device)
210 (x-frob-font-slant (x-frob-font-weight font "black") "i") device) 210 (try-font-name
211 (try-font-name 211 (x-frob-font-slant (x-frob-font-weight font "black") "o") device)
212 (x-frob-font-slant (x-frob-font-weight font "black") "o") device) 212 (try-font-name
213 (try-font-name 213 (x-frob-font-slant (x-frob-font-weight font "black") "i") device)
214 (x-frob-font-slant (x-frob-font-weight font "demibold") "i") device) 214 (try-font-name
215 (try-font-name 215 (x-frob-font-slant (x-frob-font-weight font "demibold") "o") device)
216 (x-frob-font-slant (x-frob-font-weight font "demibold") "o") device))) 216 (try-font-name
217 (x-frob-font-slant (x-frob-font-weight font "demibold") "i") device))
218 (or (try-font-name
219 (x-frob-font-slant (x-frob-font-weight font "bold") "i") device)
220 (try-font-name
221 (x-frob-font-slant (x-frob-font-weight font "bold") "o") device)
222 (try-font-name
223 (x-frob-font-slant (x-frob-font-weight font "black") "i") device)
224 (try-font-name
225 (x-frob-font-slant (x-frob-font-weight font "black") "o") device)
226 (try-font-name
227 (x-frob-font-slant (x-frob-font-weight font "demibold") "i") device)
228 (try-font-name
229 (x-frob-font-slant (x-frob-font-weight font "demibold") "o") device))))
217 230
218 (defun x-font-size (font) 231 (defun x-font-size (font)
219 "Return the nominal size of the given font. 232 "Return the nominal size of the given font.
220 This is done by parsing its name, so it's likely to lose. 233 This is done by parsing its name, so it's likely to lose.
221 X fonts can be specified (by the user) in either pixels or 10ths of points, 234 X fonts can be specified (by the user) in either pixels or 10ths of points,