Mercurial > emacs
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))) |