mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

Suppress unnecessary non-ASCII chatter during build process.

Browse Source 
* 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>.
This commit is contained in:
Paul Eggert 2013-03-19 22:17:04 -07:00
parent 438b0579ab
commit 2667d15db2
2 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/ChangeLog
View File

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

19
lisp/international/ja-dic-cnv.el
View File

@ -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))