From cdd675ad6f115f80d68671ecc8141c0fe828e838 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 31 Jan 2000 17:17:49 +0000 Subject: (standard-fontset-spec): Purecopy it. (create-fontset-from-x-resource): Don't concat integers. --- lisp/international/fontset.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index aab42d002a..ec9474a717 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el @@ -679,7 +679,7 @@ Return FONTSET if it is created successfully, else return nil." ;; 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 @@ Return FONTSET if it is created successfully, else return nil." 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 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.") (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))))) -- cgit v1.2.3