[Emacs-diffs] /srv/bzr/emacs/trunk r112096: Suppress unnecessary non-ASCII chatter during build process.

[Paul Eggert]

------------------------------------------------------------
revno: 112096
committer: Paul Eggert <address@hidden>
branch nick: trunk
timestamp: Tue 2013-03-19 22:17:04 -0700
message:
  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>.
modified:
  lisp/ChangeLog
  lisp/international/ja-dic-cnv.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-03-20 03:05:34 +0000
+++ b/lisp/ChangeLog    2013-03-20 05:17:04 +0000
@@ -1,3 +1,12 @@
+2013-03-20  Paul Eggert  <address@hidden>
+
+       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  <address@hidden>
 
        * ido.el (ido-chop): Fix bug#10994.

=== modified file 'lisp/international/ja-dic-cnv.el'
--- a/lisp/international/ja-dic-cnv.el  2013-03-19 04:41:53 +0000
+++ b/lisp/international/ja-dic-cnv.el  2013-03-20 05:17:04 +0000
@@ -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 @@
            (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))