changeset 49287:5cb7e7103296

Don't setup the default fontset and font-encoding-alist at the top level. (setup-default-fontset): New function. (create-fontset-from-fontset-spec): Delete autoload cookie.
author Kenichi Handa <handa@m17n.org>
date Fri, 17 Jan 2003 08:13:39 +0000
parents fc85fba774da
children 7f09b406bc3c
files lisp/international/fontset.el
diffstat 1 files changed, 6 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/fontset.el	Fri Jan 17 08:10:00 2003 +0000
+++ b/lisp/international/fontset.el	Fri Jan 17 08:13:39 2003 +0000
@@ -40,7 +40,10 @@
 ;; character `*' is embedded in `CHARSET_ENCODING' field.  The
 ;; REGISTRY for ASCII characters are predefined as "ISO8859-1".
 
-(let ((l
+(defun setup-default-fontset ()
+  "Setup the default fontset."
+  (dolist
+      (elt
        ;; Eval this at compile-time, since fontset.el is always loaded
        ;; when run under X and this would always load ind-util.el as well.
        (eval-when-compile
@@ -119,13 +122,7 @@
 	   ((,(indian-glyph-char 0 'malayalam)
 	     . ,(indian-glyph-char 255 'malayalam)) . ("*" . "Malayalam-CDAC"))
 	   )))
-      charset font-spec arg)
-  (while l
-    (setq charset (car (car l)) font-spec (cdr (car l)) l (cdr l))
-    (if (symbolp charset)
-	(setq arg (make-char charset))
-      (setq arg charset))
-    (set-fontset-font "fontset-default" arg font-spec)))
+    (set-fontset-font "fontset-default" (car elt) (cdr elt))))
 
 ;; Set arguments in `font-encoding-alist' (which see).
 (defun set-font-encoding (pattern charset encoding)
@@ -139,9 +136,6 @@
 	    (cons (list pattern (cons charset encoding)) font-encoding-alist)))
     ))
 
-(set-font-encoding "ISO8859-1" 'ascii 0)
-(set-font-encoding "JISX0201" 'latin-jisx0201 0)
-
 ;; Allow display of arbitrary characters with an iso-10646-encoded
 ;; (`Unicode') font.
 (define-translation-table 'ucs-mule-to-mule-unicode
@@ -494,7 +488,7 @@
 	    name))
       fontset)))
 
-;;;###autoload
+
 (defun create-fontset-from-fontset-spec (fontset-spec
 					 &optional style-variant noerror)
   "Create a fontset from fontset specification string FONTSET-SPEC.