From 6d3334b41a1a12d7b11ce29809e7c2573df63b5c Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 23 Aug 2002 18:16:55 +0000 Subject: [PATCH] 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. --- lisp/utf-2000/update-cdb.el | 6 ++++++ 1 file changed, 6 insertions(+) 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)))) -- 1.7.10.4