[mew-dist 29394] 半角カナ記号

村田隆 <[email protected]> Mon, 27 Jun 2011 16:05:37 +0900 (JST)

Newsgroups	gmane.mail.mew.general.japanese
Message-ID	<[email protected]>



 utf-8  encode 

-- 
  / [email protected]

--- mew-lang-jp.el~	Wed Sep  1 14:37:04 2010
+++ mew-lang-jp.el	Mon Jun 27 15:55:05 2011
@@ -119,6 +119,11 @@
 	 (ent (rassoc str mew-katakana-alist)))
     (if ent (car ent))))
 
+(defun mew-hankaku-kigou-code (ch)
+  (let* ((str (char-to-string ch))
+	 (ent (rassoc str mew-katakana-kigou-alist)))
+    (if ent (car ent))))
+
 (defun mew-zenkaku-katakana-region (beg end)
   (let (ch wk)
     (save-restriction
@@ -156,7 +161,7 @@
 	   ((setq wk (mew-hankaku-code ch))
 	    (delete-char -1)
 	    (insert (make-char mew-lc-jp ?\245 wk)))
-	   ((setq wk (mew-hankaku-code ch))
+	   ((setq wk (mew-hankaku-kigou-code ch))
 	    (delete-char -1)
 	    (insert (make-char mew-lc-jp ?\241 wk)))))))))