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>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 59cf8bac5fb00e93581abedcb017224ecb0813e0..392cc9ac2fa5f6fa1d83c7070e427da131db6173 100644 (file)
--- 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 13b0ac8b6ad3e005c04423081b524aa3b2b5e6fb..41a31004194f891233cb2c1fa30c448ed9961c31 100644 (file)
--- 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))