Mercurial > emacs
comparison lisp/international/fontset.el @ 22720:ab4f30149aa0
(x-complement-fontset-spec): Typo fixed.
(create-fontset-from-fontset-spec): Likewise.
(create-fontset-from-ascii-font): Likewise.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 09 Jul 1998 02:02:33 +0000 |
| parents | 9cfa1a788a5a |
| children | 55a8313019f3 |
comparison
equal
deleted
inserted
replaced
| 22719:d6f6ac5a5df3 | 22720:ab4f30149aa0 |
|---|---|
| 315 (setq fontname (downcase (x-compose-font-name xlfd)))) | 315 (setq fontname (downcase (x-compose-font-name xlfd)))) |
| 316 (setq new-fontlist (cons (cons charset fontname) new-fontlist)) | 316 (setq new-fontlist (cons (cons charset fontname) new-fontlist)) |
| 317 (register-alternate-fontnames fontname)))) | 317 (register-alternate-fontnames fontname)))) |
| 318 (setq charsets (cdr charsets))) | 318 (setq charsets (cdr charsets))) |
| 319 | 319 |
| 320 ;; Be sure that ASCII font is avairable. | 320 ;; Be sure that ASCII font is available. |
| 321 (let ((slot (or (assq 'ascii fontlist) (assq 'ascii new-fontlist))) | 321 (let ((slot (or (assq 'ascii fontlist) (assq 'ascii new-fontlist))) |
| 322 ascii-font) | 322 ascii-font) |
| 323 (if (setq ascii-font (condition-case nil | 323 (if (setq ascii-font (condition-case nil |
| 324 (x-resolve-font-name (cdr slot)) | 324 (x-resolve-font-name (cdr slot)) |
| 325 (error nil))) | 325 (error nil))) |
| 549 fontset-name) | 549 fontset-name) |
| 550 "Create a fontset from an ASCII font FONT. | 550 "Create a fontset from an ASCII font FONT. |
| 551 | 551 |
| 552 Optional 1st arg RESOLVED-FONT is a resolved name of FONT. If | 552 Optional 1st arg RESOLVED-FONT is a resolved name of FONT. If |
| 553 omitted, x-resolve-font-name is called to get the resolved name. At | 553 omitted, x-resolve-font-name is called to get the resolved name. At |
| 554 this time, if FONT is not avairable, error is signaled. | 554 this time, if FONT is not available, error is signaled. |
| 555 | 555 |
| 556 Optional 2nd arg FONTSET-NAME is a string to be used in | 556 Optional 2nd arg FONTSET-NAME is a string to be used in |
| 557 `<CHARSET_ENCODING>' fields of a new fontset name. If it is omitted, | 557 `<CHARSET_ENCODING>' fields of a new fontset name. If it is omitted, |
| 558 an appropriate name is generated automatically. | 558 an appropriate name is generated automatically. |
| 559 | 559 |