From 7e28520f44fecf266deca2af59d9a6b87f92fe0f Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Tue, 1 Nov 2005 06:57:24 +0000
Subject: [PATCH] (www-ids-find-version): Update to 0.22.2.
 (www-ids-find-format-line): Add link for CHISE link-map.
 (www-batch-ids-find): Add link for
 http://fonts.jp/chise_linkmap/.

---
 www/www-ids-find.el |   21 ++++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

diff --git a/www/www-ids-find.el b/www/www-ids-find.el
index 4688510..24bdb50 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.22.1")
+(defconst www-ids-find-version "0.22.2")
 
 (defvar www-ids-find-ideographic-products-file-name
   (expand-file-name "ideographic-products"
@@ -110,13 +110,18 @@
     (princ
      (or (if (setq ucs (or (char-ucs c)
 			   (encode-char c 'ucs)))
-	     (format " <a href=\"http://www.unicode.org/cgi-bin/GetUnihanData.pl?codepoint=%X\">%s</a>"
-		     ucs
-		     (cond ((<= ucs #xFFFF)
-			    (format "U+%04X" ucs))
-			   ((<= ucs #x10FFFF)
-			    (format "U-%08X" ucs))))
+	     (format
+	      " <a href=\"http://www.unicode.org/cgi-bin/GetUnihanData.pl?codepoint=%X\">%s</a>"
+	      ucs
+	      (cond ((<= ucs #xFFFF)
+		     (format "U+%04X" ucs))
+		    ((<= ucs #x10FFFF)
+		     (format "U-%08X" ucs))))
 	   "          ")))
+    (when ucs
+      (princ
+       (format " <a href=\"http://geta.mag.keio.ac.jp/chiseperl/map.cgi?code=%X\">(link map)</a>"
+	       ucs)))
     (princ " ")
     (when is
       (princ
@@ -305,6 +310,8 @@ href=\"http://www.shuiren.org/\">睡人亭</a>）による解説
 >www-ids-find.el (source file (Emacs Lisp part))
 <li><a href=\"http://kanji.zinbun.kyoto-u.ac.jp/projects/chise/ids/\"
 >「CHISE 漢字構造情報データベース」</a>
+<li><a href=\"http://fonts.jp/chise_linkmap/\"
+>「chise_linkmap : CHISE 漢字連環図」</a> by 上地宏一さん
 <li><a href=\"http://kanji.zinbun.kyoto-u.ac.jp/projects/chise/\"
 >CHISE Project</a>
 </ul>
-- 
1.7.10.4