Mercurial > emacs
changeset 27534:eeb998860456
(standard-fontset-spec): Purecopy it.
(create-fontset-from-x-resource): Don't concat integers.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Mon, 31 Jan 2000 17:17:49 +0000 |
| parents | 6dfbe5197843 |
| children | a6edcce8ada3 |
| files | lisp/international/fontset.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/fontset.el Mon Jan 31 14:36:52 2000 +0000 +++ b/lisp/international/fontset.el Mon Jan 31 17:17:49 2000 +0000 @@ -679,7 +679,7 @@ ;; specified here because FAMILY of those fonts are not "fixed" in ;; many cases. (defvar standard-fontset-spec - "-*-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-standard, + (purecopy "-*-fixed-medium-r-normal-*-16-*-*-*-*-*-fontset-standard, chinese-gb2312:-*-medium-r-normal-*-16-*-gb2312*-*, korean-ksc5601:-*-medium-r-normal-*-16-*-ksc5601*-*, chinese-cns11643-1:-*-medium-r-normal-*-16-*-cns11643*-1, @@ -688,7 +688,7 @@ chinese-cns11643-4:-*-medium-r-normal-*-16-*-cns11643*-4, chinese-cns11643-5:-*-medium-r-normal-*-16-*-cns11643*-5, chinese-cns11643-6:-*-medium-r-normal-*-16-*-cns11643*-6, - chinese-cns11643-7:-*-medium-r-normal-*-16-*-cns11643*-7" + chinese-cns11643-7:-*-medium-r-normal-*-16-*-cns11643*-7") "String of fontset spec of the standard fontset. You have the biggest chance to display international characters with correct glyphs by using the standard fontset. @@ -702,8 +702,8 @@ (defun create-fontset-from-x-resource () (let ((idx 0) fontset-spec) - (while (setq fontset-spec (x-get-resource (concat "fontset-" idx) - (concat "Fontset-" idx))) + (while (setq fontset-spec (x-get-resource (format "fontset-%d" idx) + (format "Fontset-%d" idx))) (create-fontset-from-fontset-spec fontset-spec t 'noerror) (setq idx (1+ idx)))))