Mercurial > emacs
comparison lisp/international/fontset.el @ 24153:729affdf2ca1
(create-fontset-from-x-resource): Make style variants.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sat, 23 Jan 1999 05:41:29 +0000 |
| parents | fa4839661777 |
| children | ab814ec4995e |
comparison
equal
deleted
inserted
replaced
| 24152:202b1402425b | 24153:729affdf2ca1 |
|---|---|
| 690 (defun create-fontset-from-x-resource () | 690 (defun create-fontset-from-x-resource () |
| 691 (let ((idx 0) | 691 (let ((idx 0) |
| 692 fontset-spec) | 692 fontset-spec) |
| 693 (while (setq fontset-spec (x-get-resource (concat "fontset-" idx) | 693 (while (setq fontset-spec (x-get-resource (concat "fontset-" idx) |
| 694 (concat "Fontset-" idx))) | 694 (concat "Fontset-" idx))) |
| 695 (create-fontset-from-fontset-spec fontset-spec nil 'noerror) | 695 (create-fontset-from-fontset-spec fontset-spec t 'noerror) |
| 696 (setq idx (1+ idx))))) | 696 (setq idx (1+ idx))))) |
| 697 | 697 |
| 698 (defsubst fontset-list () | 698 (defsubst fontset-list () |
| 699 "Returns a list of all defined fontset names." | 699 "Returns a list of all defined fontset names." |
| 700 (mapcar 'car global-fontset-alist)) | 700 (mapcar 'car global-fontset-alist)) |