Mercurial > emacs

comparison lisp/international/ja-dic-cnv.el @ 91239:2fcaae6177a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-300
author Miles Bader <miles@gnu.org>
date Sun, 16 Dec 2007 05:08:49 +0000
parents 424b655804ca e50a2e215441
children 606f2d163a64
comparison
equal deleted inserted replaced
91238:5cf14a2107b5 91239:2fcaae6177a5
557 (count 0) 557 (count 0)
558 entry) 558 entry)
559 (while l 559 (while l
560 (setq count (1+ count)) 560 (setq count (1+ count))
561 (if (= (% count 10000) 0) 561 (if (= (% count 10000) 0)
562 (message (format "%d entries" count))) 562 (message "%d entries" count))
563 (setq entry (skkdic-extract-conversion-data (car l))) 563 (setq entry (skkdic-extract-conversion-data (car l)))
564 (set-nested-alist (car entry) (cdr entry) map) 564 (set-nested-alist (car entry) (cdr entry) map)
565 (setq l (cdr l))) 565 (setq l (cdr l)))
566 map))) 566 map)))
567 567