Install IDS-HZK{01..12}.txt.
authortomo <tomo>
Sat, 8 May 2004 15:35:20 +0000 (15:35 +0000)
committertomo <tomo>
Sat, 8 May 2004 15:35:20 +0000 (15:35 +0000)
install-ids.el

index 73471de..0aeda5a 100644 (file)
 (install-ids-read-file "IDS-CBETA.txt" load-ids-simplify t)
 
 (install-ids-read-file "IDS-CDP.txt" load-ids-simplify t)
-;; (install-ids-read-file "IDS-HZK01.txt" load-ids-simplify t)
-;; (install-ids-read-file "IDS-HZK02.txt" load-ids-simplify t)
-;; (install-ids-read-file "IDS-HZK03.txt" load-ids-simplify t)
+(let ((i 1))
+  (while (<= i 12)
+    (install-ids-read-file (format "IDS-HZK%02d.txt" i)
+                          load-ids-simplify t)
+    (setq i (1+ i))))
 
 (princ "Updating char-feature `ideographic-structure'...")
 (save-char-attribute-table 'ideographic-structure)