diff options
| author | Lars Ingebrigtsen | 2019-06-14 17:14:49 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-06-14 17:14:49 +0200 |
| commit | 1d2e4d22c922f94d6f4b75a5ead18cbc679c5dfe (patch) | |
| tree | 97ac0b9e61503ebdc050cbc184d020f7097ef59d | |
| parent | 9b5592b5da87cff27f552a90697cb749c1ba10e9 (diff) | |
| download | emacs-1d2e4d22c922f94d6f4b75a5ead18cbc679c5dfe.tar.gz emacs-1d2e4d22c922f94d6f4b75a5ead18cbc679c5dfe.zip | |
Silence okuri-nasi count-up messaging during compilation
* lisp/international/ja-dic-cnv.el (skkdic-set-okuri-nasi): Remove
messaging while compilation to make compilation more regular.
| -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))) |