aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2019-06-14 17:14:49 +0200
committerLars Ingebrigtsen2019-06-14 17:14:49 +0200
commit1d2e4d22c922f94d6f4b75a5ead18cbc679c5dfe (patch)
tree97ac0b9e61503ebdc050cbc184d020f7097ef59d
parent9b5592b5da87cff27f552a90697cb749c1ba10e9 (diff)
downloademacs-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.el4
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)))