From: tomo <tomo>
Date: Fri, 30 May 2008 11:15:00 +0000 (+0000)
Subject: (www-ids-find-format-char): New function.
X-Git-Tag: chise-base-0_24~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9a07b2efd5ced4956607f5940ffaf141e176a05f;p=chise%2Fids.git

(www-ids-find-format-char): New function.
(www-ids-find-format-line): Use `www-ids-find-format-char'.
---

diff --git a/www/www-ids-find.el b/www/www-ids-find.el
index 70fc81a..482331e 100644
--- a/www/www-ids-find.el
+++ b/www/www-ids-find.el
@@ -31,9 +31,9 @@
 (defvar www-ids-find-tang-chars-file-name
   "~tomo/projects/chise/ids/www/tang-chars.udd")
 
-(defun www-ids-find-format-line (c is)
+(defun www-ids-find-format-char (c)
   (let ((str (encode-coding-string (format "%c" c) 'utf-8-er))
-	plane code ucs)
+	plane code)
     (princ
      (with-temp-buffer
        (cond
@@ -107,9 +107,12 @@
 	 ))
        (goto-char (point-min))
        (while (search-forward "&" nil t)
-	 (replace-match "&amp;" t 'literal))
-       (buffer-string)
-       ))
+         (replace-match "&amp;" t 'literal))
+       (buffer-string)))))
+  
+(defun www-ids-find-format-line (c is)
+  (let (code ucs)
+    (www-ids-find-format-char c)
     (princ
      (or (if (setq ucs (or (char-ucs c)
 			   (encode-char c 'ucs)))