From: Dave Love <fx@gnu.org>
Date: Thu, 4 Sep 2003 18:20:21 +0000 (+0000)
Subject: (non-iso-charset-alist): Revert to defining in defvar -- OK with the
X-Git-Tag: ttn-vms-21-2-B4~8893
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e1f973d48aae4c54a7c6f9b9a779f9f29878c3c1;p=emacs.git

(non-iso-charset-alist): Revert to defining in defvar -- OK with the
new autoload.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 895917970e6..7b2567840d9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -15,10 +15,8 @@
 	("Bulgarian", "Belarusian"): Remove `features'.
 	(windows-1251): Moved from code-pages.
 
-	* international/mule-diag.el (non-iso-charset-alist): Define as
-	nil.
-	(top-level): Append to non-iso-charset-alist (without `codepage'
-	stuff).
+	* international/mule-diag.el (non-iso-charset-alist): Remove
+	`codepage' stuff.
 	(print-designation, list-coding-systems-1): Output fixes.
 
 	* international/code-pages.el (cp-make-translation-table)
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 8cabca02dcf..c439b30f944 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -62,7 +62,42 @@
   'help-echo "mouse-2, RET: show table of characters for this character set")
 
 ;;;###autoload
-(defvar non-iso-charset-alist nil
+(defvar non-iso-charset-alist 
+  `((mac-roman
+     (ascii latin-iso8859-1 mule-unicode-2500-33ff
+	    mule-unicode-0100-24ff mule-unicode-e000-ffff)
+     mac-roman-decoder
+     ((0 255)))
+    (viscii
+     (ascii vietnamese-viscii-lower vietnamese-viscii-upper)
+     viet-viscii-nonascii-translation-table
+     ((0 255)))
+    (vietnamese-tcvn
+     (ascii vietnamese-viscii-lower vietnamese-viscii-upper)
+     viet-tcvn-nonascii-translation-table
+     ((0 255)))
+    (koi8-r
+     (ascii cyrillic-iso8859-5)
+     cyrillic-koi8-r-nonascii-translation-table
+     ((32 255)))
+    (alternativnyj
+     (ascii cyrillic-iso8859-5)
+     cyrillic-alternativnyj-nonascii-translation-table
+     ((32 255)))
+    (koi8-u
+     (ascii cyrillic-iso8859-5 mule-unicode-0100-24ff)
+     cyrillic-koi8-u-nonascii-translation-table
+     ((32 255)))
+    (big5
+     (ascii chinese-big5-1 chinese-big5-2)
+     decode-big5-char
+     ((32 127)
+      ((?\xA1 ?\xFE) . (?\x40 ?\x7E ?\xA1 ?\xFE))))
+    (sjis
+     (ascii katakana-jisx0201 japanese-jisx0208)
+     decode-sjis-char
+     ((32 127 ?\xA1 ?\xDF)
+      ((?\x81 ?\x9F ?\xE0 ?\xEF) . (?\x40 ?\x7E ?\x80 ?\xFC)))))
   "Alist of charset names vs the corresponding information.
 This is mis-named for historical reasons.  The charsets are actually
 non-built-in ones.  They correspond to Emacs coding systems, not Emacs
@@ -93,47 +128,6 @@ TO2, or...
 The second form is used for 2-byte codes.  The car part is the ranges
 of the first byte, and the cdr part is the ranges of the second byte.")
 
-;; Set it like this in case code-pages &c has been loaded previously,
-;; in which case defvar would be useless.
-(setq non-iso-charset-alist
-      (append
-       non-iso-charset-alist
-       `((mac-roman
-	  (ascii latin-iso8859-1 mule-unicode-2500-33ff
-		 mule-unicode-0100-24ff mule-unicode-e000-ffff)
-	  mac-roman-decoder
-	  ((0 255)))
-	 (viscii
-	  (ascii vietnamese-viscii-lower vietnamese-viscii-upper)
-	  viet-viscii-nonascii-translation-table
-	  ((0 255)))
-	 (vietnamese-tcvn
-	  (ascii vietnamese-viscii-lower vietnamese-viscii-upper)
-	  viet-tcvn-nonascii-translation-table
-	  ((0 255)))
-	 (koi8-r
-	  (ascii cyrillic-iso8859-5)
-	  cyrillic-koi8-r-nonascii-translation-table
-	  ((32 255)))
-	 (alternativnyj
-	  (ascii cyrillic-iso8859-5)
-	  cyrillic-alternativnyj-nonascii-translation-table
-	  ((32 255)))
-	 (koi8-u
-	  (ascii cyrillic-iso8859-5 mule-unicode-0100-24ff)
-	  cyrillic-koi8-u-nonascii-translation-table
-	  ((32 255)))
-	 (big5
-	  (ascii chinese-big5-1 chinese-big5-2)
-	  decode-big5-char
-	  ((32 127)
-	   ((?\xA1 ?\xFE) . (?\x40 ?\x7E ?\xA1 ?\xFE))))
-	 (sjis
-	  (ascii katakana-jisx0201 japanese-jisx0208)
-	  decode-sjis-char
-	  ((32 127 ?\xA1 ?\xDF)
-	   ((?\x81 ?\x9F ?\xE0 ?\xEF) . (?\x40 ?\x7E ?\x80 ?\xFC)))))))
-
 ;;;###autoload
 (defun list-character-sets (arg)
   "Display a list of all character sets.