diff options
| -rw-r--r-- | lisp/ChangeLog | 9 | ||||
| -rw-r--r-- | lisp/international/ja-dic-cnv.el | 19 |
2 files changed, 16 insertions, 12 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 59cf8bac5fb..392cc9ac2fa 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,12 @@ +2013-03-20 Paul Eggert <eggert@cs.ucla.edu> + + 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>. + 2013-03-20 Leo Liu <sdl.web@gmail.com> * ido.el (ido-chop): Fix bug#10994. diff --git a/lisp/international/ja-dic-cnv.el b/lisp/international/ja-dic-cnv.el index 13b0ac8b6ad..41a31004194 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)) |