From d537fcb57410a4ab207cb505b940cca045101497 Mon Sep 17 00:00:00 2001 From: Takao Fujiwara Date: Tue, 26 Oct 2021 16:49:58 +0900 Subject: [PATCH] Resolves: #1998727 Fix emacs-anthy-unicode --- anthy-unicode-HEAD.patch | 2560 +++++++++++++++++++++++++++++++++++++- anthy-unicode.spec | 7 +- 2 files changed, 2561 insertions(+), 6 deletions(-) diff --git a/anthy-unicode-HEAD.patch b/anthy-unicode-HEAD.patch index 9c45497..421262e 100644 --- a/anthy-unicode-HEAD.patch +++ b/anthy-unicode-HEAD.patch @@ -4547,12 +4547,12 @@ index 0bb9917..13edcc2 100644 -- 2.28.0 -From a4399e5a2c7e941068a2e4821222bbc428c95f2f Mon Sep 17 00:00:00 2001 -From: fujiwarat -Date: Thu, 21 Oct 2021 22:34:55 +0900 +From 1873b393c0b2954173537d1e58320381b0ad60da Mon Sep 17 00:00:00 2001 +From: masanari iida +Date: Fri, 22 Oct 2021 11:45:30 +0900 Subject: [PATCH] alt-cannadic: Update gcanna.ctd with Shubitai -BUG=2007482 +BUG=rhbz#2007482 --- alt-cannadic/gcanna.ctd | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) @@ -4574,3 +4574,2555 @@ index b7af83a..2499a0f 100644 -- 2.28.0 +From c5a26435be5bec2da2fe62f5ee0d6bce2758aa88 Mon Sep 17 00:00:00 2001 +From: Shinji Tamura +Date: Fri, 22 Oct 2021 11:45:33 +0900 +Subject: [PATCH 1/4] src-util: Convert ISO-2022-JP to UTF-8 in *.el + +iconv -f ISO-2022-JP -o anthy-unicode.el anthy.el + +BUG=rhbz#1998727 +--- + src-util/anthy-azik.el | 233 ------------------ + src-util/anthy-conf.el | 122 --------- + src-util/anthy-kyuri.el | 210 ---------------- + src-util/anthy-unicode-azik.el | 233 ++++++++++++++++++ + src-util/anthy-unicode-conf.el | 122 +++++++++ + .../{anthy-dic.el => anthy-unicode-dic.el} | 58 ++--- + ...hy-isearch.el => anthy-unicode-isearch.el} | 10 +- + src-util/anthy-unicode-kyuri.el | 210 ++++++++++++++++ + src-util/{anthy.el => anthy-unicode.el} | 188 +++++++------- + 9 files changed, 693 insertions(+), 693 deletions(-) + delete mode 100644 src-util/anthy-azik.el + delete mode 100644 src-util/anthy-conf.el + delete mode 100644 src-util/anthy-kyuri.el + create mode 100644 src-util/anthy-unicode-azik.el + create mode 100644 src-util/anthy-unicode-conf.el + rename src-util/{anthy-dic.el => anthy-unicode-dic.el} (59%) + rename src-util/{anthy-isearch.el => anthy-unicode-isearch.el} (91%) + create mode 100644 src-util/anthy-unicode-kyuri.el + rename src-util/{anthy.el => anthy-unicode.el} (82%) + +diff --git a/src-util/anthy-azik.el b/src-util/anthy-azik.el +deleted file mode 100644 +index 53e5d3e..0000000 +--- a/src-util/anthy-azik.el ++++ /dev/null +@@ -1,233 +0,0 @@ +-;; anthy-azik.el +- +-;; Copyright (C) 2004 +-;; Author: Yutaka Hara +- +-;; add following 2 lines to ~/.emacs +-;; (load-library "anthy-azik") +-;; (anthy-azik-mode) +-;; +- +-(defvar anthy-azik-mode-hiragana-map +- '( +- (";" . "$B$C(B") ("x;" . ";") ("b." . "$B$V(B") ("bd" . "$B$Y$s(B") ("bh" . "$B$V$&(B") +- ("bj" . "$B$V$s(B") ("bk" . "$B$S$s(B") ("bl" . "$B$\$s(B") ("bn" . "$B$P$s(B") ("bp" . "$B$\$&(B") +- ("bq" . "$B$P$$(B") ("br" . "$B$P$i(B") ("bt" . "$B$S$H(B") ("bw" . "$B$Y$$(B") ("bx" . "$B$Y$$(B") +- ("byd" . "$B$S$'$s(B") ("byh" . "$B$S$e$&(B") ("byj" . "$B$S$e$s(B") ("byl" . "$B$S$g$s(B") ("byn" . "$B$S$c$s(B") +- ("byp" . "$B$S$g$&(B") ("byq" . "$B$S$c$$(B") ("byw" . "$B$S$'$$(B") ("byz" . "$B$S$c$s(B") ("bz" . "$B$P$s(B") +- ("ca" . "$B$A$c(B") ("cc" . "$B$A$c(B") ("cd" . "$B$A$'$s(B") ("ce" . "$B$A$'(B") ("cf" . "$B$A$'(B") +- ("ch" . "$B$A$e$&(B") ("ci" . "$B$A(B") ("cj" . "$B$A$e$s(B") ("ck" . "$B$A$s(B") ("cl" . "$B$A$g$s(B") +- ("cn" . "$B$A$c$s(B") ("co" . "$B$A$g(B") ("cp" . "$B$A$g$&(B") ("cq" . "$B$A$c$$(B") ("cu" . "$B$A$e(B") +- ("cv" . "$B$A$c$$(B") ("cw" . "$B$A$'$$(B") ("cx" . "$B$A$'$$(B") ("cz" . "$B$A$c$s(B") ("dch" . "$B$G$e!<(B") +- ("dci" . "$B$G$#(B") ("dck" . "$B$G$#$s(B") ("dcp" . "$B$I$%!<(B") ("dcu" . "$B$G$e(B") ("dd" . "$B$G$s(B") +- ("df" . "$B$G(B") ("dg" . "$B$@$,(B") ("dh" . "$B$E$&(B") ("dj" . "$B$E$s(B") ("dk" . "$B$B$s(B") +- ("dl" . "$B$I$s(B") ("dm" . "$B$G$b(B") ("dn" . "$B$@$s(B") ("dp" . "$B$I$&(B") ("dq" . "$B$@$$(B") +- ("dr" . "$B$G$"$k(B") ("ds" . "$B$G$9(B") ("dt" . "$B$@$A(B") ("dv" . "$B$G$s(B") ("dw" . "$B$G$$(B") +- ("dy" . "$B$G$#(B") ("dz" . "$B$@$s(B") ("fd" . "$B$U$'$s(B") ("fh" . "$B$U$&(B") ("fj" . "$B$U$s(B") +- ("fk" . "$B$U$#$s(B") ("fl" . "$B$U$)$s(B") ("fm" . "$B$U$`(B") ("fn" . "$B$U$!$s(B") ("fp" . "$B$U$)!<(B") +- ("fq" . "$B$U$!$$(B") ("fr" . "$B$U$k(B") ("fs" . "$B$U$!$$(B") ("fw" . "$B$U$'$$(B") ("fz" . "$B$U$!$s(B") +- ("gd" . "$B$2$s(B") ("gh" . "$B$0$&(B") ("gj" . "$B$0$s(B") ("gk" . "$B$.$s(B") ("gl" . "$B$4$s(B") +- ("gn" . "$B$,$s(B") ("gp" . "$B$4$&(B") ("gq" . "$B$,$$(B") ("gr" . "$B$,$i(B") ("gt" . "$B$4$H(B") +- ("gw" . "$B$2$$(B") ("gyd" . "$B$.$'$s(B") ("gyh" . "$B$.$e$&(B") ("gyj" . "$B$.$e$s(B") ("gyl" . "$B$.$g$s(B") +- ("gyn" . "$B$.$c$s(B") ("gyp" . "$B$.$g$&(B") ("gyq" . "$B$.$c$$(B") ("gyw" . "$B$.$'$$(B") ("gyz" . "$B$.$c$s(B") +- ("gz" . "$B$,$s(B") ("hd" . "$B$X$s(B") ("hf" . "$B$U(B") ("hga" . "$B$R$c(B") ("hgd" . "$B$R$'$s(B") +- ("hge" . "$B$R$'(B") ("hgh" . "$B$R$e$&(B") ("hgj" . "$B$R$e$s(B") ("hgl" . "$B$R$g$s(B") ("hgn" . "$B$R$c$s(B") +- ("hgo" . "$B$R$g(B") ("hgp" . "$B$R$g$&(B") ("hgq" . "$B$R$c$$(B") ("hgu" . "$B$R$e(B") ("hgw" . "$B$R$'$$(B") +- ("hgz" . "$B$R$c$s(B") ("hh" . "$B$U$&(B") ("hj" . "$B$U$s(B") ("hk" . "$B$R$s(B") ("hl" . "$B$[$s(B") +- ("hn" . "$B$O$s(B") ("hp" . "$B$[$&(B") ("hq" . "$B$O$$(B") ("ht" . "$B$R$H(B") ("hw" . "$B$X$$(B") +- ("hyd" . "$B$R$'$s(B") ("hyh" . "$B$R$e$&(B") ("hyl" . "$B$R$g$s(B") ("hyp" . "$B$R$g$&(B") ("hyq" . "$B$R$c$$(B") +- ("hyw" . "$B$R$'$$(B") ("hyz" . "$B$R$c$s(B") ("hz" . "$B$O$s(B") ("jd" . "$B$8$'$s(B") ("jf" . "$B$8$e(B") +- ("jh" . "$B$8$e$&(B") ("jj" . "$B$8$e$s(B") ("jk" . "$B$8$s(B") ("jl" . "$B$8$g$s(B") ("jn" . "$B$8$c$s(B") +- ("jp" . "$B$8$g$&(B") ("jq" . "$B$8$c$$(B") ("jv" . "$B$8$e$&(B") ("jw" . "$B$8$'$$(B") ("jz" . "$B$8$c$s(B") +- ("kA" . "$B%u(B") ("kE" . "$B%v(B") ("kd" . "$B$1$s(B") ("kf" . "$B$-(B") ("kga" . "$B$-$c(B") +- ("kgd" . "$B$-$'$s(B") ("kge" . "$B$-$'(B") ("kgh" . "$B$-$e$&(B") ("kgl" . "$B$-$g$s(B") ("kgn" . "$B$-$c$s(B") +- ("kgo" . "$B$-$g(B") ("kgp" . "$B$-$g$&(B") ("kgq" . "$B$-$c$$(B") ("kgu" . "$B$-$e(B") ("kgw" . "$B$-$'$$(B") +- ("kgz" . "$B$-$c$s(B") ("kh" . "$B$/$&(B") ("kj" . "$B$/$s(B") ("kk" . "$B$-$s(B") ("kl" . "$B$3$s(B") +- ("km" . "$B$-(B") ("kn" . "$B$+$s(B") ("kp" . "$B$3$&(B") ("kq" . "$B$+$$(B") ("kr" . "$B$+$i(B") +- ("kt" . "$B$3$H(B") ("kv" . "$B$-$s(B") ("kw" . "$B$1$$(B") ("kyd" . "$B$-$'$s(B") ("kyh" . "$B$-$e$&(B") +- ("kyj" . "$B$-$e$s(B") ("kyl" . "$B$-$g$s(B") ("kyn" . "$B$-$c$s(B") ("kyp" . "$B$-$g$&(B") ("kyq" . "$B$-$c$$(B") +- ("kyw" . "$B$-$'$$(B") ("kyz" . "$B$-$c$s(B") ("kz" . "$B$+$s(B") ("m." . "$B$`(B") ("md" . "$B$a$s(B") +- ("mf" . "$B$`(B") ("mga" . "$B$_$c(B") ("mgd" . "$B$_$'$s(B") ("mge" . "$B$_$'(B") ("mgh" . "$B$_$e$&(B") +- ("mgj" . "$B$_$e$s(B") ("mgl" . "$B$_$g$s(B") ("mgn" . "$B$_$c$s(B") ("mgo" . "$B$_$g(B") ("mgp" . "$B$_$g$&(B") +- ("mgq" . "$B$_$c$$(B") ("mgu" . "$B$_$e(B") ("mgw" . "$B$_$'$$(B") ("mgz" . "$B$_$c$s(B") ("mh" . "$B$`$&(B") +- ("mj" . "$B$`$s(B") ("mk" . "$B$_$s(B") ("ml" . "$B$b$s(B") ("mn" . "$B$b$N(B") ("mp" . "$B$b$&(B") +- ("mq" . "$B$^$$(B") ("mr" . "$B$^$k(B") ("ms" . "$B$^$9(B") ("mt" . "$B$^$?(B") ("mv" . "$B$`$s(B") +- ("mw" . "$B$a$$(B") ("myd" . "$B$_$'$s(B") ("myh" . "$B$_$e$&(B") ("myj" . "$B$_$e$s(B") ("myl" . "$B$_$g$s(B") +- ("myn" . "$B$_$c$s(B") ("myp" . "$B$_$g$&(B") ("myq" . "$B$_$c$$(B") ("myw" . "$B$_$'$$(B") ("myz" . "$B$_$c$s(B") +- ("mz" . "$B$^$s(B") ("n." . "$B$L(B") ("nb" . "$B$M$P(B") ("nd" . "$B$M$s(B") ("nf" . "$B$L(B") +- ("nga" . "$B$K$c(B") ("ngd" . "$B$K$'$s(B") ("nge" . "$B$K$'(B") ("ngh" . "$B$K$e$&(B") ("ngj" . "$B$K$e$s(B") +- ("ngl" . "$B$K$g$s(B") ("ngn" . "$B$K$c$s(B") ("ngo" . "$B$K$g(B") ("ngp" . "$B$K$g$&(B") ("ngq" . "$B$K$c$$(B") +- ("ngu" . "$B$K$e(B") ("ngw" . "$B$K$'$$(B") ("ngz" . "$B$K$c$s(B") ("nh" . "$B$L$&(B") ("nj" . "$B$L$s(B") +- ("nk" . "$B$K$s(B") ("nl" . "$B$N$s(B") ("np" . "$B$N$&(B") ("nq" . "$B$J$$(B") ("nr" . "$B$J$k(B") +- ("nt" . "$B$K$A(B") ("nv" . "$B$L$s(B") ("nw" . "$B$M$$(B") ("nyd" . "$B$K$'$s(B") ("nyh" . "$B$K$e$&(B") +- ("nyj" . "$B$K$e$s(B") ("nyl" . "$B$K$g$s(B") ("nyn" . "$B$K$c$s(B") ("nyp" . "$B$K$g$&(B") ("nyq" . "$B$K$c$$(B") +- ("nyw" . "$B$K$'$$(B") ("nyz" . "$B$K$c$s(B") ("nz" . "$B$J$s(B") ("pd" . "$B$Z$s(B") ("pf" . "$B$]$s(B") +- ("pga" . "$B$T$c(B") ("pgd" . "$B$T$'$s(B") ("pge" . "$B$T$'(B") ("pgh" . "$B$T$e$&(B") ("pgj" . "$B$T$e$s(B") +- ("pgl" . "$B$T$g$s(B") ("pgn" . "$B$T$c$s(B") ("pgo" . "$B$T$g(B") ("pgp" . "$B$T$g$&(B") ("pgq" . "$B$T$c$$(B") +- ("pgu" . "$B$T$e(B") ("pgw" . "$B$T$'$$(B") ("pgz" . "$B$T$c$s(B") ("ph" . "$B$W$&(B") ("pj" . "$B$W$s(B") +- ("pk" . "$B$T$s(B") ("pl" . "$B$]$s(B") ("pn" . "$B$Q$s(B") ("pp" . "$B$]$&(B") ("pq" . "$B$Q$$(B") +- ("pv" . "$B$]$&(B") ("pw" . "$B$Z$$(B") ("pyd" . "$B$T$'$s(B") ("pyh" . "$B$T$e$&(B") ("pyj" . "$B$T$e$s(B") +- ("pyl" . "$B$T$g$s(B") ("pyn" . "$B$T$c$s(B") ("pyp" . "$B$T$g$&(B") ("pyq" . "$B$T$c$$(B") ("pyw" . "$B$T$'$$(B") +- ("pyz" . "$B$T$c$s(B") ("pz" . "$B$Q$s(B") ("q" . "$B$s(B") ("rd" . "$B$l$s(B") ("rh" . "$B$k$&(B") +- ("rj" . "$B$k$s(B") ("rk" . "$B$j$s(B") ("rl" . "$B$m$s(B") ("rn" . "$B$i$s(B") ("rp" . "$B$m$&(B") +- ("rq" . "$B$i$$(B") ("rr" . "$B$i$l(B") ("rw" . "$B$l$$(B") ("ryd" . "$B$j$'$s(B") ("ryh" . "$B$j$e$&(B") +- ("ryj" . "$B$j$e$s(B") ("ryk" . "$B$j$g$/(B") ("ryl" . "$B$j$g$s(B") ("ryn" . "$B$j$c$s(B") ("ryp" . "$B$j$g$&(B") +- ("ryq" . "$B$j$c$$(B") ("ryw" . "$B$j$'$$(B") ("ryz" . "$B$j$c$s(B") ("rz" . "$B$i$s(B") ("sd" . "$B$;$s(B") +- ("sf" . "$B$5$$(B") ("sh" . "$B$9$&(B") ("sj" . "$B$9$s(B") ("sk" . "$B$7$s(B") ("sl" . "$B$=$s(B") +- ("sm" . "$B$7$b(B") ("sn" . "$B$5$s(B") ("sp" . "$B$=$&(B") ("sq" . "$B$5$$(B") ("sr" . "$B$9$k(B") +- ("ss" . "$B$;$$(B") ("st" . "$B$7$?(B") ("sv" . "$B$5$$(B") ("sw" . "$B$;$$(B") ("syd" . "$B$7$'$s(B") +- ("syh" . "$B$7$e$&(B") ("syj" . "$B$7$e$s(B") ("syl" . "$B$7$g$s(B") ("syp" . "$B$7$g$&(B") ("syq" . "$B$7$c$$(B") +- ("syw" . "$B$7$'$$(B") ("syz" . "$B$7$c$s(B") ("sz" . "$B$5$s(B") ("tU" . "$B$C(B") ("tb" . "$B$?$S(B") +- ("td" . "$B$F$s(B") ("tgh" . "$B$F$e!<(B") ("tgi" . "$B$F$#(B") ("tgk" . "$B$F$#$s(B") ("tgp" . "$B$H$%!<(B") +- ("tgu" . "$B$F$e(B") ("th" . "$B$D$&(B") ("tj" . "$B$D$s(B") ("tk" . "$B$A$s(B") ("tl" . "$B$H$s(B") +- ("tm" . "$B$?$a(B") ("tn" . "$B$?$s(B") ("tp" . "$B$H$&(B") ("tq" . "$B$?$$(B") ("tr" . "$B$?$i(B") +- ("tsU" . "$B$C(B") ("tsa" . "$B$D$!(B") ("tse" . "$B$D$'(B") ("tsi" . "$B$D$#(B") ("tso" . "$B$D$)(B") +- ("tt" . "$B$?$A(B") ("tw" . "$B$F$$(B") ("tyd" . "$B$A$'$s(B") ("tyh" . "$B$A$e$&(B") ("tyj" . "$B$A$e$s(B") +- ("tyl" . "$B$A$g$s(B") ("tyn" . "$B$A$c$s(B") ("typ" . "$B$A$g$&(B") ("tyq" . "$B$A$c$$(B") ("tyw" . "$B$A$'$$(B") +- ("tyz" . "$B$A$c$s(B") ("tz" . "$B$?$s(B") ("vd" . "$B$&!+$'$s(B") ("vk" . "$B$&!+$#$s(B") ("vl" . "$B$&!+$)$s(B") +- ("vn" . "$B$&!+$!$s(B") ("vp" . "$B$&!+$)!<(B") ("vq" . "$B$&!+$!$$(B") ("vw" . "$B$&!+$'$$(B") ("vya" . "$B$&!+$c(B") +- ("vye" . "$B$&!+$'(B") ("vyo" . "$B$&!+$g(B") ("vyu" . "$B$&!+$e(B") ("vz" . "$B$&!+$!$s(B") ("wA" . "$B$n(B") +- ("wd" . "$B$&$'$s(B") ("wf" . "$B$o(B") ("wha" . "$B$&$!(B") ("whe" . "$B$&$'(B") ("whi" . "$B$&$#(B") +- ("who" . "$B$&$)(B") ("whu" . "$B$&(B") ("wk" . "$B$&$#$s(B") ("wl" . "$B$&$)$s(B") ("wn" . "$B$o$s(B") +- ("wp" . "$B$&$)!<(B") ("wq" . "$B$o$$(B") ("wr" . "$B$o$l(B") ("wso" . "$B$&$)(B") ("wt" . "$B$o$?(B") +- ("wz" . "$B$o$s(B") ("xa" . "$B$7$c(B") ("xc" . "$B$7$c(B") ("xd" . "$B$7$'$s(B") ("xe" . "$B$7$'(B") +- ("xf" . "$B$7$'$$(B") ("xh" . "$B$7$e$&(B") ("xi" . "$B$7(B") ("xj" . "$B$7$e$s(B") ("xk" . "$B$7$s(B") +- ("xl" . "$B$7$g$s(B") ("xn" . "$B$7$c$s(B") ("xo" . "$B$7$g(B") ("xp" . "$B$7$g$&(B") ("xq" . "$B$7$c$$(B") +- ("xt" . "$B$7$e$D(B") ("xu" . "$B$7$e(B") ("xv" . "$B$7$c$$(B") ("xw" . "$B$7$'$$(B") ("xxa" . "$B$!(B") +- ("xxe" . "$B$'(B") ("xxi" . "$B$#(B") ("xxo" . "$B$)(B") ("xxu" . "$B$%(B") ("xxh" . "$B"+(B") +- ("xxj" . "$B"-(B") ("xxk" . "$B",(B") ("xxl" . "$B"*(B") ("xz" . "$B$7$c$s(B") ("y<" . "$B"+(B") +- ("y>" . "$B"*(B") ("y^" . "$B",(B") ("yf" . "$B$f(B") ("yh" . "$B$f$&(B") ("yi" . "$B$p(B") +- ("yj" . "$B$f$s(B") ("yl" . "$B$h$s(B") ("yn" . "$B$d$s(B") ("yp" . "$B$h$&(B") ("yq" . "$B$d$$(B") +- ("yr" . "$B$h$k(B") ("yv" . "$B$f$&(B") ("yz" . "$B$d$s(B") ("z." . "$B$:(B") ("zc" . "$B$6(B") +- ("zd" . "$B$<$s(B") ("zf" . "$B$<(B") ("zh" . "$B$:$&(B") ("zj" . "$B$:$s(B") ("zk" . "$B$8$s(B") +- ("zl" . "$B$>$s(B") ("zn" . "$B$6$s(B") ("zp" . "$B$>$&(B") ("zq" . "$B$6$$(B") ("zr" . "$B$6$k(B") +- ("zv" . "$B$6$$(B") ("zw" . "$B$<$$(B") ("zx" . "$B$<$$(B") ("zyd" . "$B$8$'$s(B") ("zyh" . "$B$8$e$&(B") +- ("zyj" . "$B$8$e$s(B") ("zyl" . "$B$8$g$s(B") ("zyn" . "$B$8$c$s(B") ("zyp" . "$B$8$g$&(B") ("zyq" . "$B$8$c$$(B") +- ("zyw" . "$B$8$'$$(B") ("zyz" . "$B$8$c$s(B") ("zz" . "$B$6$s(B") ("bx" . "$B$S$g$&(B") ("bx" . "$B$S$g$&(B") +- ("dx" . "$B$B$g$&(B") ("gx" . "$B$.$g$&(B") ("hx" . "$B$R$g$&(B") ("kx" . "$B$-$g$&(B") ("mx" . "$B$_$g$&(B") +- ("nx" . "$B$K$g$&(B") ("px" . "$B$T$g$&(B") ("rx" . "$B$j$g$&(B") ("sx" . "$B$7$g$&(B") ("bv" . "$B$S$e$&(B") +- ("dv" . "$B$B$e$&(B") ("fv" . "$B$U$e!<(B") ("gv" . "$B$.$e$&(B") ("hv" . "$B$R$e$&(B") ("kv" . "$B$-$e$&(B") +- ("mv" . "$B$_$e$&(B") ("nv" . "$B$K$e$&(B") ("pv" . "$B$T$e$&(B") ("rv" . "$B$j$e$&(B") ("sv" . "$B$7$e$&(B") +- ("vv" . "$B$&!+$e!<(B") +- )) +- +-; (defvar anthy-azik-mode-katakana-map +-; '( +-; (";" . "$B%C(B") ("x;" . ";") ("b." . "$B%V(B") ("bd" . "$B%Y%s(B") ("bh" . "$B%V%&(B") +-; ("bj" . "$B%V%s(B") ("bk" . "$B%S%s(B") ("bl" . "$B%%(Bs") ("bn" . "$B%P%s(B") ("bp" . "$B%%(B&") +-; ("bq" . "$B%P%$(B") ("br" . "$B%P%i(B") ("bt" . "$B%S%H(B") ("bw" . "$B%Y%$(B") ("bx" . "$B%Y%$(B") +-; ("byd" . "$B%S%'%s(B") ("byh" . "$B%S%e%&(B") ("byj" . "$B%S%e%s(B") ("byl" . "$B%S%g%s(B") ("byn" . "$B%S%c%s(B") +-; ("byp" . "$B%S%g%&(B") ("byq" . "$B%S%c%$(B") ("byw" . "$B%S%'%$(B") ("byz" . "$B%S%c%s(B") ("bz" . "$B%P%s(B") +-; ("ca" . "$B%A%c(B") ("cc" . "$B%A%c(B") ("cd" . "$B%A%'%s(B") ("ce" . "$B%A%'(B") ("cf" . "$B%A%'(B") +-; ("ch" . "$B%A%e%&(B") ("ci" . "$B%A(B") ("cj" . "$B%A%e%s(B") ("ck" . "$B%A%s(B") ("cl" . "$B%A%g%s(B") +-; ("cn" . "$B%A%c%s(B") ("co" . "$B%A%g(B") ("cp" . "$B%A%g%&(B") ("cq" . "$B%A%c%$(B") ("cu" . "$B%A%e(B") +-; ("cv" . "$B%A%c%$(B") ("cw" . "$B%A%'%$(B") ("cx" . "$B%A%'%$(B") ("cz" . "$B%A%c%s(B") ("dch" . "$B%G%e!<(B") +-; ("dci" . "$B%G%#(B") ("dck" . "$B%G%#%s(B") ("dcp" . "$B%I%%!<(B") ("dcu" . "$B%G%e(B") ("dd" . "$B%G%s(B") +-; ("df" . "$B%G(B") ("dg" . "$B%@%,(B") ("dh" . "$B%E%&(B") ("dj" . "$B%E%s(B") ("dk" . "$B%B%s(B") +-; ("dl" . "$B%I%s(B") ("dm" . "$B%G%b(B") ("dn" . "$B%@%s(B") ("dp" . "$B%I%&(B") ("dq" . "$B%@%$(B") +-; ("dr" . "$B%G%"%k(B") ("ds" . "$B%G%9(B") ("dt" . "$B%@%A(B") ("dv" . "$B%G%s(B") ("dw" . "$B%G%$(B") +-; ("dy" . "$B%G%#(B") ("dz" . "$B%@%s(B") ("fd" . "$B%U%'%s(B") ("fh" . "$B%U%&(B") ("fj" . "$B%U%s(B") +-; ("fk" . "$B%U%#%s(B") ("fl" . "$B%U%)%s(B") ("fm" . "$B%U%`(B") ("fn" . "$B%U%!%s(B") ("fp" . "$B%U%)!<(B") +-; ("fq" . "$B%U%!%$(B") ("fr" . "$B%U%k(B") ("fs" . "$B%U%!%$(B") ("fw" . "$B%U%'%$(B") ("fz" . "$B%U%!%s(B") +-; ("gd" . "$B%2%s(B") ("gh" . "$B%0%&(B") ("gj" . "$B%0%s(B") ("gk" . "$B%.%s(B") ("gl" . "$B%4%s(B") +-; ("gn" . "$B%,%s(B") ("gp" . "$B%4%&(B") ("gq" . "$B%,%$(B") ("gr" . "$B%,%i(B") ("gt" . "$B%4%H(B") +-; ("gw" . "$B%2%$(B") ("gyd" . "$B%.%'%s(B") ("gyh" . "$B%.%e%&(B") ("gyj" . "$B%.%e%s(B") ("gyl" . "$B%.%g%s(B") +-; ("gyn" . "$B%.%c%s(B") ("gyp" . "$B%.%g%&(B") ("gyq" . "$B%.%c%$(B") ("gyw" . "$B%.%'%$(B") ("gyz" . "$B%.%c%s(B") +-; ("gz" . "$B%,%s(B") ("hd" . "$B%X%s(B") ("hf" . "$B%U(B") ("hga" . "$B%R%c(B") ("hgd" . "$B%R%'%s(B") +-; ("hge" . "$B%R%'(B") ("hgh" . "$B%R%e%&(B") ("hgj" . "$B%R%e%s(B") ("hgl" . "$B%R%g%s(B") ("hgn" . "$B%R%c%s(B") +-; ("hgo" . "$B%R%g(B") ("hgp" . "$B%R%g%&(B") ("hgq" . "$B%R%c%$(B") ("hgu" . "$B%R%e(B") ("hgw" . "$B%R%'%$(B") +-; ("hgz" . "$B%R%c%s(B") ("hh" . "$B%U%&(B") ("hj" . "$B%U%s(B") ("hk" . "$B%R%s(B") ("hl" . "$B%[%s(B") +-; ("hn" . "$B%O%s(B") ("hp" . "$B%[%&(B") ("hq" . "$B%O%$(B") ("ht" . "$B%R%H(B") ("hw" . "$B%X%$(B") +-; ("hyd" . "$B%R%'%s(B") ("hyh" . "$B%R%e%&(B") ("hyl" . "$B%R%g%s(B") ("hyp" . "$B%R%g%&(B") ("hyq" . "$B%R%c%$(B") +-; ("hyw" . "$B%R%'%$(B") ("hyz" . "$B%R%c%s(B") ("hz" . "$B%O%s(B") ("jd" . "$B%8%'%s(B") ("jf" . "$B%8%e(B") +-; ("jh" . "$B%8%e%&(B") ("jj" . "$B%8%e%s(B") ("jk" . "$B%8%s(B") ("jl" . "$B%8%g%s(B") ("jn" . "$B%8%c%s(B") +-; ("jp" . "$B%8%g%&(B") ("jq" . "$B%8%c%$(B") ("jv" . "$B%8%e%&(B") ("jw" . "$B%8%'%$(B") ("jz" . "$B%8%c%s(B") +-; ("kA" . "$B%u(B") ("kE" . "$B%v(B") ("kd" . "$B%1%s(B") ("kf" . "$B%-(B") ("kga" . "$B%-%c(B") +-; ("kgd" . "$B%-%'%s(B") ("kge" . "$B%-%'(B") ("kgh" . "$B%-%e%&(B") ("kgl" . "$B%-%g%s(B") ("kgn" . "$B%-%c%s(B") +-; ("kgo" . "$B%-%g(B") ("kgp" . "$B%-%g%&(B") ("kgq" . "$B%-%c%$(B") ("kgu" . "$B%-%e(B") ("kgw" . "$B%-%'%$(B") +-; ("kgz" . "$B%-%c%s(B") ("kh" . "$B%/%&(B") ("kj" . "$B%/%s(B") ("kk" . "$B%-%s(B") ("kl" . "$B%3%s(B") +-; ("km" . "$B%-(B") ("kn" . "$B%+%s(B") ("kp" . "$B%3%&(B") ("kq" . "$B%+%$(B") ("kr" . "$B%+%i(B") +-; ("kt" . "$B%3%H(B") ("kv" . "$B%-%s(B") ("kw" . "$B%1%$(B") ("kyd" . "$B%-%'%s(B") ("kyh" . "$B%-%e%&(B") +-; ("kyj" . "$B%-%e%s(B") ("kyl" . "$B%-%g%s(B") ("kyn" . "$B%-%c%s(B") ("kyp" . "$B%-%g%&(B") ("kyq" . "$B%-%c%$(B") +-; ("kyw" . "$B%-%'%$(B") ("kyz" . "$B%-%c%s(B") ("kz" . "$B%+%s(B") ("m." . "$B%`(B") ("md" . "$B%a%s(B") +-; ("mf" . "$B%`(B") ("mga" . "$B%_%c(B") ("mgd" . "$B%_%'%s(B") ("mge" . "$B%_%'(B") ("mgh" . "$B%_%e%&(B") +-; ("mgj" . "$B%_%e%s(B") ("mgl" . "$B%_%g%s(B") ("mgn" . "$B%_%c%s(B") ("mgo" . "$B%_%g(B") ("mgp" . "$B%_%g%&(B") +-; ("mgq" . "$B%_%c%$(B") ("mgu" . "$B%_%e(B") ("mgw" . "$B%_%'%$(B") ("mgz" . "$B%_%c%s(B") ("mh" . "$B%`%&(B") +-; ("mj" . "$B%`%s(B") ("mk" . "$B%_%s(B") ("ml" . "$B%b%s(B") ("mn" . "$B%b%N(B") ("mp" . "$B%b%&(B") +-; ("mq" . "$B%^%$(B") ("mr" . "$B%^%k(B") ("ms" . "$B%^%9(B") ("mt" . "$B%^%?(B") ("mv" . "$B%`%s(B") +-; ("mw" . "$B%a%$(B") ("myd" . "$B%_%'%s(B") ("myh" . "$B%_%e%&(B") ("myj" . "$B%_%e%s(B") ("myl" . "$B%_%g%s(B") +-; ("myn" . "$B%_%c%s(B") ("myp" . "$B%_%g%&(B") ("myq" . "$B%_%c%$(B") ("myw" . "$B%_%'%$(B") ("myz" . "$B%_%c%s(B") +-; ("mz" . "$B%^%s(B") ("n." . "$B%L(B") ("nb" . "$B%M%P(B") ("nd" . "$B%M%s(B") ("nf" . "$B%L(B") +-; ("nga" . "$B%K%c(B") ("ngd" . "$B%K%'%s(B") ("nge" . "$B%K%'(B") ("ngh" . "$B%K%e%&(B") ("ngj" . "$B%K%e%s(B") +-; ("ngl" . "$B%K%g%s(B") ("ngn" . "$B%K%c%s(B") ("ngo" . "$B%K%g(B") ("ngp" . "$B%K%g%&(B") ("ngq" . "$B%K%c%$(B") +-; ("ngu" . "$B%K%e(B") ("ngw" . "$B%K%'%$(B") ("ngz" . "$B%K%c%s(B") ("nh" . "$B%L%&(B") ("nj" . "$B%L%s(B") +-; ("nk" . "$B%K%s(B") ("nl" . "$B%N%s(B") ("np" . "$B%N%&(B") ("nq" . "$B%J%$(B") ("nr" . "$B%J%k(B") +-; ("nt" . "$B%K%A(B") ("nv" . "$B%L%s(B") ("nw" . "$B%M%$(B") ("nyd" . "$B%K%'%s(B") ("nyh" . "$B%K%e%&(B") +-; ("nyj" . "$B%K%e%s(B") ("nyl" . "$B%K%g%s(B") ("nyn" . "$B%K%c%s(B") ("nyp" . "$B%K%g%&(B") ("nyq" . "$B%K%c%$(B") +-; ("nyw" . "$B%K%'%$(B") ("nyz" . "$B%K%c%s(B") ("nz" . "$B%J%s(B") ("pd" . "$B%Z%s(B") ("pf" . "$B%]%s(B") +-; ("pga" . "$B%T%c(B") ("pgd" . "$B%T%'%s(B") ("pge" . "$B%T%'(B") ("pgh" . "$B%T%e%&(B") ("pgj" . "$B%T%e%s(B") +-; ("pgl" . "$B%T%g%s(B") ("pgn" . "$B%T%c%s(B") ("pgo" . "$B%T%g(B") ("pgp" . "$B%T%g%&(B") ("pgq" . "$B%T%c%$(B") +-; ("pgu" . "$B%T%e(B") ("pgw" . "$B%T%'%$(B") ("pgz" . "$B%T%c%s(B") ("ph" . "$B%W%&(B") ("pj" . "$B%W%s(B") +-; ("pk" . "$B%T%s(B") ("pl" . "$B%]%s(B") ("pn" . "$B%Q%s(B") ("pp" . "$B%]%&(B") ("pq" . "$B%Q%$(B") +-; ("pv" . "$B%]%&(B") ("pw" . "$B%Z%$(B") ("pyd" . "$B%T%'%s(B") ("pyh" . "$B%T%e%&(B") ("pyj" . "$B%T%e%s(B") +-; ("pyl" . "$B%T%g%s(B") ("pyn" . "$B%T%c%s(B") ("pyp" . "$B%T%g%&(B") ("pyq" . "$B%T%c%$(B") ("pyw" . "$B%T%'%$(B") +-; ("pyz" . "$B%T%c%s(B") ("pz" . "$B%Q%s(B") ("q" . "$B%s(B") ("rd" . "$B%l%s(B") ("rh" . "$B%k%&(B") +-; ("rj" . "$B%k%s(B") ("rk" . "$B%j%s(B") ("rl" . "$B%m%s(B") ("rn" . "$B%i%s(B") ("rp" . "$B%m%&(B") +-; ("rq" . "$B%i%$(B") ("rr" . "$B%i%l(B") ("rw" . "$B%l%$(B") ("ryd" . "$B%j%'%s(B") ("ryh" . "$B%j%e%&(B") +-; ("ryj" . "$B%j%e%s(B") ("ryk" . "$B%j%g%/(B") ("ryl" . "$B%j%g%s(B") ("ryn" . "$B%j%c%s(B") ("ryp" . "$B%j%g%&(B") +-; ("ryq" . "$B%j%c%$(B") ("ryw" . "$B%j%'%$(B") ("ryz" . "$B%j%c%s(B") ("rz" . "$B%i%s(B") ("sd" . "$B%;%s(B") +-; ("sf" . "$B%5%$(B") ("sh" . "$B%9%&(B") ("sj" . "$B%9%s(B") ("sk" . "$B%7%s(B") ("sl" . "$B%=%s(B") +-; ("sm" . "$B%7%b(B") ("sn" . "$B%5%s(B") ("sp" . "$B%=%&(B") ("sq" . "$B%5%$(B") ("sr" . "$B%9%k(B") +-; ("ss" . "$B%;%$(B") ("st" . "$B%7%?(B") ("sv" . "$B%5%$(B") ("sw" . "$B%;%$(B") ("syd" . "$B%7%'%s(B") +-; ("syh" . "$B%7%e%&(B") ("syj" . "$B%7%e%s(B") ("syl" . "$B%7%g%s(B") ("syp" . "$B%7%g%&(B") ("syq" . "$B%7%c%$(B") +-; ("syw" . "$B%7%'%$(B") ("syz" . "$B%7%c%s(B") ("sz" . "$B%5%s(B") ("tU" . "$B%C(B") ("tb" . "$B%?%S(B") +-; ("td" . "$B%F%s(B") ("tgh" . "$B%F%e!<(B") ("tgi" . "$B%F%#(B") ("tgk" . "$B%F%#%s(B") ("tgp" . "$B%H%%!<(B") +-; ("tgu" . "$B%F%e(B") ("th" . "$B%D%&(B") ("tj" . "$B%D%s(B") ("tk" . "$B%A%s(B") ("tl" . "$B%H%s(B") +-; ("tm" . "$B%?%a(B") ("tn" . "$B%?%s(B") ("tp" . "$B%H%&(B") ("tq" . "$B%?%$(B") ("tr" . "$B%?%i(B") +-; ("tsU" . "$B%C(B") ("tsa" . "$B%D%!(B") ("tse" . "$B%D%'(B") ("tsi" . "$B%D%#(B") ("tso" . "$B%D%)(B") +-; ("tt" . "$B%?%A(B") ("tw" . "$B%F%$(B") ("tyd" . "$B%A%'%s(B") ("tyh" . "$B%A%e%&(B") ("tyj" . "$B%A%e%s(B") +-; ("tyl" . "$B%A%g%s(B") ("tyn" . "$B%A%c%s(B") ("typ" . "$B%A%g%&(B") ("tyq" . "$B%A%c%$(B") ("tyw" . "$B%A%'%$(B") +-; ("tyz" . "$B%A%c%s(B") ("tz" . "$B%?%s(B") ("vd" . "$B%t%'%s(B") ("vk" . "$B%t%#%s(B") ("vl" . "$B%t%)%s(B") +-; ("vn" . "$B%t%!%s(B") ("vp" . "$B%t%)!<(B") ("vq" . "$B%t%!%$(B") ("vw" . "$B%t%'%$(B") ("vya" . "$B%t%c(B") +-; ("vye" . "$B%t%'(B") ("vyo" . "$B%t%g(B") ("vyu" . "$B%t%e(B") ("vz" . "$B%t%!%s(B") ("wA" . "$B%n(B") +-; ("wd" . "$B%&%'%s(B") ("wf" . "$B%o(B") ("wha" . "$B%&%!(B") ("whe" . "$B%&%'(B") ("whi" . "$B%&%#(B") +-; ("who" . "$B%&%)(B") ("whu" . "$B%&(B") ("wk" . "$B%&%#%s(B") ("wl" . "$B%&%)%s(B") ("wn" . "$B%o%s(B") +-; ("wp" . "$B%&%)!<(B") ("wq" . "$B%o%$(B") ("wr" . "$B%o%l(B") ("wso" . "$B%&%)(B") ("wt" . "$B%o%?(B") +-; ("wz" . "$B%o%s(B") ("xa" . "$B%7%c(B") ("xc" . "$B%7%c(B") ("xd" . "$B%7%'%s(B") ("xe" . "$B%7%'(B") +-; ("xf" . "$B%7%'%$(B") ("xh" . "$B%7%e%&(B") ("xi" . "$B%7(B") ("xj" . "$B%7%e%s(B") ("xk" . "$B%7%s(B") +-; ("xl" . "$B%7%g%s(B") ("xn" . "$B%7%c%s(B") ("xo" . "$B%7%g(B") ("xp" . "$B%7%g%&(B") ("xq" . "$B%7%c%$(B") +-; ("xt" . "$B%7%e%D(B") ("xu" . "$B%7%e(B") ("xv" . "$B%7%c%$(B") ("xw" . "$B%7%'%$(B") ("xxa" . "$B%!(B") +-; ("xxe" . "$B%'(B") ("xxi" . "$B%#(B") ("xxo" . "$B%)(B") ("xxu" . "$B%%(B") ("xxh" . "$B"+(B") +-; ("xxj" . "$B"-(B") ("xxk" . "$B",(B") ("xxl" . "$B"*(B") ("xz" . "$B%7%c%s(B") ("y<" . "$B"+(B") +-; ("y>" . "$B"*(B") ("y^" . "$B",(B") ("yf" . "$B%f(B") ("yh" . "$B%f%&(B") ("yi" . "$B%p(B") +-; ("yj" . "$B%f%s(B") ("yl" . "$B%h%s(B") ("yn" . "$B%d%s(B") ("yp" . "$B%h%&(B") ("yq" . "$B%d%$(B") +-; ("yr" . "$B%h%k(B") ("yv" . "$B%f%&(B") ("yz" . "$B%d%s(B") ("z." . "$B%:(B") ("zc" . "$B%6(B") +-; ("zd" . "$B%<%s(B") ("zf" . "$B%<(B") ("zh" . "$B%:%&(B") ("zj" . "$B%:%s(B") ("zk" . "$B%8%s(B") +-; ("zl" . "$B%>%s(B") ("zn" . "$B%6%s(B") ("zp" . "$B%>%&(B") ("zq" . "$B%6%$(B") ("zr" . "$B%6%k(B") +-; ("zv" . "$B%6%$(B") ("zw" . "$B%<%$(B") ("zx" . "$B%<%$(B") ("zyd" . "$B%8%'%s(B") ("zyh" . "$B%8%e%&(B") +-; ("zyj" . "$B%8%e%s(B") ("zyl" . "$B%8%g%s(B") ("zyn" . "$B%8%c%s(B") ("zyp" . "$B%8%g%&(B") ("zyq" . "$B%8%c%$(B") +-; ("zyw" . "$B%8%'%$(B") ("zyz" . "$B%8%c%s(B") ("zz" . "$B%6%s(B") ("bx" . "$B%S%g%&(B") ("bx" . "$B%S%g%&(B") +-; ("dx" . "$B%B%g%&(B") ("gx" . "$B%.%g%&(B") ("hx" . "$B%R%g%&(B") ("kx" . "$B%-%g%&(B") ("mx" . "$B%_%g%&(B") +-; ("nx" . "$B%K%g%&(B") ("px" . "$B%T%g%&(B") ("rx" . "$B%j%g%&(B") ("sx" . "$B%7%g%&(B") ("bv" . "$B%S%e%&(B") +-; ("dv" . "$B%B%e%&(B") ("fv" . "$B%U%e!<(B") ("gv" . "$B%.%e%&(B") ("hv" . "$B%R%e%&(B") ("kv" . "$B%-%e%&(B") +-; ("mv" . "$B%_%e%&(B") ("nv" . "$B%K%e%&(B") ("pv" . "$B%T%e%&(B") ("rv" . "$B%j%e%&(B") ("sv" . "$B%7%e%&(B") +-; ("vv" . "$B%&!+%e!<(B") +-; )) +- +-(defun anthy-azik-mode () +- (interactive) +- (setq anthy-rkmap-keybind +- '( +- ;; \C-p +- (("hiragana" . 16) . "katakana") +- (("katakana" . 16) . "hiragana"))) +-; (define-key anthy-mode-map (char-to-string 16) 'anthy-insert) +- (anthy-send-change-toggle-command "!") +- (mapcar (lambda (x) +- (anthy-change-hiragana-map (car x) (cdr x))) +- anthy-azik-mode-hiragana-map) +- (anthy-hiragana-map)) +-; (mapcar (lambda (x) +-; (anthy-change-katakana-map (car x) (cdr x))) +-; anthy-azik-mode-katakana-map) +- +diff --git a/src-util/anthy-conf.el b/src-util/anthy-conf.el +deleted file mode 100644 +index 3d6fbf7..0000000 +--- a/src-util/anthy-conf.el ++++ /dev/null +@@ -1,122 +0,0 @@ +-;; anthy-conf.el -- Anthy +- +- +-;; Copyright (C) 2002 +-;; Author: Yusuke Tabata +- +-;; This file is part of Anthy +- +-;;; Commentary: +-;; +- +-(defvar anthy-alt-char-map +- '(("," "$B!$(B") +- ("." "$B!%(B"))) +- +-(defvar anthy-kana-mode-hiragana-map +- '( +- ("3" . "$B$"(B") ("e" . "$B$$(B") ("4" . "$B$&(B") ("5" . "$B$((B") ("6" . "$B$*(B") +- ("#" . "$B$!(B") ("E" . "$B$#(B") ("$" . "$B$%(B") ("%" . "$B$'(B") ("&" . "$B$)(B") +- ("t" . "$B$+(B") ("g" . "$B$-(B") ("h" . "$B$/(B") (":" . "$B$1(B") ("b" . "$B$3(B") +- ("t@" . "$B$,(B") ("g@" . "$B$.(B") ("h@" . "$B$0(B") (":@" . "$B$2(B") ("b@" . "$B$4(B") +- ("x" . "$B$5(B") ("d" . "$B$7(B") ("r" . "$B$9(B") ("p" . "$B$;(B") ("c" . "$B$=(B") +- ("x@" . "$B$6(B") ("d@" . "$B$8(B") ("r@" . "$B$:(B") ("p@" . "$B$<(B") ("c@" . "$B$>(B") +- ("q" . "$B$?(B") ("a" . "$B$A(B") ("z" . "$B$D(B") ("w" . "$B$F(B") ("s" . "$B$H(B") +- ("q@" . "$B$@(B") ("a@" . "$B$B(B") ("z@" . "$B$E(B") ("w@" . "$B$G(B") ("s@" . "$B$I(B") +- ("u" . "$B$J(B") ("i" . "$B$K(B") ("1" . "$B$L(B") ("," . "$B$M(B") ("k" . "$B$N(B") +- ("f" . "$B$O(B") ("v" . "$B$R(B") ("2" . "$B$U(B") ("^" . "$B$X(B") ("-" . "$B$[(B") +- ("f@" . "$B$P(B") ("v@" . "$B$S(B") ("2@" . "$B$V(B") ("^@" . "$B$Y(B") ("-@" . "$B$\(B") +- ("f[" . "$B$Q(B") ("v[" . "$B$T(B") ("2[" . "$B$W(B") ("^[" . "$B$Z(B") ("-[" . "$B$](B") +- ("j" . "$B$^(B") ("n" . "$B$_(B") ("]" . "$B$`(B") ("/" . "$B$a(B") ("m" . "$B$b(B") +- ("7" . "$B$d(B") ("8" . "$B$f(B") ("9" . "$B$h(B") +- ("'" . "$B$c(B") ("(" . "$B$e(B") (")" . "$B$g(B") +- ("o" . "$B$i(B") ("l" . "$B$j(B") ("." . "$B$k(B") (";" . "$B$l(B") ("\\" . "$B$m(B") +- ("0" . "$B$o(B") ("~" . "$B$r(B") +- +- ;; $B:$$C$?$3$H$K(B $B%P%C%/%9%i%C%7%e$H1_$r6hJL$9$kJ}K!$,$o$+$i$J$$(B +- ("|" . "$B!<(B") ("_" . "$B!<(B") ("<" . "$B!"(B") (">" . "$B!#(B") +- ("Z" . "$B$C(B") ("y" . "$B$s(B") +- )) +- +-(defvar anthy-kana-mode-katakana-map +- '( +- ("3" . "$B%"(B") ("e" . "$B%$(B") ("4" . "$B%&(B") ("5" . "$B%((B") ("6" . "$B%*(B") +- ("#" . "$B%!(B") ("E" . "$B%#(B") ("$" . "$B%%(B") ("%" . "$B%'(B") ("&" . "$B%)(B") +- ("t" . "$B%+(B") ("g" . "$B%-(B") ("h" . "$B%/(B") (":" . "$B%1(B") ("b" . "$B%3(B") +- ("t@" . "$B%,(B") ("g@" . "$B%.(B") ("h@" . "$B%0(B") (":@" . "$B%2(B") ("b@" . "$B%4(B") +- ("x" . "$B%5(B") ("d" . "$B%7(B") ("r" . "$B%9(B") ("p" . "$B%;(B") ("c" . "$B%=(B") +- ("x@" . "$B%6(B") ("d@" . "$B%8(B") ("r@" . "$B%:(B") ("p@" . "$B%<(B") ("c@" . "$B%>(B") +- ("q" . "$B%?(B") ("a" . "$B%A(B") ("z" . "$B%D(B") ("w" . "$B%F(B") ("s" . "$B%H(B") +- ("q@" . "$B%@(B") ("a@" . "$B%B(B") ("z@" . "$B%E(B") ("w@" . "$B%G(B") ("s@" . "$B%I(B") +- ("u" . "$B%J(B") ("i" . "$B%K(B") ("1" . "$B%L(B") ("," . "$B%M(B") ("k" . "$B%N(B") +- ("f" . "$B%O(B") ("v" . "$B%R(B") ("2" . "$B%U(B") ("^" . "$B%X(B") ("-" . "$B%[(B") +- ("f@" . "$B%P(B") ("v@" . "$B%S(B") ("2@" . "$B%V(B") ("^@" . "$B%Y(B") ("-@" . "$B%\(B") +- ("f[" . "$B%Q(B") ("v[" . "$B%T(B") ("2[" . "$B%W(B") ("^[" . "$B%Z(B") ("-[" . "$B%](B") +- ("j" . "$B%^(B") ("n" . "$B%_(B") ("]" . "$B%`(B") ("/" . "$B%a(B") ("m" . "$B%b(B") +- ("7" . "$B%d(B") ("8" . "$B%f(B") ("9" . "$B%h(B") +- ("'" . "$B%c(B") ("(" . "$B%e(B") (")" . "$B%g(B") +- ("o" . "$B%i(B") ("l" . "$B%j(B") ("." . "$B%k(B") (";" . "$B%l(B") ("\\" . "$B%m(B") +- ("0" . "$B%o(B") ("~" . "$B%r(B") +- +- ;; $B:$$C$?$3$H$K(B $B%P%C%/%9%i%C%7%e$H1_$r6hJL$9$kJ}K!$,$o$+$i$J$$(B +- ("|" . "$B!<(B") ("_" . "$B!<(B") ("<" . "$B!"(B") (">" . "$B!#(B") +- ("Z" . "$B%C(B") ("y" . "$B%s(B") +- )) +- +-;; +-;; map$B$NJQ99(B +-;; +-(defun anthy-send-map-edit-command (mapno key str) +- (if (not (stringp key)) +- (setq key (char-to-string key))) +- (if (not (stringp str)) +- (setq str (char-to-string str))) +- (anthy-send-recv-command +- (concat " MAP_EDIT " (int-to-string mapno) +- " " key " " str "\n"))) +-(defun anthy-change-hiragana-map (key str) +- (anthy-send-map-edit-command 2 key str)) +-(defun anthy-change-katakana-map (key str) +- (anthy-send-map-edit-command 3 key str)) +-(defun anthy-load-hiragana-map (map) +- (mapcar (lambda (x) +- (let ((key (car x)) +- (str (cadr x))) +- (anthy-change-hiragana-map key str))) map)) +-(defun anthy-clear-map () +- (anthy-send-recv-command +- " MAP_CLEAR 0\n")) +-;; +-;; toggle$B$NJQ99(B +-;; +-(defun anthy-send-change-toggle-command (str) +- (anthy-send-recv-command +- (concat " CHANGE_TOGGLE " str "\n"))) +- +-;; should disable toggle +-;; ($B%m!<%^;z$G$O$J$/$F(B)$B$+$J%b!<%I$K$9$k(B +-(defun anthy-kana-map-mode () +- (setq anthy-rkmap-keybind +- '( +- ;; \C-p +- (("hiragana" . 16) . "katakana") +- (("katakana" . 16) . "hiragana"))) +- (define-key anthy-mode-map (char-to-string 16) 'anthy-insert) +- (anthy-send-recv-command " SET_PREEDIT_MODE 1\n") +- (anthy-send-change-toggle-command "!") +- (anthy-clear-map) +- (mapcar (lambda (x) +- (anthy-change-hiragana-map (car x) (cdr x))) +- anthy-kana-mode-hiragana-map) +- (mapcar (lambda (x) +- (anthy-change-katakana-map (car x) (cdr x))) +- anthy-kana-mode-katakana-map)) +-;; +-(defun anthy-set-break-into-roman (flag) +- "$BFI$_$rF~NOCf$K%P%C%/%9%Z!<%9$rBG$D$H%m!<%^;z$^$G%P%i%P%i$K$9$k(B" +- (anthy-send-recv-command +- (if flag +- " BREAK_INTO_ROMAN 1\n" +- " BREAK_INTO_ROMAN 0\n"))) +- +-(provide 'anthy-conf) +diff --git a/src-util/anthy-kyuri.el b/src-util/anthy-kyuri.el +deleted file mode 100644 +index ddbcbd8..0000000 +--- a/src-util/anthy-kyuri.el ++++ /dev/null +@@ -1,210 +0,0 @@ +-;; anthy-kyuri.el +- +-;; Copyright (C) 2005 +-;; Author: Yukihiro Matsumoto +- +-(require 'anthy) +- +-(setq anthy-kyuri-mode-hiragana-map +- '( +- ("bh" . "$B$!(B") ("h" . "$B$"(B") ("bk" . "$B$#(B") ("k" . "$B$$(B") ("bj" . "$B$%(B") +- ("j" . "$B$&(B") ("yj" . "$B$&!+(B") ("yh" . "$B$&!+$!(B") ("yk" . "$B$&!+$#(B") ("y;" . "$B$&!+$'(B") +- ("yl" . "$B$&!+$)(B") ("b;" . "$B$'(B") (";" . "$B$((B") ("bl" . "$B$)(B") ("l" . "$B$*(B") +- ("dh" . "$B$+(B") ("qh" . "$B$,(B") ("dk" . "$B$-(B") ("du" . "$B$-$c(B") ("di" . "$B$-$e(B") ("do" . "$B$-$g(B") +- ("duu" . "$B$-$c$"(B") ("dii" . "$B$-$e$&(B") ("doo" . "$B$-$g$&(B") +- ("qk" . "$B$.(B") ("qu" . "$B$.$c(B") ("qi" . "$B$.$e(B") ("qo" . "$B$.$g(B") +- ("quu" . "$B$.$c$"(B") ("qii" . "$B$.$e$&(B") ("qoo" . "$B$.$g$&(B") +- ("dj" . "$B$/(B") ("qj" . "$B$0(B") ("d;" . "$B$1(B") ("q;" . "$B$2(B") ("dl" . "$B$3(B") ("ql" . "$B$4(B") +- ("fh" . "$B$5(B") ("zh" . "$B$6(B") ("fk" . "$B$7(B") +- ("fu" . "$B$7$c(B") ("fi" . "$B$7$e(B") ("fo" . "$B$7$g(B") ("fb;" . "$B$7$'(B") +- ("fuu" . "$B$7$c$"(B") ("fii" . "$B$7$e$&(B") ("foo" . "$B$7$g$&(B") +- ("zk" . "$B$8(B") ("zu" . "$B$8$c(B") ("zi" . "$B$8$e(B") ("zo" . "$B$8$g(B") +- ("zuu" . "$B$8$c$"(B") ("zii" . "$B$8$e$&(B") ("zoo" . "$B$8$g$&(B") +- ("fj" . "$B$9(B") ("zj" . "$B$:(B") ("f;" . "$B$;(B") ("z;" . "$B$<(B") ("fl" . "$B$=(B") ("zl" . "$B$>(B") +- ("gh" . "$B$?(B") ("vh" . "$B$@(B") ("gk" . "$B$A(B") +- ("gu" . "$B$A$c(B") ("gi" . "$B$A$e(B") ("go" . "$B$A$g(B") ("gb;" . "$B$A$'(B") +- ("guu" . "$B$A$c$"(B") ("gii" . "$B$A$e$&(B") ("goo" . "$B$A$g$&(B") +- ("vk" . "$B$B(B") ("vu" . "$B$B$c(B") ("vi" . "$B$B$e(B") ("vo" . "$B$B$g(B") ("vb;" . "$B$B$'(B") +- ("vuu" . "$B$B$c$"(B") ("vii" . "$B$B$e$&(B") +- ("voo" . "$B$B$g$&(B") ("m" . "$B$C(B") ("ddh" . "$B$C$+(B") ("qqh" . "$B$C$,(B") ("ddk" . "$B$C$-(B") +- ("ddu" . "$B$C$-$c(B") ("ddi" . "$B$C$-$e(B") ("ddo" . "$B$C$-$g(B") +- ("dduu" . "$B$C$-$c$"(B") ("ddii" . "$B$C$-$e$&(B") ("ddoo" . "$B$C$-$g$&(B") +- ("qqk" . "$B$C$.(B") ("qqu" . "$B$C$.$c(B") ("qqi" . "$B$C$.$e(B") ("qqo" . "$B$C$.$g(B") +- ("qquu" . "$B$C$.$c$"(B") ("qqii" . "$B$C$.$e$&(B") ("qqoo" . "$B$C$.$g$&(B") +- ("ddj" . "$B$C$/(B") ("dd;" . "$B$C$1(B") ("ddl" . "$B$C$3(B") +- ("qqj" . "$B$C$0(B") ("qq;" . "$B$C$2(B") ("qql" . "$B$C$4(B") +- ("ffh" . "$B$C$5(B") ("zzh" . "$B$C$6(B") ("ffk" . "$B$C$7(B") +- ("ffu" . "$B$C$7$c(B") ("ffi" . "$B$C$7$e(B") ("ffo" . "$B$C$7$g(B") +- ("ffuu" . "$B$C$7$c$"(B") ("ffii" . "$B$C$7$e$&(B") ("ffoo" . "$B$C$7$g$&(B") +- ("zzk" . "$B$C$8(B") +- ("zzu" . "$B$C$8$c(B") ("zzi" . "$B$C$8$e(B") ("zzo" . "$B$C$8$g(B") +- ("zzuu" . "$B$C$8$c$"(B") ("zzii" . "$B$C$8$e$&(B") ("zzoo" . "$B$C$8$g$&(B") +- ("ffj" . "$B$C$9(B") ("zzj" . "$B$C$:(B") ("ff;" . "$B$C$;(B") ("zz;" . "$B$C$<(B") ("ffl" . "$B$C$=(B") +- ("zzl" . "$B$C$>(B") ("ggh" . "$B$C$?(B") ("vvh" . "$B$C$@(B") ("ggk" . "$B$C$A(B") +- ("ggu" . "$B$C$A$c(B") ("ggi" . "$B$C$A$e(B") ("ggo" . "$B$C$A$g(B") ("ggb;" . "$B$C$A$'(B") +- ("gguu" . "$B$C$A$c$"(B") ("ggii" . "$B$C$A$e$&(B") ("ggoo" . "$B$C$A$g$&(B") +- ("vvk" . "$B$C$B(B") +- ("vvu" . "$B$C$B$c(B") ("vvi" . "$B$C$B$e(B") ("vvoo" . "$B$C$B$g(B") +- ("vvuu" . "$B$C$B$c$"(B") ("vvii" . "$B$C$B$e$&(B") ("vvoo" . "$B$C$B$g$&(B") +- ("ggj" . "$B$C$D(B") ("gg;" . "$B$C$F(B") ("ggl" . "$B$C$H(B") +- ("vvj" . "$B$C$E(B") ("vv;" . "$B$C$G(B") ("vvl" . "$B$C$I(B") +- ("ssh" . "$B$C$O(B") ("cch" . "$B$C$P(B") ("tth" . "$B$C$Q(B") +- ("ttk" . "$B$C$R(B") +- ("ssu" . "$B$C$R$c(B") ("ssi" . "$B$C$R$e(B") ("sso" . "$B$C$R$g(B") +- ("ssuu" . "$B$C$R$c$"(B") ("ssii" . "$B$C$R$e$&(B") ("ssoo" . "$B$C$R$g$&(B") +- ("cck" . "$B$C$S(B") +- ("ccu" . "$B$C$S$c(B") ("ccii" . "$B$C$S$e(B") ("cco" . "$B$C$S$g(B") +- ("ccuu" . "$B$C$S$c$"(B") ("ccii" . "$B$C$S$e$&(B") ("ccoo" . "$B$C$S$g$&(B") +- ("ttk" . "$B$C$T(B") +- ("ttu" . "$B$C$T$c(B") ("tti" . "$B$C$T$e(B") ("tto" . "$B$C$T$g(B") +- ("ttuu" . "$B$C$T$c$"(B") ("ttii" . "$B$C$T$e$&(B") ("ttoo" . "$B$C$T$g$&(B") +- ("ssj" . "$B$C$U(B") +- ("ssbh" . "$B$C$U$!(B") ("ssbk" . "$B$C$U$#(B") ("ssb;" . "$B$C$U$'(B") ("ssbl" . "$B$C$U$)(B") +- ("ccj" . "$B$C$V(B") ("ttj" . "$B$C$W(B") ("ss;" . "$B$C$X(B") ("cc;" . "$B$C$Y(B") ("tt;" . "$B$C$Z(B") +- ("ssl" . "$B$C$[(B") ("ccl" . "$B$C$\(B") ("ttl" . "$B$C$](B") ("aah" . "$B$C$d(B") ("aaj" . "$B$C$f(B") +- ("yyo" . "$B$C$h(B") ("rra" . "$B$C$i(B") ("rri" . "$B$C$j(B") +- ("rru" . "$B$C$j$c(B") ("rri" . "$B$C$j$e(B") ("rro" . "$B$C$j$g(B") +- ("rruu" . "$B$C$j$c$"(B") ("rrii" . "$B$C$j$e$&(B") ("rroo" . "$B$C$j$g$&(B") +- ("rrj" . "$B$C$k(B") ("rr;" . "$B$C$l(B") ("rrl" . "$B$C$m(B") +- ("gj" . "$B$D(B") ("vj" . "$B$E(B") ("g;" . "$B$F(B") ("v;" . "$B$G(B") +- ("vbu" . "$B$G$c(B") ("vbk" . "$B$G$#(B") ("vbj" . "$B$G$e(B") ("vb;" . "$B$G$'(B") ("vbo" . "$B$G$g(B") +- ("gbu" . "$B$F$c(B") ("gbk" . "$B$F$#(B") ("gbj" . "$B$F$e(B") ("gbo" . "$B$F$g(B") +- ("gl" . "$B$H(B") ("vl" . "$B$I(B") ("eh" . "$B$J(B") ("ek" . "$B$K(B") +- ("eu" . "$B$K$c(B") ("ei" . "$B$K$e(B") ("eo" . "$B$K$g(B") +- ("euu" . "$B$K$c$"(B") ("eii" . "$B$K$e$&(B") ("eoo" . "$B$K$g$&(B") +- ("ej" . "$B$L(B") ("e;" . "$B$M(B") ("el" . "$B$N(B") +- ("sh" . "$B$O(B") ("ch" . "$B$P(B") ("th" . "$B$Q(B") ("sk" . "$B$R(B") +- ("su" . "$B$R$c(B") ("si" . "$B$R$e(B") ("so" . "$B$R$g(B") ("sb;" . "$B$R$'(B") +- ("suu" . "$B$R$c$"(B") ("sii" . "$B$R$e$&(B") ("soo" . "$B$R$g$&(B") +- ("ck" . "$B$S(B") +- ("cu" . "$B$S$c(B") ("ci" . "$B$S$e(B") ("co" . "$B$S$g(B") ("cb;" . "$B$R$g(B") +- ("cuu" . "$B$S$c$"(B") ("cii" . "$B$S$e$&(B") ("coo" . "$B$S$g$&(B") +- ("tk" . "$B$T(B") +- ("tu" . "$B$T$c(B") ("ti" . "$B$T$e(B") ("to" . "$B$T$g(B") ("tb;" . "$B$T$'(B") +- ("tuu" . "$B$T$c$"(B") ("tii" . "$B$T$e$&(B") ("too" . "$B$T$g$&(B") +- ("sj" . "$B$U(B") +- ("sbh" . "$B$U$!(B") ("sbk" . "$B$U$#(B") ("sbj" . "$B$U$%(B") ("sb;" . "$B$U$'(B") ("sbl" . "$B$U$)(B") +- ("cj" . "$B$V(B") +- ("cbh" . "$B$V$!(B") ("cbk" . "$B$V$#(B") ("cbj" . "$B$V$%(B") ("cb;" . "$B$V$'(B") ("cbl" . "$B$V$)(B") +- ("tj" . "$B$W(B") +- ("tbh" . "$B$W$!(B") ("tbk" . "$B$W$#(B") ("tbj" . "$B$W$%(B") ("tb;" . "$B$W$'(B") ("tbl" . "$B$W$)(B") +- ("s;" . "$B$X(B") ("c;" . "$B$Y(B") ("t;" . "$B$Z(B") +- ("sl" . "$B$[(B") ("cl" . "$B$\(B") ("tl" . "$B$](B") +- ("wh" . "$B$^(B") ("wk" . "$B$_(B") +- ("wu" . "$B$_$c(B") ("wi" . "$B$_$e(B") ("wo" . "$B$_$g(B") +- ("wuu" . "$B$_$c$"(B") ("wii" . "$B$_$e$&(B") ("woo" . "$B$_$g$&(B") +- ("wj" . "$B$`(B") ("w;" . "$B$a(B") ("wl" . "$B$b(B") +- ("u" . "$B$c(B") ("ah" . "$B$d(B") ("i" . "$B$e(B") ("aj" . "$B$f(B") ("o" . "$B$g(B") +- ("al" . "$B$h(B") +- ("rh" . "$B$i(B") ("rk" . "$B$j(B") +- ("ru" . "$B$j$c(B") ("ri" . "$B$j$e(B") ("ro" . "$B$j$g(B") +- ("ruu" . "$B$j$c$"(B") ("rii" . "$B$j$e$&(B") ("roo" . "$B$j$g$&(B") +- ("rj" . "$B$k(B") ("r;" . "$B$l(B") ("rl" . "$B$m(B") +- ("bxh" . "$B$n(B") ("xh" . "$B$o(B") ("xk" . "$B$p(B") ("x;" . "$B$q(B") +- ("xbk" . "$B$&$#(B") ("xb;" . "$B$&$'(B") +- ("xl" . "$B$r(B") ("n" . "$B$s(B") +- ("p" . "$B!<(B") ("zb;" . "$B$8$'(B") +- ("zp" . "$B!A(B") ("z/" . "$B!&(B") ("zx" . "^^;;;") +- +- ("[" . "$B!V(B") ("]" . "$B!W(B") ("{" . "$B!X(B") ("}" . "$B!Y(B") +- ("X1" . "$B!{(B") ("X!" . "$B!|(B") ("X2" . "$B"&(B") ("X@" . "$B"'(B") ("X3" . "$B"$(B") +- ("X#" . "$B"%(B") ("X4" . "$B""(B") ("X$" . "$B"#(B") ("X5" . "$B!~(B") ("X%" . "$B"!(B") +- ("X6" . "$B!y(B") ("X^" . "$B!z(B") ("X7" . "$B!}(B") ("X&" . "$B!r(B") ("X8" . "$B!q(B") +- ("X*" . "$B!_(B") ("X9" . "$B!i(B") ("X(" . "$B!Z(B") ("X0" . "$B!j(B") ("X)" . "$B![(B") +- ("X-" . "$B!A(B") ("X_" . "$B!h(B") ("X=" . "$B"b(B") ("X+" . "$B!^(B") ("X\\" . "$B!@(B") +- ("X|" . "$B!B(B") ("X\`" . "$B!-(B") ("X~" . "$B!/(B") ("Xq" . "$B!T(B") ("XQ" . "$B!R(B") +- ("Xw" . "$B!U(B") ("XW" . "$B!S(B") ("Xe" . "$B!9(B") ("XR" . "$B!8(B") ("Xt" . "$B!:(B") +- ("XT" . "$B!x(B") ("Xp" . "$B")(B") ("XP" . "$B",(B") ("X[" . "$B!X(B") ("X]" . "$B!Y(B") +- ("X{" . "$B!L(B") ("X}" . "$B!M(B") ("Xs" . "$B!3(B") ("XS" . "$B!4(B") ("Xd" . "$B!5(B") +- ("XD" . "$B!6(B") ("Xf" . "$B!7(B") ("XF" . "$B"*(B") ("Xg" . "$B!>(B") ("Xj" . "$B"-(B") +- ("XG" . "$B!=(B") ("Xh" . "$B"+(B") ("Xk" . "$B",(B") ("Xl" . "$B"*(B") ("X:" . "$B!,(B") +- ("X\'" . "$B!F(B") ("X\"" . "$B!H(B") ("Xx" . ":-") ("XX" . ":-)") +- ("Xc" . "$B!;(B") ("XC" . "$B!n(B") ("Xv" . "$B"((B") ("XV" . "$B!`(B") ("Xb" . "$B!k(B") +- ("XB" . "$B"+(B") ("Xn" . "$B!l(B") ("XN" . "$B"-(B") ("X$B$C(B" . "$B!m(B") ("XM" . "$B".(B") +- ("X," . "$B!E(B") ("X<" . "$B!e(B") ("X." . "$B!D(B") ("X>" . "$B!f(B") ("X/" . "$B!&(B") +- ("X?" . "$B!g(B") ("z1" . "$B!{(B") ("z!" . "$B!|(B") ("z2" . "$B"&(B") ("z@" . "$B"'(B") +- ("z3" . "$B"$(B") ("z#" . "$B"%(B") ("z4" . "$B""(B") ("z$" . "$B"#(B") ("z5" . "$B!~(B") +- ("z%" . "$B"!(B") ("z6" . "$B!y(B") ("z^" . "$B!z(B") ("z7" . "$B!}(B") ("z&" . "$B!r(B") +- ("z8" . "$B!q(B") ("z*" . "$B!_(B") ("z9" . "$B!i(B") ("z(" . "$B!Z(B") ("z0" . "$B!j(B") +- ("z)" . "$B![(B") ("zp" . "$B!A(B") ("z_" . "$B!h(B") ("z=" . "$B!b(B") ("z+" . "$B!^(B") +- ("z\\" . "$B!@(B") ("z|" . "$B!B(B") ("z\`" . "$B!-(B") ("z~" . "$B!/(B") ("z:" . "$B!,(B") +- ("z\'" . "$B!F(B") ("z\"" . "$B!H(B") ("z," . "$B!E(B") ("z<" . "$B!e(B") ("z." . "$B!D(B") +- ("z>" . "$B!f(B") ("z/" . "$B!&(B") ("z?" . "$B!g(B") ("z[" . "$B!X(B") ("z]" . "$B!Y(B") +- ("z{" . "$B!L(B") ("z}" . "$B!M(B") ("zx" . "^^;;;") ("zX" . "(^^)") ("zs" . "$B!!(B") +- ("@ " . "$B!!(B") ("@/" . "$B!?(B") ("@\\" . "$B!@(B") ("@@" . "$B!w(B") ("@," . "$B!$(B") +- ("@." . "$B!%(B") ("@~" . "$B!A(B") ("@-" . "$B!=(B") ("@||" . "$B!B(B") ("@|" . "$B!C(B") +- ("@\"" . "$B!7(B") ("@*" . "$B!_(B") ("@=" . "$B".(B") ("@3" . "$B!D(B") ("@2" . "$B!E(B") +- ("@0" . "$B!{(B") ("@[" . "$B!N(B") ("@]" . "$B!O(B") ("@{" . "$B!P(B") ("@}" . "$B!Q(B") +- ("@<" . "$B!T(B") ("@>" . "$B!U(B") +- +- ("Z0" . "$B#0(B") ("Z1" . "$B#1(B") ("Z2" . "$B#2(B") ("Z3" . "$B#3(B") ("Z4" . "$B#4(B") +- ("Z5" . "$B#5(B") ("Z6" . "$B#6(B") ("Z7" . "$B#7(B") ("Z8" . "$B#8(B") ("Z9" . "$B#9(B") +- ("ZA" . "$B#A(B") ("ZB" . "$B#B(B") ("ZC" . "$B#C(B") ("ZD" . "$B#D(B") ("ZE" . "$B#E(B") ("ZF" . "$B#F(B") +- ("ZG" . "$B#G(B") ("ZH" . "$B#H(B") ("ZI" . "$B#I(B") ("ZJ" . "$B#J(B") ("ZK" . "$B#K(B") ("ZL" . "$B#L(B") +- ("ZM" . "$B#M(B") ("ZN" . "$B#N(B") ("ZO" . "$B#O(B") ("ZP" . "$B#P(B") ("ZQ" . "$B#Q(B") ("ZR" . "$B#R(B") +- ("ZS" . "$B#S(B") ("ZT" . "$B#T(B") ("ZU" . "$B#U(B") ("ZV" . "$B#V(B") ("ZW" . "$B#W(B") ("ZX" . "$B#X(B") +- ("ZY" . "$B#Y(B") ("ZZ" . "$B#Z(B") +- ("Za" . "$B#a(B") ("Zb" . "$B#b(B") ("Zc" . "$B#c(B") ("Zd" . "$B#d(B") ("Ze" . "$B#e(B") ("Zf" . "$B#f(B") +- ("Zg" . "$B#g(B") ("Zh" . "$B#h(B") ("Zi" . "$B#i(B") ("Zj" . "$B#j(B") ("Zk" . "$B#k(B") ("Zl" . "$B#l(B") +- ("Zm" . "$B#m(B") ("Zn" . "$B#n(B") ("Zo" . "$B#o(B") ("Zp" . "$B#p(B") ("Zq" . "$B#q(B") ("Zr" . "$B#r(B") +- ("Zs" . "$B#s(B") ("Zt" . "$B#t(B") ("Zu" . "$B#u(B") ("Zv" . "$B#v(B") ("Zw" . "$B#w(B") ("Zx" . "$B#x(B") +- ("Zy" . "$B#y(B") ("Zz" . "$B#z(B") +- ("Z!" . "$B!*(B") ("Z@" . "$B!w(B") ("Z#" . "$B!t(B") ("Z$" . "$B!p(B") ("Z%" . "$B!s(B") +- ("Z^" . "$B!0(B") ("Z&" . "$B!u(B") ("Z*" . "$B!v(B") ("Z(" . "$B!J(B") ("Z)" . "$B!K(B") ("Z-" . "$B!](B") +- ("Z=" . "$B!a(B") ("Z`" . "$B!.(B") ("Z\\" . "$B!o(B") ("Z|" . "$B!C(B") ("Z_" . "$B!2(B") ("Z+" . "$B!\(B") +- ("Z~" . "$B!1(B") ("Z[" . "$B!N(B") ("Z]" . "$B!O(B") ("Z{" . "$B!P(B") ("Z}" . "$B!Q(B") ("Z:" . "$B!'(B") +- ("Z;" . "$B!((B") ("Z\"" . "$B!I(B") ("Z\\'" . "$B!G(B") ("Z<" . "$B!c(B") ("Z>" . "$B!d(B") ("Z?" . "$B!)(B") +- ("Z/" . "$B!?(B") ("Z," . "$B!$(B") ("Z." . "$B!%(B") +- +- ("!" . "!") ("\"" . "\"") ("#" . "#") ("$" . "$") ("%" . "%") ("&" . "&") +- ("'" . "'") ("(" . "(") (")" . ")") ("|" . "|") +- ("*" . "*") ("+" . "+") ("`" . "`") ("-" . "-") ("/" . "/") +- (":" . ":") ("<" . "<") ("=" . "=") (">" . ">") ("@" . "@") +- ("0" . "0") ("1" . "1") ("2" . "2") ("3" . "3") ("4" . "4") +- ("5" . "5") ("6" . "6") ("7" . "7") ("8" . "8") ("9" . "9") +- )) +- +-;; +-;; toggle$B$NJQ99(B +-;; +-(defun anthy-send-change-toggle-command (str) +- (anthy-send-recv-command +- (concat " CHANGE_TOGGLE ~\n"))) +- +-(defun anthy-kyuri () +- (setq anthy-rkmap-keybind nil) +- (anthy-send-recv-command " SET_PREEDIT_MODE 0\n") +- (anthy-set-break-into-roman t) +- (anthy-send-change-toggle-command "~") +- (anthy-clear-map) +- (mapcar (lambda (x) +- (anthy-change-hiragana-map (car x) (cdr x))) +- anthy-kyuri-mode-hiragana-map) +- ) +- +-(define-key anthy-mode-map (char-to-string 10) 'newline-and-indent) +-(define-key anthy-mode-map (char-to-string 17) 'quoted-insert) +- +-(anthy-kyuri) +- +-(defun anthy-on () +- (interactive) +- (anthy-mode-on)) +- +-(defun anthy-off () +- (interactive) +- (anthy-mode-off)) +- +-(defun anthy-force-off () +- (interactive) +- (anthy-handle-normal-key "(enter)") +- (anthy-off)) +- +-(global-set-key "\C-o" 'anthy-on) +-(global-set-key "\C-z" 'anthy-off) +-(global-set-key "\C-c\C-t" 'anthy-add-word-interactive) +-(define-key anthy-preedit-keymap "\C-z" 'anthy-force-off) +-(setq anthy-wide-space " ") +-(setq anthy-use-hankaku-kana nil) +- +- +diff --git a/src-util/anthy-unicode-azik.el b/src-util/anthy-unicode-azik.el +new file mode 100644 +index 0000000..935d4d8 +--- /dev/null ++++ b/src-util/anthy-unicode-azik.el +@@ -0,0 +1,233 @@ ++;; anthy-azik.el ++ ++;; Copyright (C) 2004 ++;; Author: Yutaka Hara ++ ++;; add following 2 lines to ~/.emacs ++;; (load-library "anthy-azik") ++;; (anthy-azik-mode) ++;; ++ ++(defvar anthy-azik-mode-hiragana-map ++ '( ++ (";" . "っ") ("x;" . ";") ("b." . "ぶ") ("bd" . "べん") ("bh" . "ぶう") ++ ("bj" . "ぶん") ("bk" . "びん") ("bl" . "ぼん") ("bn" . "ばん") ("bp" . "ぼう") ++ ("bq" . "ばい") ("br" . "ばら") ("bt" . "びと") ("bw" . "べい") ("bx" . "べい") ++ ("byd" . "びぇん") ("byh" . "びゅう") ("byj" . "びゅん") ("byl" . "びょん") ("byn" . "びゃん") ++ ("byp" . "びょう") ("byq" . "びゃい") ("byw" . "びぇい") ("byz" . "びゃん") ("bz" . "ばん") ++ ("ca" . "ちゃ") ("cc" . "ちゃ") ("cd" . "ちぇん") ("ce" . "ちぇ") ("cf" . "ちぇ") ++ ("ch" . "ちゅう") ("ci" . "ち") ("cj" . "ちゅん") ("ck" . "ちん") ("cl" . "ちょん") ++ ("cn" . "ちゃん") ("co" . "ちょ") ("cp" . "ちょう") ("cq" . "ちゃい") ("cu" . "ちゅ") ++ ("cv" . "ちゃい") ("cw" . "ちぇい") ("cx" . "ちぇい") ("cz" . "ちゃん") ("dch" . "でゅー") ++ ("dci" . "でぃ") ("dck" . "でぃん") ("dcp" . "どぅー") ("dcu" . "でゅ") ("dd" . "でん") ++ ("df" . "で") ("dg" . "だが") ("dh" . "づう") ("dj" . "づん") ("dk" . "ぢん") ++ ("dl" . "どん") ("dm" . "でも") ("dn" . "だん") ("dp" . "どう") ("dq" . "だい") ++ ("dr" . "である") ("ds" . "です") ("dt" . "だち") ("dv" . "でん") ("dw" . "でい") ++ ("dy" . "でぃ") ("dz" . "だん") ("fd" . "ふぇん") ("fh" . "ふう") ("fj" . "ふん") ++ ("fk" . "ふぃん") ("fl" . "ふぉん") ("fm" . "ふむ") ("fn" . "ふぁん") ("fp" . "ふぉー") ++ ("fq" . "ふぁい") ("fr" . "ふる") ("fs" . "ふぁい") ("fw" . "ふぇい") ("fz" . "ふぁん") ++ ("gd" . "げん") ("gh" . "ぐう") ("gj" . "ぐん") ("gk" . "ぎん") ("gl" . "ごん") ++ ("gn" . "がん") ("gp" . "ごう") ("gq" . "がい") ("gr" . "がら") ("gt" . "ごと") ++ ("gw" . "げい") ("gyd" . "ぎぇん") ("gyh" . "ぎゅう") ("gyj" . "ぎゅん") ("gyl" . "ぎょん") ++ ("gyn" . "ぎゃん") ("gyp" . "ぎょう") ("gyq" . "ぎゃい") ("gyw" . "ぎぇい") ("gyz" . "ぎゃん") ++ ("gz" . "がん") ("hd" . "へん") ("hf" . "ふ") ("hga" . "ひゃ") ("hgd" . "ひぇん") ++ ("hge" . "ひぇ") ("hgh" . "ひゅう") ("hgj" . "ひゅん") ("hgl" . "ひょん") ("hgn" . "ひゃん") ++ ("hgo" . "ひょ") ("hgp" . "ひょう") ("hgq" . "ひゃい") ("hgu" . "ひゅ") ("hgw" . "ひぇい") ++ ("hgz" . "ひゃん") ("hh" . "ふう") ("hj" . "ふん") ("hk" . "ひん") ("hl" . "ほん") ++ ("hn" . "はん") ("hp" . "ほう") ("hq" . "はい") ("ht" . "ひと") ("hw" . "へい") ++ ("hyd" . "ひぇん") ("hyh" . "ひゅう") ("hyl" . "ひょん") ("hyp" . "ひょう") ("hyq" . "ひゃい") ++ ("hyw" . "ひぇい") ("hyz" . "ひゃん") ("hz" . "はん") ("jd" . "じぇん") ("jf" . "じゅ") ++ ("jh" . "じゅう") ("jj" . "じゅん") ("jk" . "じん") ("jl" . "じょん") ("jn" . "じゃん") ++ ("jp" . "じょう") ("jq" . "じゃい") ("jv" . "じゅう") ("jw" . "じぇい") ("jz" . "じゃん") ++ ("kA" . "ヵ") ("kE" . "ヶ") ("kd" . "けん") ("kf" . "き") ("kga" . "きゃ") ++ ("kgd" . "きぇん") ("kge" . "きぇ") ("kgh" . "きゅう") ("kgl" . "きょん") ("kgn" . "きゃん") ++ ("kgo" . "きょ") ("kgp" . "きょう") ("kgq" . "きゃい") ("kgu" . "きゅ") ("kgw" . "きぇい") ++ ("kgz" . "きゃん") ("kh" . "くう") ("kj" . "くん") ("kk" . "きん") ("kl" . "こん") ++ ("km" . "き") ("kn" . "かん") ("kp" . "こう") ("kq" . "かい") ("kr" . "から") ++ ("kt" . "こと") ("kv" . "きん") ("kw" . "けい") ("kyd" . "きぇん") ("kyh" . "きゅう") ++ ("kyj" . "きゅん") ("kyl" . "きょん") ("kyn" . "きゃん") ("kyp" . "きょう") ("kyq" . "きゃい") ++ ("kyw" . "きぇい") ("kyz" . "きゃん") ("kz" . "かん") ("m." . "む") ("md" . "めん") ++ ("mf" . "む") ("mga" . "みゃ") ("mgd" . "みぇん") ("mge" . "みぇ") ("mgh" . "みゅう") ++ ("mgj" . "みゅん") ("mgl" . "みょん") ("mgn" . "みゃん") ("mgo" . "みょ") ("mgp" . "みょう") ++ ("mgq" . "みゃい") ("mgu" . "みゅ") ("mgw" . "みぇい") ("mgz" . "みゃん") ("mh" . "むう") ++ ("mj" . "むん") ("mk" . "みん") ("ml" . "もん") ("mn" . "もの") ("mp" . "もう") ++ ("mq" . "まい") ("mr" . "まる") ("ms" . "ます") ("mt" . "また") ("mv" . "むん") ++ ("mw" . "めい") ("myd" . "みぇん") ("myh" . "みゅう") ("myj" . "みゅん") ("myl" . "みょん") ++ ("myn" . "みゃん") ("myp" . "みょう") ("myq" . "みゃい") ("myw" . "みぇい") ("myz" . "みゃん") ++ ("mz" . "まん") ("n." . "ぬ") ("nb" . "ねば") ("nd" . "ねん") ("nf" . "ぬ") ++ ("nga" . "にゃ") ("ngd" . "にぇん") ("nge" . "にぇ") ("ngh" . "にゅう") ("ngj" . "にゅん") ++ ("ngl" . "にょん") ("ngn" . "にゃん") ("ngo" . "にょ") ("ngp" . "にょう") ("ngq" . "にゃい") ++ ("ngu" . "にゅ") ("ngw" . "にぇい") ("ngz" . "にゃん") ("nh" . "ぬう") ("nj" . "ぬん") ++ ("nk" . "にん") ("nl" . "のん") ("np" . "のう") ("nq" . "ない") ("nr" . "なる") ++ ("nt" . "にち") ("nv" . "ぬん") ("nw" . "ねい") ("nyd" . "にぇん") ("nyh" . "にゅう") ++ ("nyj" . "にゅん") ("nyl" . "にょん") ("nyn" . "にゃん") ("nyp" . "にょう") ("nyq" . "にゃい") ++ ("nyw" . "にぇい") ("nyz" . "にゃん") ("nz" . "なん") ("pd" . "ぺん") ("pf" . "ぽん") ++ ("pga" . "ぴゃ") ("pgd" . "ぴぇん") ("pge" . "ぴぇ") ("pgh" . "ぴゅう") ("pgj" . "ぴゅん") ++ ("pgl" . "ぴょん") ("pgn" . "ぴゃん") ("pgo" . "ぴょ") ("pgp" . "ぴょう") ("pgq" . "ぴゃい") ++ ("pgu" . "ぴゅ") ("pgw" . "ぴぇい") ("pgz" . "ぴゃん") ("ph" . "ぷう") ("pj" . "ぷん") ++ ("pk" . "ぴん") ("pl" . "ぽん") ("pn" . "ぱん") ("pp" . "ぽう") ("pq" . "ぱい") ++ ("pv" . "ぽう") ("pw" . "ぺい") ("pyd" . "ぴぇん") ("pyh" . "ぴゅう") ("pyj" . "ぴゅん") ++ ("pyl" . "ぴょん") ("pyn" . "ぴゃん") ("pyp" . "ぴょう") ("pyq" . "ぴゃい") ("pyw" . "ぴぇい") ++ ("pyz" . "ぴゃん") ("pz" . "ぱん") ("q" . "ん") ("rd" . "れん") ("rh" . "るう") ++ ("rj" . "るん") ("rk" . "りん") ("rl" . "ろん") ("rn" . "らん") ("rp" . "ろう") ++ ("rq" . "らい") ("rr" . "られ") ("rw" . "れい") ("ryd" . "りぇん") ("ryh" . "りゅう") ++ ("ryj" . "りゅん") ("ryk" . "りょく") ("ryl" . "りょん") ("ryn" . "りゃん") ("ryp" . "りょう") ++ ("ryq" . "りゃい") ("ryw" . "りぇい") ("ryz" . "りゃん") ("rz" . "らん") ("sd" . "せん") ++ ("sf" . "さい") ("sh" . "すう") ("sj" . "すん") ("sk" . "しん") ("sl" . "そん") ++ ("sm" . "しも") ("sn" . "さん") ("sp" . "そう") ("sq" . "さい") ("sr" . "する") ++ ("ss" . "せい") ("st" . "した") ("sv" . "さい") ("sw" . "せい") ("syd" . "しぇん") ++ ("syh" . "しゅう") ("syj" . "しゅん") ("syl" . "しょん") ("syp" . "しょう") ("syq" . "しゃい") ++ ("syw" . "しぇい") ("syz" . "しゃん") ("sz" . "さん") ("tU" . "っ") ("tb" . "たび") ++ ("td" . "てん") ("tgh" . "てゅー") ("tgi" . "てぃ") ("tgk" . "てぃん") ("tgp" . "とぅー") ++ ("tgu" . "てゅ") ("th" . "つう") ("tj" . "つん") ("tk" . "ちん") ("tl" . "とん") ++ ("tm" . "ため") ("tn" . "たん") ("tp" . "とう") ("tq" . "たい") ("tr" . "たら") ++ ("tsU" . "っ") ("tsa" . "つぁ") ("tse" . "つぇ") ("tsi" . "つぃ") ("tso" . "つぉ") ++ ("tt" . "たち") ("tw" . "てい") ("tyd" . "ちぇん") ("tyh" . "ちゅう") ("tyj" . "ちゅん") ++ ("tyl" . "ちょん") ("tyn" . "ちゃん") ("typ" . "ちょう") ("tyq" . "ちゃい") ("tyw" . "ちぇい") ++ ("tyz" . "ちゃん") ("tz" . "たん") ("vd" . "う゛ぇん") ("vk" . "う゛ぃん") ("vl" . "う゛ぉん") ++ ("vn" . "う゛ぁん") ("vp" . "う゛ぉー") ("vq" . "う゛ぁい") ("vw" . "う゛ぇい") ("vya" . "う゛ゃ") ++ ("vye" . "う゛ぇ") ("vyo" . "う゛ょ") ("vyu" . "う゛ゅ") ("vz" . "う゛ぁん") ("wA" . "ゎ") ++ ("wd" . "うぇん") ("wf" . "わ") ("wha" . "うぁ") ("whe" . "うぇ") ("whi" . "うぃ") ++ ("who" . "うぉ") ("whu" . "う") ("wk" . "うぃん") ("wl" . "うぉん") ("wn" . "わん") ++ ("wp" . "うぉー") ("wq" . "わい") ("wr" . "われ") ("wso" . "うぉ") ("wt" . "わた") ++ ("wz" . "わん") ("xa" . "しゃ") ("xc" . "しゃ") ("xd" . "しぇん") ("xe" . "しぇ") ++ ("xf" . "しぇい") ("xh" . "しゅう") ("xi" . "し") ("xj" . "しゅん") ("xk" . "しん") ++ ("xl" . "しょん") ("xn" . "しゃん") ("xo" . "しょ") ("xp" . "しょう") ("xq" . "しゃい") ++ ("xt" . "しゅつ") ("xu" . "しゅ") ("xv" . "しゃい") ("xw" . "しぇい") ("xxa" . "ぁ") ++ ("xxe" . "ぇ") ("xxi" . "ぃ") ("xxo" . "ぉ") ("xxu" . "ぅ") ("xxh" . "←") ++ ("xxj" . "↓") ("xxk" . "↑") ("xxl" . "→") ("xz" . "しゃん") ("y<" . "←") ++ ("y>" . "→") ("y^" . "↑") ("yf" . "ゆ") ("yh" . "ゆう") ("yi" . "ゐ") ++ ("yj" . "ゆん") ("yl" . "よん") ("yn" . "やん") ("yp" . "よう") ("yq" . "やい") ++ ("yr" . "よる") ("yv" . "ゆう") ("yz" . "やん") ("z." . "ず") ("zc" . "ざ") ++ ("zd" . "ぜん") ("zf" . "ぜ") ("zh" . "ずう") ("zj" . "ずん") ("zk" . "じん") ++ ("zl" . "ぞん") ("zn" . "ざん") ("zp" . "ぞう") ("zq" . "ざい") ("zr" . "ざる") ++ ("zv" . "ざい") ("zw" . "ぜい") ("zx" . "ぜい") ("zyd" . "じぇん") ("zyh" . "じゅう") ++ ("zyj" . "じゅん") ("zyl" . "じょん") ("zyn" . "じゃん") ("zyp" . "じょう") ("zyq" . "じゃい") ++ ("zyw" . "じぇい") ("zyz" . "じゃん") ("zz" . "ざん") ("bx" . "びょう") ("bx" . "びょう") ++ ("dx" . "ぢょう") ("gx" . "ぎょう") ("hx" . "ひょう") ("kx" . "きょう") ("mx" . "みょう") ++ ("nx" . "にょう") ("px" . "ぴょう") ("rx" . "りょう") ("sx" . "しょう") ("bv" . "びゅう") ++ ("dv" . "ぢゅう") ("fv" . "ふゅー") ("gv" . "ぎゅう") ("hv" . "ひゅう") ("kv" . "きゅう") ++ ("mv" . "みゅう") ("nv" . "にゅう") ("pv" . "ぴゅう") ("rv" . "りゅう") ("sv" . "しゅう") ++ ("vv" . "う゛ゅー") ++ )) ++ ++; (defvar anthy-azik-mode-katakana-map ++; '( ++; (";" . "ッ") ("x;" . ";") ("b." . "ブ") ("bd" . "ベン") ("bh" . "ブウ") ++; ("bj" . "ブン") ("bk" . "ビン") ("bl" . "ゥs") ("bn" . "バン") ("bp" . "ゥ&") ++; ("bq" . "バイ") ("br" . "バラ") ("bt" . "ビト") ("bw" . "ベイ") ("bx" . "ベイ") ++; ("byd" . "ビェン") ("byh" . "ビュウ") ("byj" . "ビュン") ("byl" . "ビョン") ("byn" . "ビャン") ++; ("byp" . "ビョウ") ("byq" . "ビャイ") ("byw" . "ビェイ") ("byz" . "ビャン") ("bz" . "バン") ++; ("ca" . "チャ") ("cc" . "チャ") ("cd" . "チェン") ("ce" . "チェ") ("cf" . "チェ") ++; ("ch" . "チュウ") ("ci" . "チ") ("cj" . "チュン") ("ck" . "チン") ("cl" . "チョン") ++; ("cn" . "チャン") ("co" . "チョ") ("cp" . "チョウ") ("cq" . "チャイ") ("cu" . "チュ") ++; ("cv" . "チャイ") ("cw" . "チェイ") ("cx" . "チェイ") ("cz" . "チャン") ("dch" . "デュー") ++; ("dci" . "ディ") ("dck" . "ディン") ("dcp" . "ドゥー") ("dcu" . "デュ") ("dd" . "デン") ++; ("df" . "デ") ("dg" . "ダガ") ("dh" . "ヅウ") ("dj" . "ヅン") ("dk" . "ヂン") ++; ("dl" . "ドン") ("dm" . "デモ") ("dn" . "ダン") ("dp" . "ドウ") ("dq" . "ダイ") ++; ("dr" . "デアル") ("ds" . "デス") ("dt" . "ダチ") ("dv" . "デン") ("dw" . "デイ") ++; ("dy" . "ディ") ("dz" . "ダン") ("fd" . "フェン") ("fh" . "フウ") ("fj" . "フン") ++; ("fk" . "フィン") ("fl" . "フォン") ("fm" . "フム") ("fn" . "ファン") ("fp" . "フォー") ++; ("fq" . "ファイ") ("fr" . "フル") ("fs" . "ファイ") ("fw" . "フェイ") ("fz" . "ファン") ++; ("gd" . "ゲン") ("gh" . "グウ") ("gj" . "グン") ("gk" . "ギン") ("gl" . "ゴン") ++; ("gn" . "ガン") ("gp" . "ゴウ") ("gq" . "ガイ") ("gr" . "ガラ") ("gt" . "ゴト") ++; ("gw" . "ゲイ") ("gyd" . "ギェン") ("gyh" . "ギュウ") ("gyj" . "ギュン") ("gyl" . "ギョン") ++; ("gyn" . "ギャン") ("gyp" . "ギョウ") ("gyq" . "ギャイ") ("gyw" . "ギェイ") ("gyz" . "ギャン") ++; ("gz" . "ガン") ("hd" . "ヘン") ("hf" . "フ") ("hga" . "ヒャ") ("hgd" . "ヒェン") ++; ("hge" . "ヒェ") ("hgh" . "ヒュウ") ("hgj" . "ヒュン") ("hgl" . "ヒョン") ("hgn" . "ヒャン") ++; ("hgo" . "ヒョ") ("hgp" . "ヒョウ") ("hgq" . "ヒャイ") ("hgu" . "ヒュ") ("hgw" . "ヒェイ") ++; ("hgz" . "ヒャン") ("hh" . "フウ") ("hj" . "フン") ("hk" . "ヒン") ("hl" . "ホン") ++; ("hn" . "ハン") ("hp" . "ホウ") ("hq" . "ハイ") ("ht" . "ヒト") ("hw" . "ヘイ") ++; ("hyd" . "ヒェン") ("hyh" . "ヒュウ") ("hyl" . "ヒョン") ("hyp" . "ヒョウ") ("hyq" . "ヒャイ") ++; ("hyw" . "ヒェイ") ("hyz" . "ヒャン") ("hz" . "ハン") ("jd" . "ジェン") ("jf" . "ジュ") ++; ("jh" . "ジュウ") ("jj" . "ジュン") ("jk" . "ジン") ("jl" . "ジョン") ("jn" . "ジャン") ++; ("jp" . "ジョウ") ("jq" . "ジャイ") ("jv" . "ジュウ") ("jw" . "ジェイ") ("jz" . "ジャン") ++; ("kA" . "ヵ") ("kE" . "ヶ") ("kd" . "ケン") ("kf" . "キ") ("kga" . "キャ") ++; ("kgd" . "キェン") ("kge" . "キェ") ("kgh" . "キュウ") ("kgl" . "キョン") ("kgn" . "キャン") ++; ("kgo" . "キョ") ("kgp" . "キョウ") ("kgq" . "キャイ") ("kgu" . "キュ") ("kgw" . "キェイ") ++; ("kgz" . "キャン") ("kh" . "クウ") ("kj" . "クン") ("kk" . "キン") ("kl" . "コン") ++; ("km" . "キ") ("kn" . "カン") ("kp" . "コウ") ("kq" . "カイ") ("kr" . "カラ") ++; ("kt" . "コト") ("kv" . "キン") ("kw" . "ケイ") ("kyd" . "キェン") ("kyh" . "キュウ") ++; ("kyj" . "キュン") ("kyl" . "キョン") ("kyn" . "キャン") ("kyp" . "キョウ") ("kyq" . "キャイ") ++; ("kyw" . "キェイ") ("kyz" . "キャン") ("kz" . "カン") ("m." . "ム") ("md" . "メン") ++; ("mf" . "ム") ("mga" . "ミャ") ("mgd" . "ミェン") ("mge" . "ミェ") ("mgh" . "ミュウ") ++; ("mgj" . "ミュン") ("mgl" . "ミョン") ("mgn" . "ミャン") ("mgo" . "ミョ") ("mgp" . "ミョウ") ++; ("mgq" . "ミャイ") ("mgu" . "ミュ") ("mgw" . "ミェイ") ("mgz" . "ミャン") ("mh" . "ムウ") ++; ("mj" . "ムン") ("mk" . "ミン") ("ml" . "モン") ("mn" . "モノ") ("mp" . "モウ") ++; ("mq" . "マイ") ("mr" . "マル") ("ms" . "マス") ("mt" . "マタ") ("mv" . "ムン") ++; ("mw" . "メイ") ("myd" . "ミェン") ("myh" . "ミュウ") ("myj" . "ミュン") ("myl" . "ミョン") ++; ("myn" . "ミャン") ("myp" . "ミョウ") ("myq" . "ミャイ") ("myw" . "ミェイ") ("myz" . "ミャン") ++; ("mz" . "マン") ("n." . "ヌ") ("nb" . "ネバ") ("nd" . "ネン") ("nf" . "ヌ") ++; ("nga" . "ニャ") ("ngd" . "ニェン") ("nge" . "ニェ") ("ngh" . "ニュウ") ("ngj" . "ニュン") ++; ("ngl" . "ニョン") ("ngn" . "ニャン") ("ngo" . "ニョ") ("ngp" . "ニョウ") ("ngq" . "ニャイ") ++; ("ngu" . "ニュ") ("ngw" . "ニェイ") ("ngz" . "ニャン") ("nh" . "ヌウ") ("nj" . "ヌン") ++; ("nk" . "ニン") ("nl" . "ノン") ("np" . "ノウ") ("nq" . "ナイ") ("nr" . "ナル") ++; ("nt" . "ニチ") ("nv" . "ヌン") ("nw" . "ネイ") ("nyd" . "ニェン") ("nyh" . "ニュウ") ++; ("nyj" . "ニュン") ("nyl" . "ニョン") ("nyn" . "ニャン") ("nyp" . "ニョウ") ("nyq" . "ニャイ") ++; ("nyw" . "ニェイ") ("nyz" . "ニャン") ("nz" . "ナン") ("pd" . "ペン") ("pf" . "ポン") ++; ("pga" . "ピャ") ("pgd" . "ピェン") ("pge" . "ピェ") ("pgh" . "ピュウ") ("pgj" . "ピュン") ++; ("pgl" . "ピョン") ("pgn" . "ピャン") ("pgo" . "ピョ") ("pgp" . "ピョウ") ("pgq" . "ピャイ") ++; ("pgu" . "ピュ") ("pgw" . "ピェイ") ("pgz" . "ピャン") ("ph" . "プウ") ("pj" . "プン") ++; ("pk" . "ピン") ("pl" . "ポン") ("pn" . "パン") ("pp" . "ポウ") ("pq" . "パイ") ++; ("pv" . "ポウ") ("pw" . "ペイ") ("pyd" . "ピェン") ("pyh" . "ピュウ") ("pyj" . "ピュン") ++; ("pyl" . "ピョン") ("pyn" . "ピャン") ("pyp" . "ピョウ") ("pyq" . "ピャイ") ("pyw" . "ピェイ") ++; ("pyz" . "ピャン") ("pz" . "パン") ("q" . "ン") ("rd" . "レン") ("rh" . "ルウ") ++; ("rj" . "ルン") ("rk" . "リン") ("rl" . "ロン") ("rn" . "ラン") ("rp" . "ロウ") ++; ("rq" . "ライ") ("rr" . "ラレ") ("rw" . "レイ") ("ryd" . "リェン") ("ryh" . "リュウ") ++; ("ryj" . "リュン") ("ryk" . "リョク") ("ryl" . "リョン") ("ryn" . "リャン") ("ryp" . "リョウ") ++; ("ryq" . "リャイ") ("ryw" . "リェイ") ("ryz" . "リャン") ("rz" . "ラン") ("sd" . "セン") ++; ("sf" . "サイ") ("sh" . "スウ") ("sj" . "スン") ("sk" . "シン") ("sl" . "ソン") ++; ("sm" . "シモ") ("sn" . "サン") ("sp" . "ソウ") ("sq" . "サイ") ("sr" . "スル") ++; ("ss" . "セイ") ("st" . "シタ") ("sv" . "サイ") ("sw" . "セイ") ("syd" . "シェン") ++; ("syh" . "シュウ") ("syj" . "シュン") ("syl" . "ション") ("syp" . "ショウ") ("syq" . "シャイ") ++; ("syw" . "シェイ") ("syz" . "シャン") ("sz" . "サン") ("tU" . "ッ") ("tb" . "タビ") ++; ("td" . "テン") ("tgh" . "テュー") ("tgi" . "ティ") ("tgk" . "ティン") ("tgp" . "トゥー") ++; ("tgu" . "テュ") ("th" . "ツウ") ("tj" . "ツン") ("tk" . "チン") ("tl" . "トン") ++; ("tm" . "タメ") ("tn" . "タン") ("tp" . "トウ") ("tq" . "タイ") ("tr" . "タラ") ++; ("tsU" . "ッ") ("tsa" . "ツァ") ("tse" . "ツェ") ("tsi" . "ツィ") ("tso" . "ツォ") ++; ("tt" . "タチ") ("tw" . "テイ") ("tyd" . "チェン") ("tyh" . "チュウ") ("tyj" . "チュン") ++; ("tyl" . "チョン") ("tyn" . "チャン") ("typ" . "チョウ") ("tyq" . "チャイ") ("tyw" . "チェイ") ++; ("tyz" . "チャン") ("tz" . "タン") ("vd" . "ヴェン") ("vk" . "ヴィン") ("vl" . "ヴォン") ++; ("vn" . "ヴァン") ("vp" . "ヴォー") ("vq" . "ヴァイ") ("vw" . "ヴェイ") ("vya" . "ヴャ") ++; ("vye" . "ヴェ") ("vyo" . "ヴョ") ("vyu" . "ヴュ") ("vz" . "ヴァン") ("wA" . "ヮ") ++; ("wd" . "ウェン") ("wf" . "ワ") ("wha" . "ウァ") ("whe" . "ウェ") ("whi" . "ウィ") ++; ("who" . "ウォ") ("whu" . "ウ") ("wk" . "ウィン") ("wl" . "ウォン") ("wn" . "ワン") ++; ("wp" . "ウォー") ("wq" . "ワイ") ("wr" . "ワレ") ("wso" . "ウォ") ("wt" . "ワタ") ++; ("wz" . "ワン") ("xa" . "シャ") ("xc" . "シャ") ("xd" . "シェン") ("xe" . "シェ") ++; ("xf" . "シェイ") ("xh" . "シュウ") ("xi" . "シ") ("xj" . "シュン") ("xk" . "シン") ++; ("xl" . "ション") ("xn" . "シャン") ("xo" . "ショ") ("xp" . "ショウ") ("xq" . "シャイ") ++; ("xt" . "シュツ") ("xu" . "シュ") ("xv" . "シャイ") ("xw" . "シェイ") ("xxa" . "ァ") ++; ("xxe" . "ェ") ("xxi" . "ィ") ("xxo" . "ォ") ("xxu" . "ゥ") ("xxh" . "←") ++; ("xxj" . "↓") ("xxk" . "↑") ("xxl" . "→") ("xz" . "シャン") ("y<" . "←") ++; ("y>" . "→") ("y^" . "↑") ("yf" . "ユ") ("yh" . "ユウ") ("yi" . "ヰ") ++; ("yj" . "ユン") ("yl" . "ヨン") ("yn" . "ヤン") ("yp" . "ヨウ") ("yq" . "ヤイ") ++; ("yr" . "ヨル") ("yv" . "ユウ") ("yz" . "ヤン") ("z." . "ズ") ("zc" . "ザ") ++; ("zd" . "ゼン") ("zf" . "ゼ") ("zh" . "ズウ") ("zj" . "ズン") ("zk" . "ジン") ++; ("zl" . "ゾン") ("zn" . "ザン") ("zp" . "ゾウ") ("zq" . "ザイ") ("zr" . "ザル") ++; ("zv" . "ザイ") ("zw" . "ゼイ") ("zx" . "ゼイ") ("zyd" . "ジェン") ("zyh" . "ジュウ") ++; ("zyj" . "ジュン") ("zyl" . "ジョン") ("zyn" . "ジャン") ("zyp" . "ジョウ") ("zyq" . "ジャイ") ++; ("zyw" . "ジェイ") ("zyz" . "ジャン") ("zz" . "ザン") ("bx" . "ビョウ") ("bx" . "ビョウ") ++; ("dx" . "ヂョウ") ("gx" . "ギョウ") ("hx" . "ヒョウ") ("kx" . "キョウ") ("mx" . "ミョウ") ++; ("nx" . "ニョウ") ("px" . "ピョウ") ("rx" . "リョウ") ("sx" . "ショウ") ("bv" . "ビュウ") ++; ("dv" . "ヂュウ") ("fv" . "フュー") ("gv" . "ギュウ") ("hv" . "ヒュウ") ("kv" . "キュウ") ++; ("mv" . "ミュウ") ("nv" . "ニュウ") ("pv" . "ピュウ") ("rv" . "リュウ") ("sv" . "シュウ") ++; ("vv" . "ウ゛ュー") ++; )) ++ ++(defun anthy-azik-mode () ++ (interactive) ++ (setq anthy-rkmap-keybind ++ '( ++ ;; \C-p ++ (("hiragana" . 16) . "katakana") ++ (("katakana" . 16) . "hiragana"))) ++; (define-key anthy-mode-map (char-to-string 16) 'anthy-insert) ++ (anthy-send-change-toggle-command "!") ++ (mapcar (lambda (x) ++ (anthy-change-hiragana-map (car x) (cdr x))) ++ anthy-azik-mode-hiragana-map) ++ (anthy-hiragana-map)) ++; (mapcar (lambda (x) ++; (anthy-change-katakana-map (car x) (cdr x))) ++; anthy-azik-mode-katakana-map) ++ +diff --git a/src-util/anthy-unicode-conf.el b/src-util/anthy-unicode-conf.el +new file mode 100644 +index 0000000..7b7d7c2 +--- /dev/null ++++ b/src-util/anthy-unicode-conf.el +@@ -0,0 +1,122 @@ ++;; anthy-conf.el -- Anthy ++ ++ ++;; Copyright (C) 2002 ++;; Author: Yusuke Tabata ++ ++;; This file is part of Anthy ++ ++;;; Commentary: ++;; ++ ++(defvar anthy-alt-char-map ++ '(("," "，") ++ ("." "．"))) ++ ++(defvar anthy-kana-mode-hiragana-map ++ '( ++ ("3" . "あ") ("e" . "い") ("4" . "う") ("5" . "え") ("6" . "お") ++ ("#" . "ぁ") ("E" . "ぃ") ("$" . "ぅ") ("%" . "ぇ") ("&" . "ぉ") ++ ("t" . "か") ("g" . "き") ("h" . "く") (":" . "け") ("b" . "こ") ++ ("t@" . "が") ("g@" . "ぎ") ("h@" . "ぐ") (":@" . "げ") ("b@" . "ご") ++ ("x" . "さ") ("d" . "し") ("r" . "す") ("p" . "せ") ("c" . "そ") ++ ("x@" . "ざ") ("d@" . "じ") ("r@" . "ず") ("p@" . "ぜ") ("c@" . "ぞ") ++ ("q" . "た") ("a" . "ち") ("z" . "つ") ("w" . "て") ("s" . "と") ++ ("q@" . "だ") ("a@" . "ぢ") ("z@" . "づ") ("w@" . "で") ("s@" . "ど") ++ ("u" . "な") ("i" . "に") ("1" . "ぬ") ("," . "ね") ("k" . "の") ++ ("f" . "は") ("v" . "ひ") ("2" . "ふ") ("^" . "へ") ("-" . "ほ") ++ ("f@" . "ば") ("v@" . "び") ("2@" . "ぶ") ("^@" . "べ") ("-@" . "ぼ") ++ ("f[" . "ぱ") ("v[" . "ぴ") ("2[" . "ぷ") ("^[" . "ぺ") ("-[" . "ぽ") ++ ("j" . "ま") ("n" . "み") ("]" . "む") ("/" . "め") ("m" . "も") ++ ("7" . "や") ("8" . "ゆ") ("9" . "よ") ++ ("'" . "ゃ") ("(" . "ゅ") (")" . "ょ") ++ ("o" . "ら") ("l" . "り") ("." . "る") (";" . "れ") ("\\" . "ろ") ++ ("0" . "わ") ("~" . "を") ++ ++ ;; 困ったことに バックスラッシュと円を区別する方法がわからない ++ ("|" . "ー") ("_" . "ー") ("<" . "、") (">" . "。") ++ ("Z" . "っ") ("y" . "ん") ++ )) ++ ++(defvar anthy-kana-mode-katakana-map ++ '( ++ ("3" . "ア") ("e" . "イ") ("4" . "ウ") ("5" . "エ") ("6" . "オ") ++ ("#" . "ァ") ("E" . "ィ") ("$" . "ゥ") ("%" . "ェ") ("&" . "ォ") ++ ("t" . "カ") ("g" . "キ") ("h" . "ク") (":" . "ケ") ("b" . "コ") ++ ("t@" . "ガ") ("g@" . "ギ") ("h@" . "グ") (":@" . "ゲ") ("b@" . "ゴ") ++ ("x" . "サ") ("d" . "シ") ("r" . "ス") ("p" . "セ") ("c" . "ソ") ++ ("x@" . "ザ") ("d@" . "ジ") ("r@" . "ズ") ("p@" . "ゼ") ("c@" . "ゾ") ++ ("q" . "タ") ("a" . "チ") ("z" . "ツ") ("w" . "テ") ("s" . "ト") ++ ("q@" . "ダ") ("a@" . "ヂ") ("z@" . "ヅ") ("w@" . "デ") ("s@" . "ド") ++ ("u" . "ナ") ("i" . "ニ") ("1" . "ヌ") ("," . "ネ") ("k" . "ノ") ++ ("f" . "ハ") ("v" . "ヒ") ("2" . "フ") ("^" . "ヘ") ("-" . "ホ") ++ ("f@" . "バ") ("v@" . "ビ") ("2@" . "ブ") ("^@" . "ベ") ("-@" . "ボ") ++ ("f[" . "パ") ("v[" . "ピ") ("2[" . "プ") ("^[" . "ペ") ("-[" . "ポ") ++ ("j" . "マ") ("n" . "ミ") ("]" . "ム") ("/" . "メ") ("m" . "モ") ++ ("7" . "ヤ") ("8" . "ユ") ("9" . "ヨ") ++ ("'" . "ャ") ("(" . "ュ") (")" . "ョ") ++ ("o" . "ラ") ("l" . "リ") ("." . "ル") (";" . "レ") ("\\" . "ロ") ++ ("0" . "ワ") ("~" . "ヲ") ++ ++ ;; 困ったことに バックスラッシュと円を区別する方法がわからない ++ ("|" . "ー") ("_" . "ー") ("<" . "、") (">" . "。") ++ ("Z" . "ッ") ("y" . "ン") ++ )) ++ ++;; ++;; mapの変更 ++;; ++(defun anthy-send-map-edit-command (mapno key str) ++ (if (not (stringp key)) ++ (setq key (char-to-string key))) ++ (if (not (stringp str)) ++ (setq str (char-to-string str))) ++ (anthy-send-recv-command ++ (concat " MAP_EDIT " (int-to-string mapno) ++ " " key " " str "\n"))) ++(defun anthy-change-hiragana-map (key str) ++ (anthy-send-map-edit-command 2 key str)) ++(defun anthy-change-katakana-map (key str) ++ (anthy-send-map-edit-command 3 key str)) ++(defun anthy-load-hiragana-map (map) ++ (mapcar (lambda (x) ++ (let ((key (car x)) ++ (str (cadr x))) ++ (anthy-change-hiragana-map key str))) map)) ++(defun anthy-clear-map () ++ (anthy-send-recv-command ++ " MAP_CLEAR 0\n")) ++;; ++;; toggleの変更 ++;; ++(defun anthy-send-change-toggle-command (str) ++ (anthy-send-recv-command ++ (concat " CHANGE_TOGGLE " str "\n"))) ++ ++;; should disable toggle ++;; (ローマ字ではなくて)かなモードにする ++(defun anthy-kana-map-mode () ++ (setq anthy-rkmap-keybind ++ '( ++ ;; \C-p ++ (("hiragana" . 16) . "katakana") ++ (("katakana" . 16) . "hiragana"))) ++ (define-key anthy-mode-map (char-to-string 16) 'anthy-insert) ++ (anthy-send-recv-command " SET_PREEDIT_MODE 1\n") ++ (anthy-send-change-toggle-command "!") ++ (anthy-clear-map) ++ (mapcar (lambda (x) ++ (anthy-change-hiragana-map (car x) (cdr x))) ++ anthy-kana-mode-hiragana-map) ++ (mapcar (lambda (x) ++ (anthy-change-katakana-map (car x) (cdr x))) ++ anthy-kana-mode-katakana-map)) ++;; ++(defun anthy-set-break-into-roman (flag) ++ "読みを入力中にバックスペースを打つとローマ字までバラバラにする" ++ (anthy-send-recv-command ++ (if flag ++ " BREAK_INTO_ROMAN 1\n" ++ " BREAK_INTO_ROMAN 0\n"))) ++ ++(provide 'anthy-conf) +diff --git a/src-util/anthy-dic.el b/src-util/anthy-unicode-dic.el +similarity index 59% +rename from src-util/anthy-dic.el +rename to src-util/anthy-unicode-dic.el +index 07cfc7b..5920451 100644 +--- a/src-util/anthy-dic.el ++++ b/src-util/anthy-unicode-dic.el +@@ -11,7 +11,7 @@ + ;; tooo experimental + ;; + ;; +-;; Funded by IPA$BL$F'%=%U%H%&%'%"AOB$;v6H(B 2001 11/10 ++;; Funded by IPA未踏ソフトウェア創造事業 2001 11/10 + + ;;; Code + (defvar anthy-dic-util-command "anthy-dic-tool") +@@ -54,44 +54,44 @@ + + (defun anthy-dic-get-noun-category (word) + (let +- ((res '(("$BIJ;l(B" "$BL>;l(B"))) +- (na (y-or-n-p (concat "$B!V(B" word "$B$J!W$H8@$$$^$9$+(B? "))) +- (sa (y-or-n-p (concat "$B!V(B" word "$B$5!W$H8@$$$^$9$+(B? "))) +- (suru (y-or-n-p (concat "$B!V(B" word "$B$9$k!W$H8@$$$^$9$+(B? "))) +- (ind (y-or-n-p (concat "$B!V(B" word "$B!W$OC1FH$GJ8@a$K$J$j$^$9$+(B? "))) +- (kaku (y-or-n-p (concat "$B!V(B" word "$B$H!W$H8@$$$^$9$+(B? ")))) +- (setq res (cons `("$B$J@\B3(B" ,na) res)) +- (setq res (cons `("$B$5@\B3(B" ,sa) res)) +- (setq res (cons `("$B$9$k@\B3(B" ,suru) res)) +- (setq res (cons `("$B8l44$N$_$GJ8@a(B" ,ind) res)) +- (setq res (cons `("$B3J=u;l@\B3(B" ,kaku) res)) ++ ((res '(("品詞" "名詞"))) ++ (na (y-or-n-p (concat "「" word "な」と言いますか? "))) ++ (sa (y-or-n-p (concat "「" word "さ」と言いますか? "))) ++ (suru (y-or-n-p (concat "「" word "する」と言いますか? "))) ++ (ind (y-or-n-p (concat "「" word "」は単独で文節になりますか? "))) ++ (kaku (y-or-n-p (concat "「" word "と」と言いますか? ")))) ++ (setq res (cons `("な接続" ,na) res)) ++ (setq res (cons `("さ接続" ,sa) res)) ++ (setq res (cons `("する接続" ,suru) res)) ++ (setq res (cons `("語幹のみで文節" ,ind) res)) ++ (setq res (cons `("格助詞接続" ,kaku) res)) + res)) + + (defun anthy-dic-get-special-noun-category (word) + (let + ((res '()) + (cat (string-to-int +- (read-from-minibuffer "1:$B?ML>(B 2:$BCOL>(B: ")))) ++ (read-from-minibuffer "1:人名 2:地名: ")))) + (cond ((= cat 1) +- (setq res '(("$BIJ;l(B" "$B?ML>(B")))) ++ (setq res '(("品詞" "人名")))) + ((= cat 2) +- (setq res '(("$BIJ;l(B" "$BCOL>(B"))))) ++ (setq res '(("品詞" "地名"))))) + res)) + + (defun anthy-dic-get-adjective-category (word) +- '(("$BIJ;l(B" "$B7AMF;l(B"))) ++ '(("品詞" "形容詞"))) + + (defun anthy-dic-get-av-category (word) + (let +- ((res '(("$BIJ;l(B" "$BI{;l(B"))) +- (to (y-or-n-p (concat "$B!V(B" word "$B$H!W$H8@$$$^$9$+(B?"))) +- (taru (y-or-n-p (concat "$B!V(B" word "$B$?$k!W$H8@$$$^$9$+(B?"))) +- (suru (y-or-n-p (concat "$B!V(B" word "$B$9$k!W$H8@$$$^$9$+(B?"))) +- (ind (y-or-n-p (concat "$B!V(B" word "$B!W$OC1FH$GJ8@a$K$J$j$^$9$+(B?")))) +- (setq res (cons `("$B$H@\B3(B" ,to) res)) +- (setq res (cons `("$B$?$k@\B3(B" ,taru) res)) +- (setq res (cons `("$B$9$k@\B3(B" ,suru) res)) +- (setq res (cons `("$B8l44$N$_$GJ8@a(B" ,ind) res)) ++ ((res '(("品詞" "副詞"))) ++ (to (y-or-n-p (concat "「" word "と」と言いますか?"))) ++ (taru (y-or-n-p (concat "「" word "たる」と言いますか?"))) ++ (suru (y-or-n-p (concat "「" word "する」と言いますか?"))) ++ (ind (y-or-n-p (concat "「" word "」は単独で文節になりますか?")))) ++ (setq res (cons `("と接続" ,to) res)) ++ (setq res (cons `("たる接続" ,taru) res)) ++ (setq res (cons `("する接続" ,suru) res)) ++ (setq res (cons `("語幹のみで文節" ,ind) res)) + res)) + + ;; taken from tooltip.el +@@ -111,11 +111,11 @@ + "")) + yomi cat) + (and (string= word "") +- (setq word (read-from-minibuffer "$BC18l(B($B8l44$N$_(B): "))) +- (setq yomi (read-from-minibuffer (concat "$BFI$_(B (" word "): "))) ++ (setq word (read-from-minibuffer "単語(語幹のみ): "))) ++ (setq yomi (read-from-minibuffer (concat "読み (" word "): "))) + (setq cat (string-to-int + (read-from-minibuffer +- "$B%+%F%4%j!<(B 1:$B0lHLL>;l(B 2:$B$=$NB>$NL>;l(B 3:$B7AMF;l(B 4:$BI{;l(B: "))) ++ "カテゴリー 1:一般名詞 2:その他の名詞 3:形容詞 4:副詞: "))) + (cond ((= cat 1) + (setq param (anthy-dic-get-noun-category word))) + ((= cat 2) +@@ -127,6 +127,6 @@ + (if param + (setq res (anthy-add-word yomi 1 word param))) + (if res +- (message (concat word "(" yomi ")$B$rEPO?$7$^$7$?(B"))))) ++ (message (concat word "(" yomi ")を登録しました"))))) + + (provide 'anthy-dic) +diff --git a/src-util/anthy-isearch.el b/src-util/anthy-unicode-isearch.el +similarity index 91% +rename from src-util/anthy-isearch.el +rename to src-util/anthy-unicode-isearch.el +index 46d186f..85077cc 100644 +--- a/src-util/anthy-isearch.el ++++ b/src-util/anthy-unicode-isearch.el +@@ -15,20 +15,20 @@ + + (defvar anthy-isearch-mode-map nil) + +-;; $B8!:wBP>]$NJ8;zNs$H%W%j%(%G%#%C%H$rF~$l$k%P%C%U%!(B ++;; 検索対象の文字列とプリエディットを入れるバッファ + (defconst anthy-isearch-working-buffer " *anthy-isearch*") + +-;; $B8!:wBP>]$NJ8;zNs$r]$NJ8;zNs(B + $BF~NOESCf$NJ8;zNs(B ++;; 検索対象の文字列 + 入力途中の文字列 + (defun anthy-isearch-search-message () + (with-current-buffer (get-buffer-create anthy-isearch-working-buffer) + (buffer-string))) +@@ -82,7 +82,7 @@ + map)) + + (defun anthy-isearch-mode-setup () +- ;; $B:G=i$O%-!<%^%C%W$r=`Hw$9$k(B ++ ;; 最初はキーマップを準備する + (or (keymapp anthy-isearch-mode-map) + (setq anthy-isearch-mode-map + (anthy-isearch-setup-keymap (copy-keymap isearch-mode-map)))) +diff --git a/src-util/anthy-unicode-kyuri.el b/src-util/anthy-unicode-kyuri.el +new file mode 100644 +index 0000000..6fb2575 +--- /dev/null ++++ b/src-util/anthy-unicode-kyuri.el +@@ -0,0 +1,210 @@ ++;; anthy-kyuri.el ++ ++;; Copyright (C) 2005 ++;; Author: Yukihiro Matsumoto ++ ++(require 'anthy) ++ ++(setq anthy-kyuri-mode-hiragana-map ++ '( ++ ("bh" . "ぁ") ("h" . "あ") ("bk" . "ぃ") ("k" . "い") ("bj" . "ぅ") ++ ("j" . "う") ("yj" . "う゛") ("yh" . "う゛ぁ") ("yk" . "う゛ぃ") ("y;" . "う゛ぇ") ++ ("yl" . "う゛ぉ") ("b;" . "ぇ") (";" . "え") ("bl" . "ぉ") ("l" . "お") ++ ("dh" . "か") ("qh" . "が") ("dk" . "き") ("du" . "きゃ") ("di" . "きゅ") ("do" . "きょ") ++ ("duu" . "きゃあ") ("dii" . "きゅう") ("doo" . "きょう") ++ ("qk" . "ぎ") ("qu" . "ぎゃ") ("qi" . "ぎゅ") ("qo" . "ぎょ") ++ ("quu" . "ぎゃあ") ("qii" . "ぎゅう") ("qoo" . "ぎょう") ++ ("dj" . "く") ("qj" . "ぐ") ("d;" . "け") ("q;" . "げ") ("dl" . "こ") ("ql" . "ご") ++ ("fh" . "さ") ("zh" . "ざ") ("fk" . "し") ++ ("fu" . "しゃ") ("fi" . "しゅ") ("fo" . "しょ") ("fb;" . "しぇ") ++ ("fuu" . "しゃあ") ("fii" . "しゅう") ("foo" . "しょう") ++ ("zk" . "じ") ("zu" . "じゃ") ("zi" . "じゅ") ("zo" . "じょ") ++ ("zuu" . "じゃあ") ("zii" . "じゅう") ("zoo" . "じょう") ++ ("fj" . "す") ("zj" . "ず") ("f;" . "せ") ("z;" . "ぜ") ("fl" . "そ") ("zl" . "ぞ") ++ ("gh" . "た") ("vh" . "だ") ("gk" . "ち") ++ ("gu" . "ちゃ") ("gi" . "ちゅ") ("go" . "ちょ") ("gb;" . "ちぇ") ++ ("guu" . "ちゃあ") ("gii" . "ちゅう") ("goo" . "ちょう") ++ ("vk" . "ぢ") ("vu" . "ぢゃ") ("vi" . "ぢゅ") ("vo" . "ぢょ") ("vb;" . "ぢぇ") ++ ("vuu" . "ぢゃあ") ("vii" . "ぢゅう") ++ ("voo" . "ぢょう") ("m" . "っ") ("ddh" . "っか") ("qqh" . "っが") ("ddk" . "っき") ++ ("ddu" . "っきゃ") ("ddi" . "っきゅ") ("ddo" . "っきょ") ++ ("dduu" . "っきゃあ") ("ddii" . "っきゅう") ("ddoo" . "っきょう") ++ ("qqk" . "っぎ") ("qqu" . "っぎゃ") ("qqi" . "っぎゅ") ("qqo" . "っぎょ") ++ ("qquu" . "っぎゃあ") ("qqii" . "っぎゅう") ("qqoo" . "っぎょう") ++ ("ddj" . "っく") ("dd;" . "っけ") ("ddl" . "っこ") ++ ("qqj" . "っぐ") ("qq;" . "っげ") ("qql" . "っご") ++ ("ffh" . "っさ") ("zzh" . "っざ") ("ffk" . "っし") ++ ("ffu" . "っしゃ") ("ffi" . "っしゅ") ("ffo" . "っしょ") ++ ("ffuu" . "っしゃあ") ("ffii" . "っしゅう") ("ffoo" . "っしょう") ++ ("zzk" . "っじ") ++ ("zzu" . "っじゃ") ("zzi" . "っじゅ") ("zzo" . "っじょ") ++ ("zzuu" . "っじゃあ") ("zzii" . "っじゅう") ("zzoo" . "っじょう") ++ ("ffj" . "っす") ("zzj" . "っず") ("ff;" . "っせ") ("zz;" . "っぜ") ("ffl" . "っそ") ++ ("zzl" . "っぞ") ("ggh" . "った") ("vvh" . "っだ") ("ggk" . "っち") ++ ("ggu" . "っちゃ") ("ggi" . "っちゅ") ("ggo" . "っちょ") ("ggb;" . "っちぇ") ++ ("gguu" . "っちゃあ") ("ggii" . "っちゅう") ("ggoo" . "っちょう") ++ ("vvk" . "っぢ") ++ ("vvu" . "っぢゃ") ("vvi" . "っぢゅ") ("vvoo" . "っぢょ") ++ ("vvuu" . "っぢゃあ") ("vvii" . "っぢゅう") ("vvoo" . "っぢょう") ++ ("ggj" . "っつ") ("gg;" . "って") ("ggl" . "っと") ++ ("vvj" . "っづ") ("vv;" . "っで") ("vvl" . "っど") ++ ("ssh" . "っは") ("cch" . "っば") ("tth" . "っぱ") ++ ("ttk" . "っひ") ++ ("ssu" . "っひゃ") ("ssi" . "っひゅ") ("sso" . "っひょ") ++ ("ssuu" . "っひゃあ") ("ssii" . "っひゅう") ("ssoo" . "っひょう") ++ ("cck" . "っび") ++ ("ccu" . "っびゃ") ("ccii" . "っびゅ") ("cco" . "っびょ") ++ ("ccuu" . "っびゃあ") ("ccii" . "っびゅう") ("ccoo" . "っびょう") ++ ("ttk" . "っぴ") ++ ("ttu" . "っぴゃ") ("tti" . "っぴゅ") ("tto" . "っぴょ") ++ ("ttuu" . "っぴゃあ") ("ttii" . "っぴゅう") ("ttoo" . "っぴょう") ++ ("ssj" . "っふ") ++ ("ssbh" . "っふぁ") ("ssbk" . "っふぃ") ("ssb;" . "っふぇ") ("ssbl" . "っふぉ") ++ ("ccj" . "っぶ") ("ttj" . "っぷ") ("ss;" . "っへ") ("cc;" . "っべ") ("tt;" . "っぺ") ++ ("ssl" . "っほ") ("ccl" . "っぼ") ("ttl" . "っぽ") ("aah" . "っや") ("aaj" . "っゆ") ++ ("yyo" . "っよ") ("rra" . "っら") ("rri" . "っり") ++ ("rru" . "っりゃ") ("rri" . "っりゅ") ("rro" . "っりょ") ++ ("rruu" . "っりゃあ") ("rrii" . "っりゅう") ("rroo" . "っりょう") ++ ("rrj" . "っる") ("rr;" . "っれ") ("rrl" . "っろ") ++ ("gj" . "つ") ("vj" . "づ") ("g;" . "て") ("v;" . "で") ++ ("vbu" . "でゃ") ("vbk" . "でぃ") ("vbj" . "でゅ") ("vb;" . "でぇ") ("vbo" . "でょ") ++ ("gbu" . "てゃ") ("gbk" . "てぃ") ("gbj" . "てゅ") ("gbo" . "てょ") ++ ("gl" . "と") ("vl" . "ど") ("eh" . "な") ("ek" . "に") ++ ("eu" . "にゃ") ("ei" . "にゅ") ("eo" . "にょ") ++ ("euu" . "にゃあ") ("eii" . "にゅう") ("eoo" . "にょう") ++ ("ej" . "ぬ") ("e;" . "ね") ("el" . "の") ++ ("sh" . "は") ("ch" . "ば") ("th" . "ぱ") ("sk" . "ひ") ++ ("su" . "ひゃ") ("si" . "ひゅ") ("so" . "ひょ") ("sb;" . "ひぇ") ++ ("suu" . "ひゃあ") ("sii" . "ひゅう") ("soo" . "ひょう") ++ ("ck" . "び") ++ ("cu" . "びゃ") ("ci" . "びゅ") ("co" . "びょ") ("cb;" . "ひょ") ++ ("cuu" . "びゃあ") ("cii" . "びゅう") ("coo" . "びょう") ++ ("tk" . "ぴ") ++ ("tu" . "ぴゃ") ("ti" . "ぴゅ") ("to" . "ぴょ") ("tb;" . "ぴぇ") ++ ("tuu" . "ぴゃあ") ("tii" . "ぴゅう") ("too" . "ぴょう") ++ ("sj" . "ふ") ++ ("sbh" . "ふぁ") ("sbk" . "ふぃ") ("sbj" . "ふぅ") ("sb;" . "ふぇ") ("sbl" . "ふぉ") ++ ("cj" . "ぶ") ++ ("cbh" . "ぶぁ") ("cbk" . "ぶぃ") ("cbj" . "ぶぅ") ("cb;" . "ぶぇ") ("cbl" . "ぶぉ") ++ ("tj" . "ぷ") ++ ("tbh" . "ぷぁ") ("tbk" . "ぷぃ") ("tbj" . "ぷぅ") ("tb;" . "ぷぇ") ("tbl" . "ぷぉ") ++ ("s;" . "へ") ("c;" . "べ") ("t;" . "ぺ") ++ ("sl" . "ほ") ("cl" . "ぼ") ("tl" . "ぽ") ++ ("wh" . "ま") ("wk" . "み") ++ ("wu" . "みゃ") ("wi" . "みゅ") ("wo" . "みょ") ++ ("wuu" . "みゃあ") ("wii" . "みゅう") ("woo" . "みょう") ++ ("wj" . "む") ("w;" . "め") ("wl" . "も") ++ ("u" . "ゃ") ("ah" . "や") ("i" . "ゅ") ("aj" . "ゆ") ("o" . "ょ") ++ ("al" . "よ") ++ ("rh" . "ら") ("rk" . "り") ++ ("ru" . "りゃ") ("ri" . "りゅ") ("ro" . "りょ") ++ ("ruu" . "りゃあ") ("rii" . "りゅう") ("roo" . "りょう") ++ ("rj" . "る") ("r;" . "れ") ("rl" . "ろ") ++ ("bxh" . "ゎ") ("xh" . "わ") ("xk" . "ゐ") ("x;" . "ゑ") ++ ("xbk" . "うぃ") ("xb;" . "うぇ") ++ ("xl" . "を") ("n" . "ん") ++ ("p" . "ー") ("zb;" . "じぇ") ++ ("zp" . "〜") ("z/" . "・") ("zx" . "^^;;;") ++ ++ ("[" . "「") ("]" . "」") ("{" . "『") ("}" . "』") ++ ("X1" . "○") ("X!" . "●") ("X2" . "▽") ("X@" . "▼") ("X3" . "△") ++ ("X#" . "▲") ("X4" . "□") ("X$" . "■") ("X5" . "◇") ("X%" . "◆") ++ ("X6" . "☆") ("X^" . "★") ("X7" . "◎") ("X&" . "£") ("X8" . "¢") ++ ("X*" . "×") ("X9" . "♂") ("X(" . "【") ("X0" . "♀") ("X)" . "】") ++ ("X-" . "〜") ("X_" . "∴") ("X=" . "≒") ("X+" . "±") ("X\\" . "＼") ++ ("X|" . "‖") ("X\`" . "´") ("X~" . "¨") ("Xq" . "《") ("XQ" . "〈") ++ ("Xw" . "》") ("XW" . "〉") ("Xe" . "々") ("XR" . "仝") ("Xt" . "〆") ++ ("XT" . "§") ("Xp" . "〒") ("XP" . "↑") ("X[" . "『") ("X]" . "』") ++ ("X{" . "〔") ("X}" . "〕") ("Xs" . "ヽ") ("XS" . "ヾ") ("Xd" . "ゝ") ++ ("XD" . "ゞ") ("Xf" . "〃") ("XF" . "→") ("Xg" . "‐") ("Xj" . "↓") ++ ("XG" . "―") ("Xh" . "←") ("Xk" . "↑") ("Xl" . "→") ("X:" . "゜") ++ ("X\'" . "‘") ("X\"" . "“") ("Xx" . ":-") ("XX" . ":-)") ++ ("Xc" . "〇") ("XC" . "℃") ("Xv" . "※") ("XV" . "÷") ("Xb" . "°") ++ ("XB" . "←") ("Xn" . "′") ("XN" . "↓") ("Xっ" . "″") ("XM" . "〓") ++ ("X," . "‥") ("X<" . "≦") ("X." . "…") ("X>" . "≧") ("X/" . "・") ++ ("X?" . "∞") ("z1" . "○") ("z!" . "●") ("z2" . "▽") ("z@" . "▼") ++ ("z3" . "△") ("z#" . "▲") ("z4" . "□") ("z$" . "■") ("z5" . "◇") ++ ("z%" . "◆") ("z6" . "☆") ("z^" . "★") ("z7" . "◎") ("z&" . "£") ++ ("z8" . "¢") ("z*" . "×") ("z9" . "♂") ("z(" . "【") ("z0" . "♀") ++ ("z)" . "】") ("zp" . "〜") ("z_" . "∴") ("z=" . "≠") ("z+" . "±") ++ ("z\\" . "＼") ("z|" . "‖") ("z\`" . "´") ("z~" . "¨") ("z:" . "゜") ++ ("z\'" . "‘") ("z\"" . "“") ("z," . "‥") ("z<" . "≦") ("z." . "…") ++ ("z>" . "≧") ("z/" . "・") ("z?" . "∞") ("z[" . "『") ("z]" . "』") ++ ("z{" . "〔") ("z}" . "〕") ("zx" . "^^;;;") ("zX" . "(^^)") ("zs" . "　") ++ ("@ " . "　") ("@/" . "／") ("@\\" . "＼") ("@@" . "＠") ("@," . "，") ++ ("@." . "．") ("@~" . "〜") ("@-" . "―") ("@||" . "‖") ("@|" . "｜") ++ ("@\"" . "〃") ("@*" . "×") ("@=" . "〓") ("@3" . "…") ("@2" . "‥") ++ ("@0" . "○") ("@[" . "［") ("@]" . "］") ("@{" . "｛") ("@}" . "｝") ++ ("@<" . "《") ("@>" . "》") ++ ++ ("Z0" . "０") ("Z1" . "１") ("Z2" . "２") ("Z3" . "３") ("Z4" . "４") ++ ("Z5" . "５") ("Z6" . "６") ("Z7" . "７") ("Z8" . "８") ("Z9" . "９") ++ ("ZA" . "Ａ") ("ZB" . "Ｂ") ("ZC" . "Ｃ") ("ZD" . "Ｄ") ("ZE" . "Ｅ") ("ZF" . "Ｆ") ++ ("ZG" . "Ｇ") ("ZH" . "Ｈ") ("ZI" . "Ｉ") ("ZJ" . "Ｊ") ("ZK" . "Ｋ") ("ZL" . "Ｌ") ++ ("ZM" . "Ｍ") ("ZN" . "Ｎ") ("ZO" . "Ｏ") ("ZP" . "Ｐ") ("ZQ" . "Ｑ") ("ZR" . "Ｒ") ++ ("ZS" . "Ｓ") ("ZT" . "Ｔ") ("ZU" . "Ｕ") ("ZV" . "Ｖ") ("ZW" . "Ｗ") ("ZX" . "Ｘ") ++ ("ZY" . "Ｙ") ("ZZ" . "Ｚ") ++ ("Za" . "ａ") ("Zb" . "ｂ") ("Zc" . "ｃ") ("Zd" . "ｄ") ("Ze" . "ｅ") ("Zf" . "ｆ") ++ ("Zg" . "ｇ") ("Zh" . "ｈ") ("Zi" . "ｉ") ("Zj" . "ｊ") ("Zk" . "ｋ") ("Zl" . "ｌ") ++ ("Zm" . "ｍ") ("Zn" . "ｎ") ("Zo" . "ｏ") ("Zp" . "ｐ") ("Zq" . "ｑ") ("Zr" . "ｒ") ++ ("Zs" . "ｓ") ("Zt" . "ｔ") ("Zu" . "ｕ") ("Zv" . "ｖ") ("Zw" . "ｗ") ("Zx" . "ｘ") ++ ("Zy" . "ｙ") ("Zz" . "ｚ") ++ ("Z!" . "！") ("Z@" . "＠") ("Z#" . "＃") ("Z$" . "＄") ("Z%" . "％") ++ ("Z^" . "＾") ("Z&" . "＆") ("Z*" . "＊") ("Z(" . "（") ("Z)" . "）") ("Z-" . "−") ++ ("Z=" . "＝") ("Z`" . "｀") ("Z\\" . "￥") ("Z|" . "｜") ("Z_" . "＿") ("Z+" . "＋") ++ ("Z~" . "￣") ("Z[" . "［") ("Z]" . "］") ("Z{" . "｛") ("Z}" . "｝") ("Z:" . "：") ++ ("Z;" . "；") ("Z\"" . "”") ("Z\\'" . "’") ("Z<" . "＜") ("Z>" . "＞") ("Z?" . "？") ++ ("Z/" . "／") ("Z," . "，") ("Z." . "．") ++ ++ ("!" . "!") ("\"" . "\"") ("#" . "#") ("$" . "$") ("%" . "%") ("&" . "&") ++ ("'" . "'") ("(" . "(") (")" . ")") ("|" . "|") ++ ("*" . "*") ("+" . "+") ("`" . "`") ("-" . "-") ("/" . "/") ++ (":" . ":") ("<" . "<") ("=" . "=") (">" . ">") ("@" . "@") ++ ("0" . "0") ("1" . "1") ("2" . "2") ("3" . "3") ("4" . "4") ++ ("5" . "5") ("6" . "6") ("7" . "7") ("8" . "8") ("9" . "9") ++ )) ++ ++;; ++;; toggleの変更 ++;; ++(defun anthy-send-change-toggle-command (str) ++ (anthy-send-recv-command ++ (concat " CHANGE_TOGGLE ~\n"))) ++ ++(defun anthy-kyuri () ++ (setq anthy-rkmap-keybind nil) ++ (anthy-send-recv-command " SET_PREEDIT_MODE 0\n") ++ (anthy-set-break-into-roman t) ++ (anthy-send-change-toggle-command "~") ++ (anthy-clear-map) ++ (mapcar (lambda (x) ++ (anthy-change-hiragana-map (car x) (cdr x))) ++ anthy-kyuri-mode-hiragana-map) ++ ) ++ ++(define-key anthy-mode-map (char-to-string 10) 'newline-and-indent) ++(define-key anthy-mode-map (char-to-string 17) 'quoted-insert) ++ ++(anthy-kyuri) ++ ++(defun anthy-on () ++ (interactive) ++ (anthy-mode-on)) ++ ++(defun anthy-off () ++ (interactive) ++ (anthy-mode-off)) ++ ++(defun anthy-force-off () ++ (interactive) ++ (anthy-handle-normal-key "(enter)") ++ (anthy-off)) ++ ++(global-set-key "\C-o" 'anthy-on) ++(global-set-key "\C-z" 'anthy-off) ++(global-set-key "\C-c\C-t" 'anthy-add-word-interactive) ++(define-key anthy-preedit-keymap "\C-z" 'anthy-force-off) ++(setq anthy-wide-space " ") ++(setq anthy-use-hankaku-kana nil) ++ ++ +diff --git a/src-util/anthy.el b/src-util/anthy-unicode.el +similarity index 82% +rename from src-util/anthy.el +rename to src-util/anthy-unicode.el +index 8980957..35e2b82 100644 +--- a/src-util/anthy.el ++++ b/src-util/anthy-unicode.el +@@ -11,49 +11,49 @@ + + ;;; Commentary: + ;; +-;; $B$+$J4A;zJQ49%(%s%8%s(B Anthy$B$r(B emacs$B$+$i;H$&$?$a$N%W%m%0%i%`(B +-;; Anthy$B%i%$%V%i%j$r;H$&$?$a$N%3%^%s%I(Banthy-agent$B$r5/F0$7$F!"(B +-;; anthy-agent$B$H%Q%$%W$GDL?.$r$9$k$3$H$K$h$C$FJQ49$NF0:n$r9T$&(B ++;; かな漢字変換エンジン Anthyを emacsから使うためのプログラム ++;; Anthyライブラリを使うためのコマンドanthy-agentを起動して、 ++;; anthy-agentとパイプで通信をすることによって変換の動作を行う + ;; + ;; +-;; Funded by IPA$BL$F'%=%U%H%&%'%"AOB$;v6H(B 2001 10/10 ++;; Funded by IPA未踏ソフトウェア創造事業 2001 10/10 + ;; +-;; $B3+H/$O(Bemacs21.2$B>e$G9T$C$F$$$F(Bminor-mode +-;; $B$b$7$/$O(Bleim$B$H$7$F$b;HMQ$G$-$k(B ++;; 開発はemacs21.2上で行っていてminor-mode ++;; もしくはleimとしても使用できる + ;; (set-input-method 'japanese-anthy) + ;; +-;; emacs19(mule),20,21,xemacs$B$GF0:n$9$k(B ++;; emacs19(mule),20,21,xemacsで動作する + ;; + ;; +-;; 2003-08-24 XEmacs $B$N8uJdA*Br%b!<%I%P%0$KBP1~(B(suzuki) ++;; 2003-08-24 XEmacs の候補選択モードバグに対応(suzuki) + ;; + ;; 2001-11-16 EUC-JP -> ISO-2022-JP + ;; + ;; TODO +-;; $B8uJdA*Br%b!<%I$G8uJd$r$$$C$-$K(B") ++ "anthy-agentのPATH名") + + ;; face + (defvar anthy-highlight-face nil) +@@ -82,7 +82,7 @@ + (require 'overlay)) + ;; + (defvar anthy-mode-map nil +- "Anthy$B$N(BASCII$B%b!<%I$N%-!<%^%C%W(B") ++ "AnthyのASCIIモードのキーマップ") + (or anthy-mode-map + (let ((map (make-keymap)) + (i 32)) +@@ -94,24 +94,24 @@ + (setq anthy-mode-map map))) + ;; + (defvar anthy-preedit-keymap nil +- "Anthy$B$N(Bpreedit$B$N%-!<%^%C%W(B") ++ "Anthyのpreeditのキーマップ") + (or anthy-preedit-keymap + (let ((map (make-keymap)) + (i 0)) +- ;; $BDL>o$NJ8;z$KBP$7$F(B ++ ;; 通常の文字に対して + (while (< i 128) + (define-key map (char-to-string i) 'anthy-insert) + (setq i (+ 1 i))) +- ;; $BJ8@a$N?-=L(B ++ ;; 文節の伸縮 + (define-key map [(shift left)] 'anthy-insert) + (define-key map [(shift right)] 'anthy-insert) +- ;; $BJ8@a$N0\F0(B ++ ;; 文節の移動 + (define-key map [left] 'anthy-insert) + (define-key map [right] 'anthy-insert) + (define-key map [backspace] 'anthy-insert) + (setq anthy-preedit-keymap map))) + +-;; anthy-agent$B$KAw$k:]$K%-!<$r%(%s%3!<%I$9$k$?$a$N%F!<%V%k(B ++;; anthy-agentに送る際にキーをエンコードするためのテーブル + (defvar anthy-keyencode-alist + '((1 . "(ctrl A)") ;; \C-a + (2 . "(left)") ;; \C-b +@@ -144,19 +144,19 @@ + ((right) . "(right)") + ((left) . "(left)") + ((up) . "(up)")) +- "$B%-!<$N%$%Y%s%H$r(Banthy-agent$B$KAw$k$?$a$NBP1~I=(B") ++ "キーのイベントをanthy-agentに送るための対応表") + +-;; $B%b!<%I%i%$%s$NJ8;zNs(B ++;; モードラインの文字列 + (defvar anthy-mode-line-string-alist +- '(("hiragana" . " $B$"(B") +- ("katakana" . " $B%"(B") ++ '(("hiragana" . " あ") ++ ("katakana" . " ア") + ("alphabet" . " A") +- ("walphabet" . " $B#A(B") +- ("hankaku_kana" . " (I1(B") ++ ("walphabet" . " Ａ") ++ ("hankaku_kana" . " (I1") + ) +- "$B%b!<%IL>$H%b!<%I%i%$%s$NJ8;zNs$NBP1~I=(B") ++ "モード名とモードラインの文字列の対応表") + +-;; $B:G8e$K3d$jEv$F$?(Bcontext id ++;; 最後に割り当てたcontext id + (defvar anthy-last-context-id 1) + + ;; From skk-macs.el From viper-util.el. Welcome! +@@ -171,36 +171,36 @@ + )) + + ;; buffer local variables +-(anthy-deflocalvar anthy-context-id nil "$B%3%s%F%-%9%H$N(Bid") +-; $B%b!<%I$N4IM}(B ++(anthy-deflocalvar anthy-context-id nil "コンテキストのid") ++; モードの管理 + (anthy-deflocalvar anthy-minor-mode nil) + (anthy-deflocalvar anthy-mode nil) + (anthy-deflocalvar anthy-leim-active-p nil) + (anthy-deflocalvar anthy-saved-mode nil) +-; $B%W%j%(%G%#%C%H(B ++; プリエディット + (anthy-deflocalvar anthy-preedit "") + (anthy-deflocalvar anthy-preedit-start 0) + (anthy-deflocalvar anthy-preedit-overlays '()) + (anthy-deflocalvar anthy-mode-line-string " A") +-; $B8uJdNs5s(B ++; 候補列挙 + (anthy-deflocalvar anthy-enum-candidate-p nil) + (anthy-deflocalvar anthy-enum-rcandidate-p nil) + (anthy-deflocalvar anthy-candidate-minibuffer "") + (anthy-deflocalvar anthy-enum-candidate-list '() +- "$B:#Ns5s$7$F$$$k8uJd$N>pJs(B(($B2hLLFb$N(Bindex $B8uJd$N(Bindex . $B8uJdJ8;zNs(B) ..)") ++ "今列挙している候補の情報((画面内のindex 候補のindex . 候補文字列) ..)") + (anthy-deflocalvar anthy-enable-enum-candidate-p + (cons anthy-default-enable-enum-candidate-p nil) +- "$B$3$N%P%C%U%!$G8uJd$NNs5s$r9T$&$+$I$&$+(B") ++ "このバッファで候補の列挙を行うかどうか") + (anthy-deflocalvar anthy-current-candidate-index 0) + (anthy-deflocalvar anthy-current-candidate-layout-begin-index 0) + (anthy-deflocalvar anthy-current-candidate-layout-end-index 0) +-; $BF~NO>uBV(B ++; 入力状態 + (anthy-deflocalvar anthy-current-rkmap "hiragana") + ; undo + (anthy-deflocalvar anthy-buffer-undo-list-saved nil) + + ;; +-(defvar anthy-wide-space "$B!!(B" "$B%9%Z!<%9$r2!$7$?;~$K=P$FMh$kJ8;z(B") ++(defvar anthy-wide-space "　" "スペースを押した時に出て来る文字") + + ;;; setup minor-mode + ;; minor-mode-alist +@@ -220,14 +220,14 @@ + + ;; + (defun anthy-process-sentinel (proc stat) +- "$B%W%m%;%9$N>uBV$,JQ2=$7$?$i;2>H$r>C$7$F!$C$9(B" ++ "プリエディットを全部消す" + (if (> (string-width anthy-preedit) 0) + (let* ((str anthy-preedit) + (len (length str)) +@@ -250,13 +250,13 @@ + (setq anthy-preedit-overlays nil)) + + (defun anthy-select-face-by-attr (attr) +- "$BJ8@a$NB0@-$K1~$8$?(Bface$B$rJV$9(B" ++ "文節の属性に応じたfaceを返す" + (if (memq 'RV attr) + 'anthy-highlight-face + 'anthy-underline-face)) + + (defun anthy-enable-preedit-keymap () +- "$B%-!<%^%C%W$r%W%j%(%G%#%C%H$NB8:_$9$k;~$N$b$N$K@ZBX$($k(B" ++ "キーマップをプリエディットの存在する時のものに切替える" + ; (setq anthy-saved-buffer-undo-list buffer-undo-list) + ; (buffer-disable-undo) + (setcdr +@@ -264,7 +264,7 @@ + anthy-preedit-keymap)) + + (defun anthy-disable-preedit-keymap () +- "$B%-!<%^%C%W$r%W%j%(%G%#%C%H$NB8:_$7$J$$;~$N$b$N$K@ZBX$($k(B" ++ "キーマップをプリエディットの存在しない時のものに切替える" + ; (buffer-enable-undo) + ; (setq buffer-undo-list anthy-saved-buffer-undo-list) + (setcdr +@@ -273,17 +273,17 @@ + (anthy-update-mode-line)) + + (defun anthy-insert-preedit-segment (str attr) +- "$B%W%j%(%G%#%C%H$r0lJ8@aJ8DI2C$9$k(B" ++ "プリエディットを一文節文追加する" + (let ((start (point)) + (end) (ol)) + (cond ((or (memq 'ENUM attr) (memq 'ENUMR attr)) + (setq str (concat "<" str ">"))) + ((memq 'RV attr) + (setq str (concat "[" str "]")))) +- ; $B%W%j%(%G%#%C%H$NJ8;zNs$rDI2C$9$k(B ++ ; プリエディットの文字列を追加する + (insert-and-inherit str) + (setq end (point)) +- ;; overlay$B$K$h$C$FB0@-$r@_Dj$9$k(B ++ ;; overlayによって属性を設定する + (setq ol (make-overlay start end)) + (overlay-put ol 'face (anthy-select-face-by-attr attr)) + (setq anthy-preedit-overlays +@@ -317,7 +317,7 @@ + + ;; + (defun anthy-check-context-id () +- "$B%P%C%U%!$K%3%s%F%-%9%H(Bid$B$,3d$j?6$i$l$F$$$k$+$r%A%'%C%/$9$k(B" ++ "バッファにコンテキストidが割り振られているかをチェックする" + (if (null anthy-context-id) + (progn + (setq anthy-context-id anthy-last-context-id) +@@ -325,12 +325,12 @@ + (+ anthy-last-context-id 1))))) + + (defun anthy-get-candidate (idx) +- "agent$B$+$i8uJd$r0l$Dl9g(B +- ;; index$B$r0lHV1&$N8uJd$K@_Dj$9$k(B ++ ;; 左から右の場合 ++ ;; indexを一番右の候補に設定する + (anthy-get-candidate (car (car lst))) + (setq lst (reverse lst)) + (setq anthy-current-candidate-index (car (car lst)))) + (progn +- ;; $B1&$+$i:8$N>l9g(B ++ ;; 右から左の場合 + (setq anthy-current-candidate-index (car (car (reverse lst)))))) +- ;;$B7k2L$r%;%C%H(B ++ ;;結果をセット + (setq anthy-enum-candidate-list + (if lst + (anthy-add-candidate-index lst) +@@ -424,15 +424,15 @@ + + ;; + (defun anthy-layout-candidate (idx nr) +- "$B8uJd%j%9%H$r(Bminibuffer$B$X%l%$%"%&%H$9$k(B" ++ "候補リストをminibufferへレイアウトする" + (setq anthy-candidate-minibuffer "") + (setq anthy-enum-candidate-list '()) +- ;; $B:8(B->$B1&(B or $B1&(B->$B:8$K%l%$%"%&%H$9$k(B ++ ;; 左->右 or 右->左にレイアウトする + (if anthy-enum-candidate-p + (anthy-calc-candidate-layout idx nr 't) + (anthy-calc-candidate-layout idx nr nil)) + (anthy-make-candidate-minibuffer-string) +- ;; $B7k2L$rI=<($9$k(B ++ ;; 結果を表示する + (if anthy-enum-candidate-list + (progn + (message "%s" anthy-candidate-minibuffer) +@@ -444,7 +444,7 @@ + nil)) + + (defun anthy-update-preedit (stat ps) +- "$B%W%j%(%G%#%C%H$r99?7$9$k(B" ++ "プリエディットを更新する" + (let ((cursor-pos nil) + (num-candidate 0) + (idx-candidate 0) +@@ -454,7 +454,7 @@ + ;; erase old preedit + (anthy-erase-preedit) + +- ;; $BF~NO%-%c%s%;%k;~$K(Bundo$B%j%9%H$r7R$2$k(B ++ ;; 入力キャンセル時にundoリストを繋げる + (if (and (= (length ps) 0) anthy-buffer-undo-list-saved ) + (progn + ; (message "enable") +@@ -474,7 +474,7 @@ + (concat anthy-preedit anthy-preedit-begin-mark)) + (anthy-insert-preedit-segment anthy-preedit-begin-mark '()) + +- ;; $BF~NO3+;O$HF1;~$K(Bundo$B%j%9%H$rL58z2=(B ++ ;; 入力開始と同時にundoリストを無効化 + (if (not anthy-buffer-undo-list-saved) + (progn + ;(message "disable") +@@ -487,7 +487,7 @@ + + )) + +- ;; $B3FJ8@a$KBP$7$F(B ++ ;; 各文節に対して + (while ps + (let ((cur (car ps))) + (setq ps (cdr ps)) +@@ -503,12 +503,12 @@ + (attr (car cur))) + (setq str (anthy-insert-preedit-segment str attr)) + (cond ((and (car anthy-enable-enum-candidate-p) (memq 'ENUM attr)) +- ;; $B=gJ}8~$N8uJdNs5s(B ++ ;; 順方向の候補列挙 + (setq anthy-enum-candidate-p t) + (setq idx-candidate idx) + (setq num-candidate nr)) + ((and (car anthy-enable-enum-candidate-p) (memq 'ENUMR attr)) +- ;; $B5UJ}8~$N8uJdNs5s(B ++ ;; 逆方向の候補列挙 + (setq anthy-enum-rcandidate-p t) + (setq idx-candidate idx) + (setq num-candidate nr))) +@@ -519,19 +519,19 @@ + (setq anthy-preedit + (concat anthy-preedit anthy-preedit-delim-mark)) + (anthy-insert-preedit-segment anthy-preedit-delim-mark '())))))))) +- ;; $B8uJd0lMw$NI=<(3+;O%A%'%C%/(B ++ ;; 候補一覧の表示開始チェック + (if (and (not enum-candidate) + (or anthy-enum-candidate-p anthy-enum-rcandidate-p)) + (setq anthy-current-candidate-layout-begin-index 0)) +- ;; $B8uJd$NNs5s$r9T$&(B ++ ;; 候補の列挙を行う + (if (or anthy-enum-candidate-p anthy-enum-rcandidate-p) + (anthy-layout-candidate idx-candidate num-candidate)) +- ;; preedit$B$N(Bkeymap$B$r99?7$9$k(B ++ ;; preeditのkeymapを更新する + (if (member stat '(2 3 4)) + (anthy-enable-preedit-keymap)) + (if cursor-pos (goto-char cursor-pos)))) + +-; suzuki : Emacs / XEmacs $B$G6&DL$N4X?tDj5A(B ++; suzuki : Emacs / XEmacs で共通の関数定義 + (defun anthy-encode-key (ch) + (let ((c (assoc ch anthy-keyencode-alist))) + (if c +@@ -558,7 +558,7 @@ + (commit "") + (commitlen nil) + (preedit nil)) +- ;; $B3FJ8@a$r=hM}$9$k(B ++ ;; 各文節を処理する + (while body + (let* ((cur (car body)) + (pe nil)) +@@ -577,22 +577,22 @@ + (setq pe (list cur))) + (if pe + (setq preedit (append preedit pe))))) +- ;; $B%3%_%C%H$5$l$?J8@a$r=hM}$9$k(B ++ ;; コミットされた文節を処理する + ; (anthy-restore-undo-list commit) + (if (> (string-width commit) 0) + (progn + (setq commitlen (length commit)) + (anthy-erase-preedit) + (anthy-disable-preedit-keymap) +- ; $B@h$K%3%_%C%H$5$;$F$*$/(B ++ ; 先にコミットさせておく + (insert-and-inherit commit) + (anthy-do-auto-fill) + +- ;; $B%3%_%C%H;~$K7R$2$k(B ++ ;; コミット時に繋げる + (if anthy-buffer-undo-list-saved + (progn + ;(message "enable") +- ; $BI|5"$5$;$kA0$K!$:#(Bcommit$B$7$?FbMF$r%j%9%H$KDI2C(B ++ ; 復帰させる前に，今commitした内容をリストに追加 + (setq anthy-buffer-undo-list + (cons (cons anthy-preedit-start + (+ anthy-preedit-start commitlen)) +@@ -668,23 +668,23 @@ + + ;; + (defun anthy-insert (&optional arg) +- "Anthy$B$N%-!<%O%s%I%i(B" ++ "Anthyのキーハンドラ" + (interactive "*p") +- ;; suzuki : last-command-char $B$r(B (anthy-last-command-char) $B$KJQ99(B ++ ;; suzuki : last-command-char を (anthy-last-command-char) に変更 + (let* ((ch (anthy-last-command-char)) + (chenc (anthy-encode-key ch))) + (anthy-handle-key ch chenc))) + + (defun anthy-handle-key (ch chenc) + (cond +- ;; $B8uJdA*Br%b!<%I$+$i8uJd$rA*$V(B ++ ;; 候補選択モードから候補を選ぶ + ((and (or anthy-enum-candidate-p anthy-enum-rcandidate-p) + (integerp ch) + (assq (car (rassoc (char-to-string ch) + anthy-select-candidate-keybind)) + anthy-enum-candidate-list)) + (anthy-insert-select-candidate ch)) +- ;; $B%-!<%^%C%W$rJQ99$9$k%3%^%s%I$r=hM}$9$k(B ++ ;; キーマップを変更するコマンドを処理する + ((and (anthy-find-rkmap-keybind ch) + (string-equal anthy-preedit "")) + (let ((mapname (cdr (anthy-find-rkmap-keybind ch)))) +@@ -696,11 +696,11 @@ + (cdr (assoc (cons anthy-current-rkmap ch) + anthy-rkmap-keybind))) + (anthy-update-mode-line)))))) +- ;; $B%"%k%U%!%Y%C%H%b!<%I$N>l9g$OD>@\F~NO(B ++ ;; アルファベットモードの場合は直接入力 + ((and (string-equal anthy-current-rkmap "alphabet") + (string-equal anthy-preedit "")) + (self-insert-command 1)) +- ;; $B%W%j%(%G%#%C%H$,$J$/$F%9%Z!<%9$,2!$5$l$?(B ++ ;; プリエディットがなくてスペースが押された + ((and + (string-equal anthy-preedit "") + (= ch 32) +@@ -711,7 +711,7 @@ + (anthy-do-auto-fill))) + ((or anthy-enum-candidate-p anthy-enum-rcandidate-p) + (anthy-handle-enum-candidate-mode chenc)) +- ;; $BIaDL$NF~NO(B ++ ;; 普通の入力 + (t + (anthy-handle-normal-key chenc)))) + +@@ -858,13 +858,13 @@ + (anthy-select-map "hankaku_kana")) + ;; + ;; +-;; leim $B$N(B inactivate ++;; leim の inactivate + ;; + (defun anthy-leim-inactivate () + (setq anthy-leim-active-p nil) + (anthy-update-mode)) + ;; +-;; leim $B$N(B activate ++;; leim の activate + ;; + (defun anthy-leim-activate (&optional name) + (setq deactivate-current-input-method-function 'anthy-leim-inactivate) +@@ -874,7 +874,7 @@ + (add-hook 'minibuffer-exit-hook 'anthy-leim-exit-from-minibuffer))) + + ;; +-;; emacs$B$N%P%0Hr$1$i$7$$$G$9(B ++;; emacsのバグ避けらしいです + ;; + (defun anthy-leim-exit-from-minibuffer () + (deactivate-input-method) +@@ -882,11 +882,11 @@ + (remove-hook 'minibuffer-exit-hook 'anthy-leim-exit-from-minibuffer))) + + ;; +-;; Emacs / XEmacs $B%3%s%Q%A%V%k$J(B last-command-char +-;; suzuki : $B?7@_(B ++;; Emacs / XEmacs コンパチブルな last-command-char ++;; suzuki : 新設 + ;; + (defun anthy-last-command-char () +- "$B:G8e$NF~NO%$%Y%s%H$rJV$9!#(BXEmacs $B$G$O(B int $B$KJQ49$9$k(B" ++ "最後の入力イベントを返す。XEmacs では int に変換する" + (if anthy-xemacs + (let ((event last-command-event)) + (cond +-- +2.28.0 + +From b831814194201341fa211c57891e01d42f91a6e2 Mon Sep 17 00:00:00 2001 +From: Shinji Tamura +Date: Fri, 22 Oct 2021 11:45:35 +0900 +Subject: [PATCH 2/4] src-util: Fix Makefile.am to work with renamed EL files + +BUG=rhbz#1998727 +--- + src-util/Makefile.am | 10 +++++++--- + 1 file changed, 7 insertions(+), 3 deletions(-) + +diff --git a/src-util/Makefile.am b/src-util/Makefile.am +index 474a4ca..c51c076 100644 +--- a/src-util/Makefile.am ++++ b/src-util/Makefile.am +@@ -4,8 +4,9 @@ SUBDIRS = + + # Files + # Dictionary utilities +-ELISP_FILES = anthy.el anthy-dic.el anthy-conf.el leim-list.el \ +- anthy-isearch.el anthy-azik.el anthy-kyuri.el \ ++ELISP_FILES = anthy-unicode.el anthy-unicode-azik.el anthy-unicode-conf.el \ ++ anthy-unicode-dic.el anthy-unicode-isearch.el anthy-unicode-kyuri.el \ ++ leim-list.el \ + $(NULL) + EXTRA_DIST = $(ELISP_FILES) \ + typetab dic-tool-input dic-tool-result dic-tool-usage.txt anthy.i \ +@@ -15,7 +16,10 @@ bin_PROGRAMS = \ + anthy-agent-unicode \ + anthy-morphological-analyzer-unicode \ + $(NULL) +-ELCFILES = anthy.elc anthy-dic.elc anthy-azik.elc anthy-conf.elc anthy-isearch.elc anthy-kyuri.elc leim-list.elc ++ELCFILES = anthy-unicode.elc anthy-unicode-azik.elc anthy-unicode-conf.elc \ ++ anthy-unicode-dic.elc anthy-unicode-isearch.elc anthy-unicode-kyuri.elc \ ++ leim-list.elc \ ++ $(NULL) + if ELISP + lisp_LISP = $(ELISP_FILES) + endif +-- +2.28.0 + +From 4493804924ba282445153e0d52d6aa40dbf85305 Mon Sep 17 00:00:00 2001 +From: Shinji Tamura +Date: Fri, 22 Oct 2021 11:45:37 +0900 +Subject: [PATCH 3/4] src-util: Call anthy-agent-unicode and + anthy-dic-tool-unicode in EL files + +BUG=rhbz#1998727 +--- + src-util/anthy-unicode-dic.el | 26 +++++++------- + src-util/anthy-unicode.el | 68 +++++++++++++++++------------------ + src-util/leim-list.el | 8 ++--- + 3 files changed, 51 insertions(+), 51 deletions(-) + +diff --git a/src-util/anthy-unicode-dic.el b/src-util/anthy-unicode-dic.el +index 5920451..4120f4f 100644 +--- a/src-util/anthy-unicode-dic.el ++++ b/src-util/anthy-unicode-dic.el +@@ -14,7 +14,7 @@ + ;; Funded by IPA未踏ソフトウェア創造事業 2001 11/10 + + ;;; Code +-(defvar anthy-dic-util-command "anthy-dic-tool") ++(defvar anthy-dic-util-command "anthy-dic-tool-unicode") + (defvar anthy-dic-buffer-name " *anthy-dic*") + + (defun anthy-add-word-compose-paramlist (param) +@@ -36,13 +36,13 @@ + anthy-dic-util-command "--append")) + (if proc + (progn +- (if anthy-xemacs +- (if (coding-system-p (find-coding-system 'euc-japan)) +- (set-process-coding-system proc 'euc-japan 'euc-japan)) +- (cond ((coding-system-p 'euc-japan) +- (set-process-coding-system proc 'euc-japan 'euc-japan)) +- ((coding-system-p '*euc-japan*) +- (set-process-coding-system proc '*euc-japan* '*euc-japan*)))) ++;; (if anthy-xemacs ++;; (if (coding-system-p (find-coding-system 'euc-japan)) ++;; (set-process-coding-system proc 'euc-japan 'euc-japan)) ++;; (cond ((coding-system-p 'euc-japan) ++;; (set-process-coding-system proc 'euc-japan 'euc-japan)) ++;; ((coding-system-p '*euc-japan*) ++;; (set-process-coding-system proc '*euc-japan* '*euc-japan*)))) + (process-send-string proc + (concat yomi " " (int-to-string freq) " " word "\n")) + (process-send-string proc +@@ -70,8 +70,8 @@ + (defun anthy-dic-get-special-noun-category (word) + (let + ((res '()) +- (cat (string-to-int +- (read-from-minibuffer "1:人名 2:地名: ")))) ++ (cat (floor (string-to-number ++ (read-from-minibuffer "1:人名 2:地名: "))))) + (cond ((= cat 1) + (setq res '(("品詞" "人名")))) + ((= cat 2) +@@ -113,9 +113,9 @@ + (and (string= word "") + (setq word (read-from-minibuffer "単語(語幹のみ): "))) + (setq yomi (read-from-minibuffer (concat "読み (" word "): "))) +- (setq cat (string-to-int +- (read-from-minibuffer +- "カテゴリー 1:一般名詞 2:その他の名詞 3:形容詞 4:副詞: "))) ++ (setq cat (floor (string-to-number ++ (read-from-minibuffer ++ "カテゴリー 1:一般名詞 2:その他の名詞 3:形容詞 4:副詞: ")))) + (cond ((= cat 1) + (setq param (anthy-dic-get-noun-category word))) + ((= cat 2) +diff --git a/src-util/anthy-unicode.el b/src-util/anthy-unicode.el +index 35e2b82..218d489 100644 +--- a/src-util/anthy-unicode.el ++++ b/src-util/anthy-unicode.el +@@ -11,28 +11,28 @@ + + ;;; Commentary: + ;; +-;; かな漢字変換エンジン Anthyを emacsから使うためのプログラム +-;; Anthyライブラリを使うためのコマンドanthy-agentを起動して、 +-;; anthy-agentとパイプで通信をすることによって変換の動作を行う ++;; かな漢字変換エンジン Anthy を emacs から使うためのプログラム ++;; Anthy ライブラリを使うためのコマンド anthy-agent-unicode を起動して、 ++;; anthy-agent-unicode とパイプで通信をすることによって変換の動作を行う + ;; + ;; + ;; Funded by IPA未踏ソフトウェア創造事業 2001 10/10 + ;; +-;; 開発はemacs21.2上で行っていてminor-mode +-;; もしくはleimとしても使用できる ++;; 開発は emacs21.2 上で行っていて minor-mode ++;; もしくは leim としても使用できる + ;; (set-input-method 'japanese-anthy) + ;; +-;; emacs19(mule),20,21,xemacsで動作する ++;; emacs19(mule),20,21,xemacs で動作する + ;; + ;; +-;; 2003-08-24 XEmacs の候補選択モードバグに対応(suzuki) ++;; 2003-08-24 XEmacs の候補選択モードバグに対応 (suzuki) + ;; + ;; 2001-11-16 EUC-JP -> ISO-2022-JP + ;; + ;; TODO +-;; 候補選択モードで候補をいっきに次のページにいかないようにする(2chスレ78) +-;; minibuffferの扱い +-;; isearch対応 ++;; 候補選択モードで候補をいっきに次のページにいかないようにする (2chスレ78) ++;; minibufffer の扱い ++;; isearch 対応 + ;; + ;; 用語 + ;; commit 文字列を確定すること +@@ -60,12 +60,12 @@ + (setq anthy-accept-timeout 1)) + + (defconst anthy-working-buffer " *anthy*") +-(defvar anthy-agent-process nil +- "anthy-agentのプロセス") ++(defvar anthy-agent-unicode-process nil ++ "anthy-agent-unicodeのプロセス") + (defvar anthy-use-hankaku-kana t) + ;; +-(defvar anthy-agent-command-list '("anthy-agent") +- "anthy-agentのPATH名") ++(defvar anthy-agent-unicode-command-list '("anthy-agent-unicode") ++ "anthy-agent-unicodeのPATH 名") + + ;; face + (defvar anthy-highlight-face nil) +@@ -111,7 +111,7 @@ + (define-key map [backspace] 'anthy-insert) + (setq anthy-preedit-keymap map))) + +-;; anthy-agentに送る際にキーをエンコードするためのテーブル ++;; anthy-agent-unicode に送る際にキーをエンコードするためのテーブル + (defvar anthy-keyencode-alist + '((1 . "(ctrl A)") ;; \C-a + (2 . "(left)") ;; \C-b +@@ -144,7 +144,7 @@ + ((right) . "(right)") + ((left) . "(left)") + ((up) . "(up)")) +- "キーのイベントをanthy-agentに送るための対応表") ++ "キーのイベントをanthy-agent-unicodeに送るための対応表") + + ;; モードラインの文字列 + (defvar anthy-mode-line-string-alist +@@ -223,7 +223,7 @@ + "プロセスの状態が変化したら参照を消して，次に再起動できるようにする" + (message "%s" stat) + (anthy-mode-off) +- (setq anthy-agent-process nil)) ++ (setq anthy-agent-unicode-process nil)) + + ;;; status + (defun anthy-update-mode-line () +@@ -719,16 +719,16 @@ + (defun anthy-do-invoke-agent (cmd) + (if (and (stringp anthy-personality) + (> (length anthy-personality) 0)) +- (start-process "anthy-agent" ++ (start-process "anthy-agent-unicode" + anthy-working-buffer + cmd + (concat " --personality=" anthy-personality)) +- (start-process "anthy-agent" ++ (start-process "anthy-agent-unicode" + anthy-working-buffer + cmd))) + ;; + (defun anthy-invoke-agent () +- (let ((list anthy-agent-command-list) ++ (let ((list anthy-agent-unicode-command-list) + (proc nil)) + (while (and list (not proc)) + (setq proc +@@ -742,31 +742,31 @@ + ;; + (defun anthy-check-agent () + ;; check and do invoke +- (if (not anthy-agent-process) ++ (if (not anthy-agent-unicode-process) + (let + ((proc (anthy-invoke-agent))) +- (if anthy-agent-process +- (kill-process anthy-agent-process)) +- (setq anthy-agent-process proc) +- (process-query-on-exist-flag proc) +- (if anthy-xemacs +- (if (coding-system-p (find-coding-system 'euc-japan)) +- (set-process-coding-system proc 'euc-japan 'euc-japan)) +- (cond ((coding-system-p 'euc-japan) +- (set-process-coding-system proc 'euc-japan 'euc-japan)) +- ((coding-system-p '*euc-japan*) +- (set-process-coding-system proc '*euc-japan* '*euc-japan*)))) ++ (if anthy-agent-unicode-process ++ (kill-process anthy-agent-unicode-process)) ++ (setq anthy-agent-unicode-process proc) ++ (set-process-query-on-exit-flag proc nil) ++;; (if anthy-xemacs ++;; (if (coding-system-p (find-coding-system 'euc-japan)) ++;; (set-process-coding-system proc 'euc-japan 'euc-japan)) ++;; (cond ((coding-system-p 'euc-japan) ++;; (set-process-coding-system proc 'euc-japan 'euc-japan)) ++;; ((coding-system-p '*euc-japan*) ++;; (set-process-coding-system proc '*euc-japan* '*euc-japan*)))) + (set-process-sentinel proc 'anthy-process-sentinel)))) + ;; + (defun anthy-do-send-recv-command (cmd) +- (if (not anthy-agent-process) ++ (if (not anthy-agent-unicode-process) + (anthy-check-agent)) + (let ((old-buffer (current-buffer))) + (unwind-protect + (progn + (set-buffer anthy-working-buffer) + (erase-buffer) +- (process-send-string anthy-agent-process cmd) ++ (process-send-string anthy-agent-unicode-process cmd) + (while (= (buffer-size) 0) + (accept-process-output nil 0 anthy-accept-timeout)) + (read (buffer-string))) +diff --git a/src-util/leim-list.el b/src-util/leim-list.el +index c9b055a..2a265be 100644 +--- a/src-util/leim-list.el ++++ b/src-util/leim-list.el +@@ -1,7 +1,7 @@ + ;; -*- no-byte-compile: t -*- +-(register-input-method "japanese-anthy" "Japanese" +- 'anthy-leim-activate "[anthy]" +- "Anthy Kana Kanji conversion system") ++(register-input-method "japanese-anthy-unicode" "Japanese" ++ 'anthy-unicode-leim-activate "[anthy-unicode]" ++ "Anthy Unicode Kana Kanji conversion system") + +-(autoload 'anthy-leim-activate "anthy") ++(autoload 'anthy-unicode-leim-activate "anthy-unicode") + ;; +-- +2.28.0 + +From 96bac7f6576fad2e3c5937d7e93765736b66de70 Mon Sep 17 00:00:00 2001 +From: Shinji Tamura +Date: Fri, 22 Oct 2021 11:45:39 +0900 +Subject: [PATCH 4/4] src-util: Run anthy-agent-unicode with UTF-8 encoding + +BUG=rhbz#1998727 +--- + src-util/agent.c | 6 +++--- + src-util/egg.c | 6 ++++-- + src-util/input.c | 45 ++++++++++++++++++++++++++++++++++++++----- + src-util/morph-main.c | 16 +++++++++++---- + 4 files changed, 59 insertions(+), 14 deletions(-) + +diff --git a/src-util/agent.c b/src-util/agent.c +index 407e046..ed766ce 100644 +--- a/src-util/agent.c ++++ b/src-util/agent.c +@@ -149,7 +149,7 @@ static int daemon_sock = -1; + static int anonymous; + static int egg; + static char *personality; +-int use_utf8; ++int use_eucjp; + + static char * + encode_command_arg(char *a) +@@ -1116,8 +1116,8 @@ parse_args(int argc, char **argv) + egg = 1; + } else if (!strncmp("--personality=", str, 14)) { + personality = &str[14]; +- } else if (!strcmp("--utf8", str)) { +- use_utf8 = 1; ++ } else if (!strcmp("--eucjp", str)) { ++ use_eucjp = 1; + } else if (i < argc - 1) { + char *arg = argv[i+1]; + if (!strcmp("--dir", str)) { +diff --git a/src-util/egg.c b/src-util/egg.c +index b1ca871..60f4d10 100644 +--- a/src-util/egg.c ++++ b/src-util/egg.c +@@ -39,7 +39,7 @@ struct context { + #define MAX_CONTEXT 16 + static struct context contexts[MAX_CONTEXT]; + +-extern int use_utf8; ++extern int use_eucjp; + + #define INITIAL_BUFLEN 512 + #define INITIAL_SELLEN 128 +@@ -73,7 +73,9 @@ new_context (void) + c->selection = NULL; + return -1; + } +- if (use_utf8) { ++ if (use_eucjp) { ++ anthy_context_set_encoding(c->ac, ANTHY_EUC_JP_ENCODING); ++ } else { + anthy_context_set_encoding(c->ac, ANTHY_UTF8_ENCODING); + } + +diff --git a/src-util/input.c b/src-util/input.c +index 030e3d8..c6bfaa0 100644 +--- a/src-util/input.c ++++ b/src-util/input.c +@@ -75,6 +75,19 @@ int anthy_input_errno; + + #define is_eucchar(s) (((s)[0] & 0x80) && ((s)[1] & 0x80)) + ++static int utf8_char_len(char *str) { ++ int len = 0; ++ if ((*str & 0x80) == 0x00) { ++ len = 1; ++ } else if ((*str & 0xe0) == 0xc0) { ++ len = 2; ++ } else if ((*str & 0xf0) == 0xe0) { ++ len = 3; ++ } else if ((*str & 0xf8) == 0xf0) { ++ len = 4; ++ } ++ return len; ++} + + struct anthy_input_config { + struct rk_option* rk_option; +@@ -233,7 +246,7 @@ enter_conv_state(struct anthy_input_context* ictx) + + ictx->enum_cand_count = 0; + ictx->actx = anthy_create_context(); +- anthy_context_set_encoding(ictx->actx, ANTHY_EUC_JP_ENCODING); ++ anthy_context_set_encoding(ictx->actx, ANTHY_UTF8_ENCODING); + if (!ictx->actx) { + enter_none_state(ictx); + anthy_input_errno = AIE_NOMEM; +@@ -434,8 +447,13 @@ cmd_move_cursor(struct anthy_input_context* ictx, int d) + return; + for (p = ictx->hbuf_follow; + p < ictx->hbuf_follow + ictx->n_hbuf_follow && d > 0; p++, d--) { +- if (p < ictx->hbuf_follow + ictx->n_hbuf_follow - 1 && is_eucchar(p)) ++ if (p < ictx->hbuf_follow + ictx->n_hbuf_follow - 3 && utf8_char_len(p) == 4) { ++ p += 3; ++ } else if (p < ictx->hbuf_follow + ictx->n_hbuf_follow - 2 && utf8_char_len(p) == 3) { ++ p += 2; ++ } else if (p < ictx->hbuf_follow + ictx->n_hbuf_follow - 1 && utf8_char_len(p) == 2) { + p++; ++ } + } + len = p - ictx->hbuf_follow; + ensure_buffer(&ictx->hbuf, &ictx->s_hbuf, ictx->n_hbuf + len); +@@ -450,8 +468,13 @@ cmd_move_cursor(struct anthy_input_context* ictx, int d) + return; + for (p = ictx->hbuf + ictx->n_hbuf; + p > ictx->hbuf && d < 0; p--, d++) { +- if (p - 1 > ictx->hbuf && is_eucchar(p - 2)) ++ if (p - 3 > ictx->hbuf && utf8_char_len(p - 4) == 4) { ++ p -= 3; ++ } else if (p - 2 > ictx->hbuf && utf8_char_len(p - 3) == 3) { ++ p -= 2; ++ } else if (p - 1 > ictx->hbuf && utf8_char_len(p - 2) == 2) { + p--; ++ } + } + len = (ictx->hbuf + ictx->n_hbuf) - p; + ensure_buffer(&ictx->hbuf_follow, &ictx->s_hbuf_follow, +@@ -490,7 +513,11 @@ cmd_backspace(struct anthy_input_context* ictx) + do_cmd_push_key(ictx,buf); + free(buf); + } else { +- if (ictx->n_hbuf >= 2 && is_eucchar(ictx->hbuf + ictx->n_hbuf - 2)) { ++ if (ictx->n_hbuf >= 4 && utf8_char_len(ictx->hbuf + ictx->n_hbuf - 4) == 4) { ++ ictx->n_hbuf -= 4; ++ } else if (ictx->n_hbuf >= 3 && utf8_char_len(ictx->hbuf + ictx->n_hbuf - 3) == 3) { ++ ictx->n_hbuf -= 3; ++ } else if (ictx->n_hbuf >= 2 && utf8_char_len(ictx->hbuf + ictx->n_hbuf - 2) == 2) { + ictx->n_hbuf -= 2; + } else if (ictx->n_hbuf >= 1) { + ictx->n_hbuf--; +@@ -514,7 +541,15 @@ cmd_delete(struct anthy_input_context* ictx) + if (ictx->n_hbuf_follow <= 0) + return; + +- len = ictx->n_hbuf_follow >= 2 && is_eucchar(ictx->hbuf_follow) ? 2 : 1; ++ if (ictx->n_hbuf_follow >= 4 && utf8_char_len(ictx->hbuf_follow) == 4) { ++ len = 4; ++ } else if (ictx->n_hbuf_follow >= 3 && utf8_char_len(ictx->hbuf_follow) == 3) { ++ len = 3; ++ } else if (ictx->n_hbuf_follow >= 2 && utf8_char_len(ictx->hbuf_follow) == 2) { ++ len = 2; ++ } else { ++ len = 1; ++ } + + if (ictx->n_hbuf_follow <= len) + ictx->n_hbuf_follow = 0; +diff --git a/src-util/morph-main.c b/src-util/morph-main.c +index c34aa64..de3313a 100644 +--- a/src-util/morph-main.c ++++ b/src-util/morph-main.c +@@ -23,6 +23,7 @@ + #include + #include + #include ++#include + /* for print_context_info() */ + #include + +@@ -34,7 +35,7 @@ static void read_file(struct test_context *tc, const char *fn); + extern void anthy_reload_record(void); + + int verbose; +-int use_utf8; ++int use_eucjp; + + /**/ + static void +@@ -42,7 +43,9 @@ init_test_context(struct test_context *tc) + { + tc->ac = anthy_create_context(); + anthy_set_reconversion_mode(tc->ac, ANTHY_RECONVERT_ALWAYS); +- if (use_utf8) { ++ if (use_eucjp) { ++ anthy_context_set_encoding(tc->ac, ANTHY_EUC_JP_ENCODING); ++ } else { + anthy_context_set_encoding(tc->ac, ANTHY_UTF8_ENCODING); + } + anthy_reload_record(); +@@ -121,8 +124,8 @@ parse_args(int argc, char **argv) + int i; + for (i = 1; i < argc; i++) { + char *arg = argv[i]; +- if (!strcmp(arg, "--utf8")) { +- use_utf8 = 1; ++ if (!strcmp(arg, "--eucjp")) { ++ use_eucjp = 1; + } else if (arg[i] == '-') { + print_usage(); + } +@@ -140,6 +143,11 @@ main(int argc, char **argv) + + /*read_file(&tc, "index.txt");*/ + parse_args(argc, argv); ++ if (use_eucjp) { ++ anthy_xstr_set_print_encoding(ANTHY_EUC_JP_ENCODING); ++ } else { ++ anthy_xstr_set_print_encoding(ANTHY_UTF8_ENCODING); ++ } + + nr = 0; + for (i = 1; i < argc; i++) { +-- +2.28.0 + +From e54c7582bc7284575c12827a9685c5ab08cb2674 Mon Sep 17 00:00:00 2001 +From: fujiwarat +Date: Tue, 26 Oct 2021 16:30:00 +0900 +Subject: [PATCH] src-util: Fix require in *.el + +BUG=rhbz#1998727 +--- + src-util/anthy-unicode-azik.el | 4 ++-- + src-util/anthy-unicode-conf.el | 4 ++-- + src-util/anthy-unicode-dic.el | 6 +++--- + src-util/anthy-unicode-isearch.el | 4 ++-- + src-util/anthy-unicode-kyuri.el | 4 ++-- + src-util/anthy-unicode.el | 11 +++++++---- + 6 files changed, 18 insertions(+), 15 deletions(-) + +diff --git a/src-util/anthy-unicode-azik.el b/src-util/anthy-unicode-azik.el +index 935d4d8..019c082 100644 +--- a/src-util/anthy-unicode-azik.el ++++ b/src-util/anthy-unicode-azik.el +@@ -1,10 +1,10 @@ +-;; anthy-azik.el ++;; anthy-unicode-azik.el + + ;; Copyright (C) 2004 + ;; Author: Yutaka Hara + + ;; add following 2 lines to ~/.emacs +-;; (load-library "anthy-azik") ++;; (load-library "anthy-unicode-azik") + ;; (anthy-azik-mode) + ;; + +diff --git a/src-util/anthy-unicode-conf.el b/src-util/anthy-unicode-conf.el +index 7b7d7c2..3ebb940 100644 +--- a/src-util/anthy-unicode-conf.el ++++ b/src-util/anthy-unicode-conf.el +@@ -1,4 +1,4 @@ +-;; anthy-conf.el -- Anthy ++;; anthy-unicode-conf.el -- Anthy + + + ;; Copyright (C) 2002 +@@ -119,4 +119,4 @@ + " BREAK_INTO_ROMAN 1\n" + " BREAK_INTO_ROMAN 0\n"))) + +-(provide 'anthy-conf) ++(provide 'anthy-unicode-conf) +diff --git a/src-util/anthy-unicode-dic.el b/src-util/anthy-unicode-dic.el +index 4120f4f..7999371 100644 +--- a/src-util/anthy-unicode-dic.el ++++ b/src-util/anthy-unicode-dic.el +@@ -1,4 +1,4 @@ +-;; anthy-dic.el -- Anthy ++;; anthy-unicode-dic.el -- Anthy + + ;; Copyright (C) 2001 - 2005 + ;; Author: Yusuke Tabata +@@ -125,8 +125,8 @@ + ((= cat 4) + (setq param (anthy-dic-get-av-category word)))) + (if param +- (setq res (anthy-add-word yomi 1 word param))) ++ (setq res (anthy-add-word yomi 500 word param))) + (if res + (message (concat word "(" yomi ")を登録しました"))))) + +-(provide 'anthy-dic) ++(provide 'anthy-unicode-dic) +diff --git a/src-util/anthy-unicode-isearch.el b/src-util/anthy-unicode-isearch.el +index 85077cc..f7179cf 100644 +--- a/src-util/anthy-unicode-isearch.el ++++ b/src-util/anthy-unicode-isearch.el +@@ -1,4 +1,4 @@ +-;; anthy-isearch.el -- Anthy ++;; anthy-unicode-isearch.el -- Anthy + + ;; Copyright (C) 2003 + ;; Author: Yusuke Tabata +@@ -11,7 +11,7 @@ + ;; most of the code is stolen from SKK. + ;; for Emacs-21 + +-(require 'anthy) ++(require 'anthy-unicode) + + (defvar anthy-isearch-mode-map nil) + +diff --git a/src-util/anthy-unicode-kyuri.el b/src-util/anthy-unicode-kyuri.el +index 6fb2575..4ccdd1a 100644 +--- a/src-util/anthy-unicode-kyuri.el ++++ b/src-util/anthy-unicode-kyuri.el +@@ -1,9 +1,9 @@ +-;; anthy-kyuri.el ++;; anthy-unicode-kyuri.el + + ;; Copyright (C) 2005 + ;; Author: Yukihiro Matsumoto + +-(require 'anthy) ++(require 'anthy-unicode) + + (setq anthy-kyuri-mode-hiragana-map + '( +diff --git a/src-util/anthy-unicode.el b/src-util/anthy-unicode.el +index 218d489..a913f87 100644 +--- a/src-util/anthy-unicode.el ++++ b/src-util/anthy-unicode.el +@@ -1,6 +1,8 @@ +-;;; anthy.el -- Anthy ++;;; anthy-unicode.el -- Anthy + + ;; Copyright (C) 2001 - 2007 KMC(Kyoto University Micro Computer Club) ++;; Copyright (C) 2021 Takao Fujiwara ++;; Copyright (c) 2021 Red Hat, Inc. + + ;; Author: Yusuke Tabata + ;; Tomoharu Ugawa +@@ -28,6 +30,7 @@ + ;; 2003-08-24 XEmacs の候補選択モードバグに対応 (suzuki) + ;; + ;; 2001-11-16 EUC-JP -> ISO-2022-JP ++;; 2021-10-26 ISO-2022-JP -> UTF-8 + ;; + ;; TODO + ;; 候補選択モードで候補をいっきに次のページにいかないようにする (2chスレ78) +@@ -901,10 +904,10 @@ + ;; + ;; + ;(global-set-key [(meta escape)] 'anthy-mode) +-(provide 'anthy) ++(provide 'anthy-unicode) + +-(require 'anthy-dic) +-(require 'anthy-conf) ++(require 'anthy-unicode-dic) ++(require 'anthy-unicode-conf) + + ;; is it ok for i18n? + (set-language-info "Japanese" 'input-method "japanese-anthy") +-- +2.28.0 + diff --git a/anthy-unicode.spec b/anthy-unicode.spec index dc6ee86..dfaf9af 100644 --- a/anthy-unicode.spec +++ b/anthy-unicode.spec @@ -4,7 +4,7 @@ Name: anthy-unicode Version: 1.0.0.20201109 -Release: 8%{?dist} +Release: 9%{?dist} # The entire source code is LGPLv2+ and dictionaries is GPLv2. the corpus data is under Public Domain. License: LGPLv2+ and GPLv2 and Public Domain URL: https://github.com/fujiwarat/anthy-unicode/wiki @@ -161,8 +161,11 @@ cd .. %changelog +* Tue Oct 26 2021 Takao Fujiwara 1.0.0.20201109-9 +- Resolves: #1998727 Fix emacs-anthy-unicode + * Thu Oct 21 2021 Takao Fujiwara 1.0.0.20201109-8 -- Update gcanna.ctd with Shubitai +- Resolves: #2007482 Update gcanna.ctd with Shubitai * Wed Jul 21 2021 Fedora Release Engineering - 1.0.0.20201109-7 - Rebuilt for https://fedoraproject.org/wiki/Fedora_35_Mass_Rebuild