From: tomo <tomo>
Date: Thu, 3 Feb 2000 10:07:31 +0000 (+0000)
Subject: (decode-builtin-char): Use `charset-name'.
X-Git-Tag: r21-2-27-utf-2000-0_15-0~183
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e40ab1bdc7396453aef3a93c748aaf58d2c6f4e3;p=chise%2Fxemacs-chise.git

(decode-builtin-char): Use `charset-name'.
(write-char-range-data-to-file): Use utf-8.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index d463d8f..acbc639 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -455,12 +455,14 @@
 	))))
 
 (defun decode-builtin-char (charset code-point)
-  (if (and (not (eq charset 'ideograph-daikanwa))
-	   (or (memq charset '(ascii latin-viscii-upper
-				     latin-viscii-lower
-				     arabic-iso8859-6
-				     japanese-jisx0213-1
-				     japanese-jisx0213-2))
+  (setq charset (get-charset charset))
+  (if (and (not (eq (charset-name charset) 'ideograph-daikanwa))
+	   (or (memq (charset-name charset)
+		     '(ascii latin-viscii-upper
+			     latin-viscii-lower
+			     arabic-iso8859-6
+			     japanese-jisx0213-1
+			     japanese-jisx0213-2))
 	       (= (char-int (charset-iso-final-char charset)) 0)))
       (decode-char charset code-point)
     (let ((table (charset-mapping-table charset)))
@@ -527,9 +529,10 @@
       )))
 
 (defun write-char-range-data-to-file (min max file)
-  (with-temp-buffer
-    (insert-char-range-data min max)
-    (write-region (point-min)(point-max) file)))
+  (let ((coding-system-for-write 'utf-8))
+    (with-temp-buffer
+      (insert-char-range-data min max)
+      (write-region (point-min)(point-max) file))))
 
 (defvar what-character-original-window-configuration)