From 85a46e0fd4b313df7bcab3222ec0a6a378d8eb9e Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 17 Jul 2008 21:58:23 +0000 Subject: [PATCH] - Use `=ucs@JP' instead of `=ucs@jp'. (japanese-traditionalize-string): Fix typo. --- ideo-trans.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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 ""))) -- 1.7.10.4