From 9a07b2efd5ced4956607f5940ffaf141e176a05f Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 30 May 2008 11:15:00 +0000 Subject: [PATCH] (www-ids-find-format-char): New function. (www-ids-find-format-line): Use `www-ids-find-format-char'. --- www/www-ids-find.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) 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 "&" t 'literal)) - (buffer-string) - )) + (replace-match "&" 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))) -- 1.7.10.4