# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 949339069 0
# Node ID eeb998860456599bbbbd0007ce6bd443d4eb8199
# Parent  6dfbe51978434ea9bae9c3807215300793fa264d
(standard-fontset-spec): Purecopy it.
(create-fontset-from-x-resource): Don't concat integers.

diff -r 6dfbe5197843 -r eeb998860456 lisp/international/fontset.el
--- 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)))))