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 (file)
--- 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))))