diff options
| author | Paul Eggert <[email protected]> | 2013-03-19 22:17:04 -0700 |
|---|---|---|
| committer | Paul Eggert <[email protected]> | 2013-03-19 22:17:04 -0700 |
| commit | 2667d15db22d6f012666dcb76d044a7cd2e9922b (patch) | |
| tree | 8166f7239fc3450e05977c969cdc0ba120f6a1ac /lisp/international/ja-dic-cnv.el | |
| parent | 438b0579ab80032061096c637e0fe10b97ae5a38 (diff) | |
Suppress unnecessary non-ASCII chatter during build process.
* international/ja-dic-cnv.el (skkdic-collect-okuri-nasi)
(batch-skkdic-convert): Suppress most of the chatter.
It's not needed so much now that machines are faster,
and its non-ASCII component was confusing; see Dmitry Gutov in
<http://lists.gnu.org/archive/html/emacs-devel/2013-03/msg00508.html>.
Diffstat (limited to 'lisp/international/ja-dic-cnv.el')
| -rw-r--r-- | lisp/international/ja-dic-cnv.el | 19 |
1 files changed, 7 insertions, 12 deletions
diff --git a/lisp/international/ja-dic-cnv.el b/lisp/international/ja-dic-cnv.el index 13b0ac8b6a..41a3100419 100644 --- a/lisp/international/ja-dic-cnv.el +++ b/lisp/international/ja-dic-cnv.el @@ -279,9 +279,9 @@ skkdic-okuri-nasi-entries-count (1+ skkdic-okuri-nasi-entries-count)) (setq ratio (floor (/ (* (point) 100.0) (point-max)))) - (if (/= ratio prev-ratio) + (if (/= (/ prev-ratio 10) (/ ratio 10)) (progn - (message "collected %2d%% %s ..." ratio kana) + (message "collected %2d%% ..." ratio) (setq prev-ratio ratio))) (while candidates (let ((entry (lookup-nested-alist (car candidates) @@ -304,12 +304,12 @@ (while l (let ((kana (car (car l))) (candidates (cdr (car l)))) - (setq ratio (/ (* count 1000) skkdic-okuri-nasi-entries-count) + (setq ratio (/ (* count 100) skkdic-okuri-nasi-entries-count) count (1+ count)) - (if (/= prev-ratio (/ ratio 10)) + (if (/= (/ prev-ratio 10) (/ ratio 10)) (progn - (message "processed %2d%% %s ..." (/ ratio 10) kana) - (setq prev-ratio (/ ratio 10)))) + (message "processed %2d%% ..." ratio) + (setq prev-ratio ratio))) (if (setq candidates (skkdic-reduced-candidates skkbuf kana candidates)) (progn @@ -433,12 +433,7 @@ To get complete usage, invoke: (setq targetdir (expand-file-name (car command-line-args-left))) (setq command-line-args-left (cdr command-line-args-left)))) (setq filename (expand-file-name (car command-line-args-left))) - (message "Converting %s to %s ..." filename ja-dic-filename) - (message "It takes around 10 minutes even on Sun SS20.") - (skkdic-convert filename targetdir) - (message "Do byte-compile the created file by:") - (message " %% emacs -batch -f batch-byte-compile %s" ja-dic-filename) - )) + (skkdic-convert filename targetdir))) (kill-emacs 0)) |