diff options
| -rw-r--r-- | lisp/international/fontset.el | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index 365bc3f3921..f3834074a36 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el | |||
| @@ -409,21 +409,6 @@ FONTLIST is an alist of charsets vs font names to be used in FONSET.") | |||
| 409 | (oblique . x-make-font-oblique) | 409 | (oblique . x-make-font-oblique) |
| 410 | (bold-italic . x-make-font-bold-italic) | 410 | (bold-italic . x-make-font-bold-italic) |
| 411 | (demibold-italic | 411 | (demibold-italic |
| 412 | . ,(function (lambda (x) (x-make-font-italic (x-make-font-demibold x))))) | ||
| 413 | (demibold-oblique | ||
| 414 | . ,(function (lambda (x) (x-make-font-oblique (x-make-font-demibold x))))) | ||
| 415 | (bold-oblique | ||
| 416 | . ,(function (lambda (x) (x-make-font-oblique (x-make-font-bold x)))))) | ||
| 417 | "Alist of font style vs function to generate a X font name of the style. | ||
| 418 | The function is called with one argument, a font name.") | ||
| 419 | |||
| 420 | (defconst x-style-funcs-alist | ||
| 421 | `((bold . x-make-font-bold) | ||
| 422 | (demibold . x-make-font-demibold) | ||
| 423 | (italic . x-make-font-italic) | ||
| 424 | (oblique . x-make-font-oblique) | ||
| 425 | (bold-italic . x-make-font-bold-italic) | ||
| 426 | (demibold-italic | ||
| 427 | . ,(function (lambda (x) | 412 | . ,(function (lambda (x) |
| 428 | (let ((y (x-make-font-demibold x))) | 413 | (let ((y (x-make-font-demibold x))) |
| 429 | (and y (x-make-font-italic y)))))) | 414 | (and y (x-make-font-italic y)))))) |