diff options
| -rw-r--r-- | lisp/international/ja-dic-cnv.el | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/lisp/international/ja-dic-cnv.el b/lisp/international/ja-dic-cnv.el index e7210831891..6ac343d106e 100644 --- a/lisp/international/ja-dic-cnv.el +++ b/lisp/international/ja-dic-cnv.el | |||
| @@ -529,12 +529,8 @@ To get complete usage, invoke: | |||
| 529 | `(defconst skkdic-okuri-nasi | 529 | `(defconst skkdic-okuri-nasi |
| 530 | ',(let ((l entries) | 530 | ',(let ((l entries) |
| 531 | (map '(skdic-okuri-nasi)) | 531 | (map '(skdic-okuri-nasi)) |
| 532 | (count 0) | ||
| 533 | entry) | 532 | entry) |
| 534 | (while l | 533 | (while l |
| 535 | (setq count (1+ count)) | ||
| 536 | (if (= (% count 10000) 0) | ||
| 537 | (message "%d entries" count)) | ||
| 538 | (setq entry (skkdic-extract-conversion-data (car l))) | 534 | (setq entry (skkdic-extract-conversion-data (car l))) |
| 539 | (set-nested-alist (car entry) (cdr entry) map) | 535 | (set-nested-alist (car entry) (cdr entry) map) |
| 540 | (setq l (cdr l))) | 536 | (setq l (cdr l))) |