From 2582352d846fb7c9418cf516a859dbeaf840a4b3 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Wed, 8 Nov 2006 08:28:52 +0000
Subject: [PATCH] (www-ids-find-version): Update to 0.23.0.
 (www-ids-find-chise-link-map-url-prefix): New variable.
 (www-ids-find-format-line): Use
 `www-ids-find-chise-link-map-url-prefix'.
 (www-batch-ids-find): Update year of Copyright.

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

diff --git a/www/www-ids-find.el b/www/www-ids-find.el
index 84c6e9e..803750f 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.3")
+(defconst www-ids-find-version "0.23.0")
 
 (defvar www-ids-find-ideographic-products-file-name
   (expand-file-name "ideographic-products"
@@ -25,6 +25,9 @@
 		      "character"
 		      chise-system-db-directory))))
 
+(defvar www-ids-find-chise-link-map-url-prefix
+  "http://geta.mag.keio.ac.jp/chiseperl/map.cgi?code=")
+
 (defvar www-ids-find-tang-chars-file-name
   "~tomo/projects/chise/ids/www/tang-chars.udd")
 
@@ -120,8 +123,8 @@
 	   "          ")))
     (when ucs
       (princ
-       (format " <a href=\"http://geta.mag.keio.ac.jp/chiseperl/map.cgi?code=%X\">(link map)</a>"
-	       ucs)))
+       (format " <a href=\"%s%X\">(link map)</a>"
+	       www-ids-find-chise-link-map-url-prefix ucs)))
     (princ " ")
     (when is
       (princ
@@ -262,7 +265,7 @@
 		  www-ids-find-ideographic-products-file-name))))
     (princ "
 <p>
-Copyright (C) 2005 <a href=\"http://kanji.zinbun.kyoto-u.ac.jp/~tomo/\"
+Copyright (C) 2005, 2006 <a href=\"http://kanji.zinbun.kyoto-u.ac.jp/~tomo/\"
 >MORIOKA Tomohiko</a>
 <hr>
 <p>
-- 
1.7.10.4