Mercurial > emacs
comparison lisp/international/fontset.el @ 50581:4daf1ecf4381
(create-fontset-from-ascii-font): Doc fix.
(x-must-resolve-font-name): Fix error message typo.
author | John Paul Wallington <jpw@pobox.com> |
---|---|
date | Mon, 14 Apr 2003 07:53:32 +0000 |
parents | 125da3e3e9af |
children | c6cbdf65b72c |
comparison
equal
deleted
inserted
replaced
50580:bcc6ebd2dc9e | 50581:4daf1ecf4381 |
---|---|
396 (error | 396 (error |
397 (message "Warning: no fonts matching `%s' available" pattern) | 397 (message "Warning: no fonts matching `%s' available" pattern) |
398 (aset xlfd-fields index "*") | 398 (aset xlfd-fields index "*") |
399 (setq index (1+ index)))))) | 399 (setq index (1+ index)))))) |
400 (unless ascii-font | 400 (unless ascii-font |
401 (error "No fonts founds")) | 401 (error "No fonts found")) |
402 ascii-font)) | 402 ascii-font)) |
403 | 403 |
404 | 404 |
405 (defun x-complement-fontset-spec (xlfd-fields fontlist) | 405 (defun x-complement-fontset-spec (xlfd-fields fontlist) |
406 "Complement FONTLIST for charsets based on XLFD-FIELDS and return it. | 406 "Complement FONTLIST for charsets based on XLFD-FIELDS and return it. |
569 (defun create-fontset-from-ascii-font (font &optional resolved-font | 569 (defun create-fontset-from-ascii-font (font &optional resolved-font |
570 fontset-name) | 570 fontset-name) |
571 "Create a fontset from an ASCII font FONT. | 571 "Create a fontset from an ASCII font FONT. |
572 | 572 |
573 Optional 1st arg RESOLVED-FONT is a resolved name of FONT. If | 573 Optional 1st arg RESOLVED-FONT is a resolved name of FONT. If |
574 omitted, x-resolve-font-name is called to get the resolved name. At | 574 omitted, `x-resolve-font-name' is called to get the resolved name. At |
575 this time, if FONT is not available, error is signaled. | 575 this time, if FONT is not available, error is signaled. |
576 | 576 |
577 Optional 2nd arg FONTSET-NAME is a string to be used in | 577 Optional 2nd arg FONTSET-NAME is a string to be used in |
578 `<CHARSET_ENCODING>' fields of a new fontset name. If it is omitted, | 578 `<CHARSET_ENCODING>' fields of a new fontset name. If it is omitted, |
579 an appropriate name is generated automatically. | 579 an appropriate name is generated automatically. |