comparison lisp/international/ja-dic-cnv.el @ 34532:dad96251e889

(skkdic-set-okuri-nasi): Show "... entries" messages for every 10000 entries, not 10.
author Kenichi Handa <handa@m17n.org>
date Wed, 13 Dec 2000 23:27:49 +0000
parents 28b5eff78c33
children 6e98a6e86b7f
comparison
equal deleted inserted replaced
34531:37f85e931855 34532:dad96251e889
551 (map '(skdic-okuri-nasi)) 551 (map '(skdic-okuri-nasi))
552 (count 0) 552 (count 0)
553 entry) 553 entry)
554 (while l 554 (while l
555 (setq count (1+ count)) 555 (setq count (1+ count))
556 (if (= (% count 10) 0) 556 (if (= (% count 10000) 0)
557 (message (format "%d entries" count))) 557 (message (format "%d entries" count)))
558 (setq entry (skkdic-extract-conversion-data (car l))) 558 (setq entry (skkdic-extract-conversion-data (car l)))
559 (set-nested-alist (car entry) (cdr entry) map) 559 (set-nested-alist (car entry) (cdr entry) map)
560 (setq l (cdr l))) 560 (setq l (cdr l)))
561 map))) 561 map)))