From b2183b4a28a68ae65b92272b7f1da0904e88ba72 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 24 Jul 2009 05:56:03 +0000 Subject: [PATCH] (www-ids-find-version): Update to 0.24.2. (www-ids-insert-chars-including-components): Modify for heavy access. --- www/www-ids-find.el | 27 +++++++++++++++------------ 1 file changed, 15 insertions(+), 12 deletions(-) diff --git a/www/www-ids-find.el b/www/www-ids-find.el index 0f1a347..f3d0c1d 100644 --- a/www/www-ids-find.el +++ b/www/www-ids-find.el @@ -15,7 +15,7 @@ (concat dest (substring string i)) coding-system)))) -(defconst www-ids-find-version "0.24.1") +(defconst www-ids-find-version "0.24.2") (defvar www-ids-find-ideographic-products-file-name (expand-file-name "ideographic-products" @@ -162,16 +162,18 @@ (defun www-ids-insert-chars-including-components (components &optional ignored-chars) (let ((products (copy-list (ideographic-products-find components))) - is as bs) + is as bs len ignore-children) + (setq len (length products)) (dolist (c (cond - ((> (length products) 10000) + ((> len 8192) + (setq ignore-children t) products) - ((> (length products) 4096) + ((> len 4096) (sort products (lambda (a b) (< (char-int a)(char-int b)))) ) - ((> (length products) 512) + ((> len 512) (sort products (lambda (a b) (if (setq as (char-total-strokes a)) @@ -197,12 +199,13 @@ (setq is (char-feature c 'ideographic-structure)) (princ "
  • ") (www-ids-find-format-line c is) - (princ "\n") + (unless ignore-children + (princ "\n")) ) )) ignored-chars) @@ -361,7 +364,7 @@ href=\"http://www.shuiren.org/\">睡人亭)による解説 )) (princ "
    ") (princ "

    -Copyright (C) 2005, 2006, 2007, 2008 MORIOKA Tomohiko") (princ (format -- 1.7.10.4