From: tomo <tomo>
Date: Fri, 23 Aug 2002 18:16:55 +0000 (+0000)
Subject: Reset `->lowercase' and `->uppercase' when using external character
X-Git-Tag: r21-2-46-utf-2000-0_19-1~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6d3334b41a1a12d7b11ce29809e7c2573df63b5c;p=chise%2Fxemacs-chise.git-

Reset `->lowercase' and `->uppercase' when using external character
database; get attribute values of `->lowercase' for U+0000 ... U+007F
after reset `->lowercase' to avoid dumping database object.
---

diff --git a/lisp/utf-2000/update-cdb.el b/lisp/utf-2000/update-cdb.el
index 3eadd0b..ad41432 100644
--- a/lisp/utf-2000/update-cdb.el
+++ b/lisp/utf-2000/update-cdb.el
@@ -76,6 +76,12 @@
       (save-charset-mapping-table ccs))
     )
    (t
+    (reset-char-attribute-table '->lowercase)
+    (let ((i 0))
+      (while (<= i 127)
+	(get-char-attribute (decode-char 'ascii i) '->lowercase)
+	(setq i (1+ i))))
+    (reset-char-attribute-table '->uppercase)
     (mapcar (lambda (file)
 	      (mount-char-attribute-table
 	       (intern (file-name-char-attribute-name file))))