From 18eb38c9ba2664f71ae69b6d87259f4ad12e04e1 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 2 Dec 2005 12:59:31 +0000 Subject: [PATCH] Don't use `map-char-attribute' to eliminate `ideographic-products'; delete the corresponding file instead. --- install-ids.el | 27 ++++++++++++++++++++------- 1 file changed, 20 insertions(+), 7 deletions(-) diff --git a/install-ids.el b/install-ids.el index d0fcf73..8d7f1e2 100644 --- a/install-ids.el +++ b/install-ids.el @@ -12,12 +12,12 @@ (princ "done.\n")) -(mount-char-attribute-table 'ideographic-products) -(map-char-attribute - (lambda (c v) - (remove-char-attribute c 'ideographic-products) - nil) - 'ideographic-products) +;; (mount-char-attribute-table 'ideographic-products) +;; (map-char-attribute +;; (lambda (c v) +;; (remove-char-attribute c 'ideographic-products) +;; nil) +;; 'ideographic-products) (install-ids-read-file "IDS-JIS-X0208-1990.txt" load-ids-simplify t) @@ -61,7 +61,20 @@ (princ "done.\n") (princ "Updating char-feature `ideographic-products'...") -(ids-update-index) +(let* ((feature-dir + (expand-file-name + "feature" + (expand-file-name + "character" chise-system-db-directory))) + (p-file + (expand-file-name "ideographic-products" feature-dir)) + old-p-file) + (when (file-exists-p p-file) + (setq old-p-file (make-temp-name p-file)) + (rename-file p-file old-p-file)) + (ids-update-index) + (when old-p-file + (delete-file old-p-file))) (princ "done.\n") ;;; install-ids.el ends hear -- 1.7.10.4