From: tomo <tomo>
Date: Thu, 17 Jul 2008 21:58:23 +0000 (+0000)
Subject: - Use `=ucs@JP' instead of `=ucs@jp'.
X-Git-Tag: chise-base-0_25~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=85a46e0fd4b313df7bcab3222ec0a6a378d8eb9e;p=chise%2Ftomoyo-tools.git

- Use `=ucs@JP' instead of `=ucs@jp'.
(japanese-traditionalize-string): Fix typo.
---

diff --git a/ideo-trans.el b/ideo-trans.el
index 3385583..882319d 100644
--- a/ideo-trans.el
+++ b/ideo-trans.el
@@ -130,7 +130,7 @@
 	      ((setq ret (char-feature chr '=>ucs@jis))
 	       (decode-char '=ucs@jis ret))
 	      ((setq ret (char-ucs chr))
-	       (decode-char '=ucs@jp ret))
+	       (decode-char '=ucs@JP ret))
 	      (t chr))))
      string "")))
 
@@ -192,8 +192,8 @@
     (mapconcat
      (lambda (chr)
        (char-to-string
-	(cond ((setq ret (or (char-feature ret '<-simplified@JP/Jouyou)
-			     (char-feature ret '<-simplified@JP)
+	(cond ((setq ret (or (char-feature chr '<-simplified@JP/Jouyou)
+			     (char-feature chr '<-simplified@JP)
 			     (char-feature chr '<-simplified)))
 	       (if (cdr ret)
 		   (ideo-trans-select-char ret (format "%c => " chr))
@@ -203,7 +203,7 @@
 		       (cond ((setq ret (char-feature chr '=>ucs@jis))
 			      (decode-char '=ucs@jis ret))
 			     ((setq ret (char-ucs chr))
-			      (decode-char '=ucs@jp ret))
+			      (decode-char '=ucs@JP ret))
 			     (t chr)))
 		 (setq ret (or (char-feature ret '<-simplified@JP/Jouyou)
 			       (char-feature ret '<-simplified@JP))))
@@ -213,7 +213,7 @@
 	      ((setq ret (char-feature chr '=>ucs@jis))
 	       (decode-char '=ucs@jis ret))
 	      ((setq ret (char-ucs chr))
-	       (decode-char '=ucs@jp ret))
+	       (decode-char '=ucs@JP ret))
 	      (t chr))))
      string "")))