diff options
author | taca <taca> | 2002-09-04 14:42:41 +0000 |
---|---|---|
committer | taca <taca> | 2002-09-04 14:42:41 +0000 |
commit | c1e1344cf693a2f7f40a257987f12caad992a0fc (patch) | |
tree | 8caf200982807eb70ffd0b0987106ff54ee8173d /editors/tamago | |
parent | 054cd3a9db8b1f55b5921c73c715ec35e3df24a6 (diff) | |
download | pkgsrc-c1e1344cf693a2f7f40a257987f12caad992a0fc.tar.gz |
Update tamago package to 4.0.6nb1.
- Catch up to recent tamago's CVS repositry.
- Sort PLIST.
Changes are too large to include here, see ChangeLog in detail.
Anyway mainly more better support for emacs 21.X and canna now.
Diffstat (limited to 'editors/tamago')
-rw-r--r-- | editors/tamago/Makefile | 3 | ||||
-rw-r--r-- | editors/tamago/PLIST | 90 | ||||
-rw-r--r-- | editors/tamago/distinfo | 4 | ||||
-rw-r--r-- | editors/tamago/patches/patch-aa | 7519 |
4 files changed, 7350 insertions, 266 deletions
diff --git a/editors/tamago/Makefile b/editors/tamago/Makefile index bf253ec3203..3b1c4e1dee8 100644 --- a/editors/tamago/Makefile +++ b/editors/tamago/Makefile @@ -1,6 +1,7 @@ -# $NetBSD: Makefile,v 1.4 2002/06/09 05:06:27 taca Exp $ +# $NetBSD: Makefile,v 1.5 2002/09/04 14:42:41 taca Exp $ DISTNAME= tamago-4.0.6 +PKGREVISION= 1 CATEGORIES= editors MASTER_SITES= ftp://www.m17n.org/pub/tamago/ diff --git a/editors/tamago/PLIST b/editors/tamago/PLIST index 28d11cfb45c..542502dafcf 100644 --- a/editors/tamago/PLIST +++ b/editors/tamago/PLIST @@ -1,42 +1,4 @@ -@comment $NetBSD: PLIST,v 1.1 2001/10/31 21:23:27 zuntum Exp $ -share/emacs/site-lisp/egg/egg/cannarpc.el -share/emacs/site-lisp/egg/egg/canna.el -share/emacs/site-lisp/egg/egg/sj3rpc.el -share/emacs/site-lisp/egg/egg/sj3.el -share/emacs/site-lisp/egg/egg/wnnrpc.el -share/emacs/site-lisp/egg/egg/wnn.el -share/emacs/site-lisp/egg/egg/cannarpc.elc -share/emacs/site-lisp/egg/egg/canna.elc -share/emacs/site-lisp/egg/egg/sj3rpc.elc -share/emacs/site-lisp/egg/egg/sj3.elc -share/emacs/site-lisp/egg/egg/wnnrpc.elc -share/emacs/site-lisp/egg/egg/wnn.elc -share/emacs/site-lisp/egg/its/ascii.el -share/emacs/site-lisp/egg/its/bixing.el -share/emacs/site-lisp/egg/its/erpin.el -share/emacs/site-lisp/egg/its/hankata.el -share/emacs/site-lisp/egg/its/hira.el -share/emacs/site-lisp/egg/its/jeonkak.el -share/emacs/site-lisp/egg/its/pinyin.el -share/emacs/site-lisp/egg/its/hangul.el -share/emacs/site-lisp/egg/its/kata.el -share/emacs/site-lisp/egg/its/thai.el -share/emacs/site-lisp/egg/its/quanjiao.el -share/emacs/site-lisp/egg/its/zenkaku.el -share/emacs/site-lisp/egg/its/zhuyin.el -share/emacs/site-lisp/egg/its/ascii.elc -share/emacs/site-lisp/egg/its/bixing.elc -share/emacs/site-lisp/egg/its/erpin.elc -share/emacs/site-lisp/egg/its/hankata.elc -share/emacs/site-lisp/egg/its/hira.elc -share/emacs/site-lisp/egg/its/jeonkak.elc -share/emacs/site-lisp/egg/its/pinyin.elc -share/emacs/site-lisp/egg/its/hangul.elc -share/emacs/site-lisp/egg/its/kata.elc -share/emacs/site-lisp/egg/its/thai.elc -share/emacs/site-lisp/egg/its/quanjiao.elc -share/emacs/site-lisp/egg/its/zenkaku.elc -share/emacs/site-lisp/egg/its/zhuyin.elc +@comment $NetBSD: PLIST,v 1.2 2002/09/04 14:42:41 taca Exp $ share/emacs/site-lisp/egg/egg-cnv.el share/emacs/site-lisp/egg/egg-cnv.elc share/emacs/site-lisp/egg/egg-com.el @@ -47,15 +9,61 @@ share/emacs/site-lisp/egg/egg-mlh.el share/emacs/site-lisp/egg/egg-mlh.elc share/emacs/site-lisp/egg/egg-sim.el share/emacs/site-lisp/egg/egg-sim.elc -share/emacs/site-lisp/egg/egg-util.el -share/emacs/site-lisp/egg/egg-util.elc +share/emacs/site-lisp/egg/egg-x0213.el +share/emacs/site-lisp/egg/egg-x0213.elc share/emacs/site-lisp/egg/egg.el share/emacs/site-lisp/egg/egg.elc +share/emacs/site-lisp/egg/egg/anthy.el +share/emacs/site-lisp/egg/egg/anthy.elc +share/emacs/site-lisp/egg/egg/anthyipc.el +share/emacs/site-lisp/egg/egg/anthyipc.elc +share/emacs/site-lisp/egg/egg/canna.el +share/emacs/site-lisp/egg/egg/canna.elc +share/emacs/site-lisp/egg/egg/cannarpc.el +share/emacs/site-lisp/egg/egg/cannarpc.elc +share/emacs/site-lisp/egg/egg/sj3.el +share/emacs/site-lisp/egg/egg/sj3.elc +share/emacs/site-lisp/egg/egg/sj3rpc.el +share/emacs/site-lisp/egg/egg/sj3rpc.elc +share/emacs/site-lisp/egg/egg/wnn.el +share/emacs/site-lisp/egg/egg/wnn.elc +share/emacs/site-lisp/egg/egg/wnnrpc.el +share/emacs/site-lisp/egg/egg/wnnrpc.elc share/emacs/site-lisp/egg/eggrc share/emacs/site-lisp/egg/its-keydef.el share/emacs/site-lisp/egg/its-keydef.elc share/emacs/site-lisp/egg/its.el share/emacs/site-lisp/egg/its.elc +share/emacs/site-lisp/egg/its/ascii.el +share/emacs/site-lisp/egg/its/ascii.elc +share/emacs/site-lisp/egg/its/aynu.el +share/emacs/site-lisp/egg/its/aynu.elc +share/emacs/site-lisp/egg/its/bixing.el +share/emacs/site-lisp/egg/its/bixing.elc +share/emacs/site-lisp/egg/its/erpin.el +share/emacs/site-lisp/egg/its/erpin.elc +share/emacs/site-lisp/egg/its/greek.el +share/emacs/site-lisp/egg/its/greek.elc +share/emacs/site-lisp/egg/its/hangul.el +share/emacs/site-lisp/egg/its/hangul.elc +share/emacs/site-lisp/egg/its/hankata.el +share/emacs/site-lisp/egg/its/hankata.elc +share/emacs/site-lisp/egg/its/hira.el +share/emacs/site-lisp/egg/its/hira.elc +share/emacs/site-lisp/egg/its/jeonkak.el +share/emacs/site-lisp/egg/its/jeonkak.elc +share/emacs/site-lisp/egg/its/kata.el +share/emacs/site-lisp/egg/its/kata.elc +share/emacs/site-lisp/egg/its/pinyin.el +share/emacs/site-lisp/egg/its/pinyin.elc +share/emacs/site-lisp/egg/its/quanjiao.el +share/emacs/site-lisp/egg/its/quanjiao.elc +share/emacs/site-lisp/egg/its/thai.el +share/emacs/site-lisp/egg/its/thai.elc +share/emacs/site-lisp/egg/its/zenkaku.el +share/emacs/site-lisp/egg/its/zenkaku.elc +share/emacs/site-lisp/egg/its/zhuyin.el +share/emacs/site-lisp/egg/its/zhuyin.elc share/emacs/site-lisp/egg/leim-list.el share/emacs/site-lisp/egg/menudiag.el share/emacs/site-lisp/egg/menudiag.elc diff --git a/editors/tamago/distinfo b/editors/tamago/distinfo index 17048f3bc65..e554fa38690 100644 --- a/editors/tamago/distinfo +++ b/editors/tamago/distinfo @@ -1,5 +1,5 @@ -$NetBSD: distinfo,v 1.2 2001/04/19 11:01:05 agc Exp $ +$NetBSD: distinfo,v 1.3 2002/09/04 14:42:41 taca Exp $ SHA1 (tamago-4.0.6.tar.gz) = f1ae53cbcdeb5f2aad9d90d75742efe2fcd83d39 Size (tamago-4.0.6.tar.gz) = 260021 bytes -SHA1 (patch-aa) = 91cd60ac8097ab554b8ef2106562241d5eb1e9a1 +SHA1 (patch-aa) = 07aa6095dca4edacc615206ffd76482485d61616 diff --git a/editors/tamago/patches/patch-aa b/editors/tamago/patches/patch-aa index 55c4f44c802..e5f4bcde0e5 100644 --- a/editors/tamago/patches/patch-aa +++ b/editors/tamago/patches/patch-aa @@ -1,8 +1,4944 @@ -$NetBSD: patch-aa,v 1.3 2001/03/16 05:50:36 jun Exp $ -diff -rdu ../tamago-4.0.6.org/ChangeLog ./ChangeLog ---- ../tamago-4.0.6.org/ChangeLog Mon Jan 17 09:48:50 2000 -+++ ./ChangeLog Fri Mar 16 14:13:49 2001 -@@ -1,3 +1,129 @@ +$NetBSD: patch-aa,v 1.4 2002/09/04 14:42:42 taca Exp $ + +diff -duNrp ../tamago-4.0.6/AUTHORS ./AUTHORS +--- ../tamago-4.0.6/AUTHORS Tue Jan 4 15:25:54 2000 ++++ ./AUTHORS Wed Sep 4 22:59:10 2002 +@@ -4,16 +4,17 @@ KAWABATA, Taichi <kawabata@exa.onlab.nt + MORIOKA Tomohiko <tomo@etl.go.jp> + Use of custom. + +-NIIBE Yutaka <gniibe@chroot.org> ++NIIBE Yutaka <gniibe@m17n.org> + Design a part of ITS programming. + Wrote ITS: + its.el + its/hira.el +- Wrote tamago.el, menudiag.el, tamago-cnv.el, tamago-comm.el, +- and tamago-mlh.el. ++ Wrote egg.el, menudiag.el, egg-cnv.el, egg-com.el, ++ and egg-mlh.el. + Wrote backend conversion engine interface: +- SJ3: tamago-lib/sj3.el, tamago-lib/sj3rpc.el, +- WNN: tamago-lib/wnn.el, and tamago-lib/wnnrpc.el. ++ ANTHY: egg/anthy.el, egg/anthyipc.el, ++ SJ3: egg/sj3.el, egg/sj3rpc.el, ++ WNN: egg/wnn.el, and egg/wnnrpc.el. + + KATAYAMA Yoshio <kate@pfu.co.jp> + Design ITS programming. +diff -duNrp ../tamago-4.0.6/ChangeLog ./ChangeLog +--- ../tamago-4.0.6/ChangeLog Mon Jan 17 09:48:50 2000 ++++ ./ChangeLog Wed Sep 4 22:59:10 2002 +@@ -1,156 +1,46 @@ +-2000-01-17 TOMURA Satoru <tomura@etl.go.jp> +- +- * Version 4.0.6 released +- +-2000-01-17 TOMURA Satoru <tomura@etl.go.jp> +- +- * README.ja.text: mentiond about doc/lc99.text +- +-2000-01-17 KATAYAMA Yoshio <kate@pfu.co.jp> +- +- * its.el (its-hiragana, its-katanaka): modified +- (its-zenkaku, its-hankaku): added +- (its-put-cursor): bug fixed. +- (its-set-cursor-status): redefined. +- (its-search-beginning, its-search-end): created. +- (its-end-of-input-buffer): modified. +- (its-kill-line): modified. +- (its-cancel-input): modified. +- (its-japanese-hankaku): added. +- (its-convert): added. +- * egg.el (egg-redraw-face): bug fixed. +- +-2000-01-17 SAKAI Kiyotaka <ksakai@kso.netwk.ntt-at.co.jp> +- +- * its.el (its-hiragana, its-katakana): re-added. +- +-2000-01-17 SANETO Takanori <sanewo@ba2.so-net.ne.jp> +- +- * Makefile.in: move its-keydefs.el from ITSELS to TOPELS +- +-2000-01-16 +- +- * egg-sim.el: many functions renamed and modified... +- * doc/code-table: created +- +-2000-01-15 TOMURA Satoru <tomura@etl.go.jp> +- +- * egg-sim.el: rename egg-code.el as egg-sim.el +- * egg-sim.el (egg-simple-input-method): rename +- egg-insert-character as egg-simple-input-method +- * egg.el: rename egg-insert-character as egg-simple-input-method +- * doc/lc99.txt: added. +- +-2000-01-14 TOMURA Satoru <tomura@etl.go.jp> +- * egg-code.el: created +- * egg.el: Bind egg-insert-character to C-^ in egg-mode +- * egg.el: Delete the binding for C-_ in egg-mode +- * Makefile.in: add egg-code to ${SRCS} +- +-2000-01-13 TOMURA Satoru <tomura@etl.go.jp> +- +- * Version 4.0.5 released. +- +-2000-01-13 Katsumi Yamaoka <yamaoka@jpl.org> +- +- * egg/sj3.el (sj3-end-conversion): Restrain from overrunning. +- +-2000-01-13 Katsumi Yamaoka <yamaoka@jpl.org> +- * egg/sj3rpc.el (sj3rpc-open): Use `sj3-server-version' instead of +- 2. +- (sj3rpc-unpack-mb-string): New macro. +- (sj3rpc-tanbunsetsu-conversion, sj3rpc-get-bunsetsu-candidates-sub, +- sj3rpc-begin): Use it instead of `comm-unpack'. +- +- (sj3rpc-server-coding-system): New macro. +- (sj3rpc-kugiri-stdy, sj3rpc-tanbunsetsu-conversion, +- sj3rpc-get-bunsetsu-candidates, sj3rpc-get-bunsetsu-candidates-sub, +- sj3rpc-begin, sj3rpc-unpack-mb-string): Use it. +- +- (sj3-const): Switch on the value of `sj3-server-version'. +- (sj3rpc-kugiri-stdy, sj3rpc-tanbunsetsu-conversion, +- sj3rpc-get-bunsetsu-candidates, sj3rpc-get-bunsetsu-candidates-sub, +- sj3rpc-begin): Modify for it. +- +- * egg/sj3.el (sj3-server-coding-system-list): New user option. +- (sj3-server-version): Ditto. +- +-2000-01-13 SAKAI Kiyotaka <ksakai@kso.netwk.ntt-at.co.jp> +- +- * its.el: typo +- * egg.el: typo +- +-2000-01-13 KATAYAMA Yoshio <kate@pfu.co.jp> ++2002-08-26 ISHIKAWA Mutsumi <ishikawa@linux.or.jp>, ++ Takahiro Kambe <taca@sky.yamashina.kyoto.jp>, ++ Katsumi Yamaoka <yamaoka@jpl.org> + +- * its.el(its-hiragana, its-katakana): does not work. so deleted. +- +-2000-01-12 NAKAJI Hiroyuki <nakaji@tutrp.tut.ac.jp> ++ * Makefile.in (TOPSRCS): Remove egg-util.el. Added egg-x0213.el. ++ (ITSSRCS): Added its/greek.el ++ its/greek.elc: Depends on its-keydef.elc. + +- * README.ja.txt: typo +- * Makefile.in: (clean, distclean): modified. ++2002-08-23 NIIBE Yutaka <gniibe@m17n.org> + +-2000-01-12 TOMURA Satoru <tomura@etl.go.jp> +- +- * Version 4.0.4 released. +- +-2000-01-12 TOMURA Satoru <tomura@etl.go.jp> ++ * AUTHORS (NIIBE Yutaka): Updated. ++ * egg-mlh.el: Update e-mail address. + +- * REAMDE: removed. +- +- * README.ja.txt: created. +- +-2000-01-12 SAKAI Kiyotaka <ksakai@kso.netwk.ntt-at.co.jp> ++ * leim-list.el: Removed eval-when contstuct. Reoved "loading ++ another" feature. ++ (egg-activate-anthy): Added. + +- * Makefile.in: "clean" removes ${ELCS}. +- +- * Makefile.in: "distclean" created. +- +-2000-01-12 Satoru Tomura <tomura@etl.go.jp> ++2002-08-23 Katsumi Yamaoka <yamaoka@jpl.org>, NIIBE Yutaka <gniibe@m17n.org> + +- * Version 4.0.3 released. +- +-2000-01-12 Satoru Tomura <tomura@etl.go.jp> ++ * egg-util.el: Removed. + +- * install-sh: copied from automake distribution ++2002-08-08 NIIBE Yutaka <gniibe@m17n.org> + +- * configure.in: created ++ * Makefile.in (EGGSRCS): Added anthy.el and anthyipc.el ++ (srcdir, top_srcdir, VPATH): Added. ++ (DEPS): Use top_srcdir. + +- * Makefile.in: created ++ Added ANTHY support. ++ * egg/anthy.el egg/anthyipc.el: New files. ++ * leim-list.el: Added anthy. + +- * configure: generated by autoconf +- +-2000-01-11 Satoru Tomura <tomura@etl.go.jp> ++2002-08-02 SAITO Takuya <reed@lily.freemail.ne.jp> + +- * leim-list.el: (defgroup sj3) added. ++ * its.el (its-previous-line): point-mim -> point-min (typo) + +- * egg/sj3.el (sj3-hosname, sj3-server-port): defcusotm'ed ++2002-07-20 SAITO Takuya <reed@lily.freemail.ne.jp> + +-2000-01-11 Katsumi Yamaoka <yamaoka@jpl.org> ++ * egg.el (egg-activate-keymap-after-command): set-buffer to ++ killed buffer. + +- * egg/sj3.el : (require 'egg) added. ++2002-05-08 Katsumi Yamaoka <yamaoka@jpl.org> (cf. [mule-ja:08306]) + +-2000-01-11 SAKAI Kiyotaka <ksakai@kso.netwk.ntt-at.co.jp> +- +- * its.el (its-hiragana, its-katakana): New functions +- +-2000-01-07 Tomura Satoru <tomura@etl.go.jp> +- +- * COPYING: The file is added. +- +- * ChangeLog.1: The original ChangeLog is renamed as. +- +- * ChangeLog: Created. +- +-2000-01-07 Tomura Satoru <tomura@etl.go.jp> +- +- * Version 4.0.2 released. +- +-2000-01-06 Tomura Satoru <tomura@etl.go.jp> +- +- * Version 4.0.1 released. +- +-2000-01-05 Tomura Satoru <tomura@etl.go.jp> +- +- * Version 4.0.0 released. +- ++ * its.el (its-next-line, its-previous-line): New commands; ++ substitute key definitions for `next-line' and `previous-line' ++ with them in `its-mode-map'. + +diff -duNrp ../tamago-4.0.6/ChangeLog.0 ./ChangeLog.0 +--- ../tamago-4.0.6/ChangeLog.0 Tue Jan 4 15:27:16 2000 ++++ ./ChangeLog.0 Thu Jan 1 09:00:00 1970 +@@ -1,2311 +0,0 @@ +-1998-07-12 NIIBE Yutaka <gniibe@chroot.org> +- +- * egg-mlh.el (mlh-space-bar-backward-henkan): Don't test against +- egg-conversion-backend-alist. +- +- * egg/wnn.el (wnn-fini-lang): Reneme from wnn-fini. +- (wnn-fini): New implementation calling wnn-fini-lang. +- +- (wnn-close): Call wnn-fini-lang. +- (wnn-dictionary-save): Ditto. +- +- * egg/canna.el (canna-fini): Delete LANG argument. +- * egg/sj3.el (sj3-fini): Ditto. +- +- * egg-cnv.el (egg-set-conversion-backend): Removed. +- +- * egg/sj3.el (sj3-start-conversion): Signal error on non-supported +- language. +- * egg/canna.el (canna-start-conversion): Likewise. +- * egg/wnn.el (wnn-start-conversion): Likewise. +- +- * egg-cnv.el (egg-convert-region): Add handler for +- lang-not-supported. +- +- * egg/wnn.el (egg-activate-wnn): load wnnrpc here conditionally. +- * egg/sj3.el: Likewise. +- * egg/canna.el: Likewise. +- +- * egg.el (egg-support-languages, egg-set-support-languages): Removed. +- (egg-mode): Don't call egg-set-conversion-backend. +- * egg/{canna.el, wnn.el, sj3.el}: Don't call egg-support-languages. +- +- * egg-cnv.el (egg-set-current-backend): Removed. +- (egg-initialize-backend, egg-start-conversion, +- egg-start-reverse-conversion): Don't call egg-set-current-backend. +- (egg-conversion-backend-null): Rename from *-other-languages. +- (egg-conversion-backend-alist): Removed. +- (egg-conversion-backend): Not buffer local. +- (egg-finalize-backend-alist): Removed. +- +-1998-07-10 NIIBE Yutaka <gniibe@chroot.org> +- +- * egg-cnv.el (egg-start-conversion-failure-hook): New Variable. +- (egg-start-conversion-failure-fallback): New Function. +- (egg-convert-region): Handle error and hook on failure. +- +- * egg/sj3.el (sj3-open): Remove bogus setq-s of sj3-sys-dict-list, +- sj3-user-dict-list. +- +- * egg-mlh.el (mlh-space-bar-backward-henkan): Don't emit message +- "converting...", as it may flush out error message. +- +- * egg/sj3rpc.el ("egg-com", "egg/sj3"): Require on compilation. +- (sj3rpc-open): Failure when version is different. +- +-1998-07-03 KATAYAMA Yoshio <kate@pfu.co.jp> +- +- * its/erpin.el, its/hangul.el, its/hankata.el, its/hira.el, +- its/jeonkak.el, its/kata.el, its/pinyin.el, its/quanjiao.el, +- its/thai.el, its/zenkaku.el: Updated using new its-*. +- +- * its.el (define-its-state-machine): Rewritten. +- (define-its-compiled-map): Deleted. +- (define-its-state-machine-append): Rewritten. +- (its-defrule): Rewritten. +- (its-defrule*): Rewritten. +- (its-parent-states): New Variable. +- (its-goto-state): Remove 2nd optional argument INITIAL-STATE. +- (its-set-interim-terminal-state): New Function. +- (its-make-next-state): Remove 2nd argument KEYSEQ. +- +-1998-07-01 NIIBE Yutaka <gniibe@chroot.org> +- +- * egg-mlh.el (mlh-hira-to-kata): Removed. Doesn't work any more. +- (mlh-katakana): Use japanese-katakana-region. +- +- * egg-cnv.el (egg-conversion-map): Add again mapping for "/". +- +-1998-06-27 KATAYAMA Yoshio <kate@pfu.co.jp> +- +- * egg-cnv.el (egg-abort-conversion): Bug fix. +- +-1998-06-27 NIIBE Yutaka <gniibe@akebono> +- +- * egg/wnn.el (wnn-dictionary-specification-list): Don' specify +- for gerodic/g-jinmei. +- Suggested by SAKAI Kiyotaka <ksakai@netwk.ntt-at.co.jp>. +- +-1998-06-26 KATAYAMA Yoshio <kate@pfu.co.jp> +- +- * its.el (its-cancel-input): Bug fix. +- +-1998-06-26 SAKAI Kiyotaka <ksakai@netwk.ntt-at.co.jp> +- +- * egg-cnv.el (egg-conversion-mode, egg-help-command): New +- functions for help string. +- * its.el (its-mode, its-mode-help-command): Likewise. +- +-1998-06-26 KATAYAMA Yoshio <kate@pfu.co.jp> +- +- * egg-cnv.el (egg-convert-region): Bug fix. +- * egg.el (egg-default-language): Don't use string. +- +- * its/hankata.el (its-han-kata-enable-double-n, and others): +- Variable name change (-han-) to distingush kata.el. +- +- * its/erpin.el (its-erpin-tw-enable-quanjioao-alphabet, +- its-erpin-cn-enable-quanjioao-alphabet): +- See its-enable-fullwidth-alphabet. +- * its/kata.el (its-kata-enable-zenkaku-alphabet): Likewise. +- * its/pinyin.el (its-pinyin-cn-enable-quanjioao-alphabet): Likewise. +- * its/zenkaku.el (its-zenkaku-down-map): Likewise. +- +- * its/erpin.el (its-erpin-tw-map): Bug fix for "\\", "{", "}", and +- "/". +- * its/pinyin.el (its-pinyin-cn-map): Ditto. +- * its/quanjiao.el (its-quanjiao-down-tw-map): Ditto. +- * its/zhuyin.el (its-zhuyin-cn-enable-quanjioao-alphabet): Ditto. +- +- * its/hira.el (its-hira-enable-zenkaku-alphabet): Follow changes +- of its.el. +- * its/ascii.el (its-up-map, its-down-map): Ditto. +- * its/jeonkak.el (its-jeonkak-up-map): Ditto. +- +- * its/hira.el (its-hira-enable-zenkaku-alphabet): +- See its-enable-fullwidth-alphabet. +- +- * egg/wnn.el (wnn-save-dictionaries): Rewritten. +- +- * egg/canna.el (egg-edep): Required. +- (canna-support-languages): Use symbol. +- * egg/sj3.el (egg-edep): Likewise. +- +- * egg/wnn.el (egg-edep): Likewise. +- * egg/wnnrpc.el: Use symbol. +- +- * menudiag.el (menudiag-mode-map): Bug fix for boundary conditions. +- (menudiag-make-selection-list): Bug fix in case of many items. +- +- (menudiag-forward-item, menudiag-backward-item, +- menudiag-goto-line): Change so that it wraps. +- +- * its.el (egg-edep): Required. +- (its-keydef): Require unconditioanlly. +- (its-mode-map): Don't call its-define-select-keys here. +- (its-mode-map): Use of symbol as keymap. +- (its-fence-invisible): New variable. +- (its-put-cursor): Don't call its-define-select-keys. +- (its-setup-fence-mode): invisible handling and its-define-select-keys. +- (its-keyseq-acceptable-p): if (CDR SYL) is number, return NIL. +- (define-its-state-machine): Introduce its-temporaly-map. +- (define-its-state-machine-append): Likewise. +- +- (its-goto-state): Use symbol as keymap, not directly. +- +- (its-set-part-1,its-set-part-2): New function. +- (its-delete-backward-within-SYL): Conditionalize. +- +- * egg.el (egg-edep): Required. +- (egg-mode): Add remove-hook call. +- Supply NIL as first argument to egg-set-conversion-backend. +- make-local-hook for input-method-activate-hook. +- (egg-set-face): Add optional argument OBJECT. +- (egg-redraw-face): Bind inhibit-point-motion-hooks. +- +- * egg.el (set-buffer-multibyte): Move to egg-edep.el. +- +- * egg-mlh.el (mlh-space-bar-backward-henkan): Use assq. +- +- * egg-com.el (egg-zhuyin-syllable): compatibility change. +- (encode-fixed-euc-china-region): Removed maxlen. +- +- Really Needed? -- gN. +- * egg-com.el (egg-pinyin-syllable): Check exact match. +- (egg-zhuyin-syllable): Likewise. +- +- * egg-cnv.el (egg-edep): Required. +- (its-keydef): Not required. +- (egg-conversion-map): Don't call its-define-select-keys here. +- Fset it to use symbol instead of the map directly. +- +- (egg-get-bunsetsu-info): Add new optional argument for getting +- property. +- (egg-start-conversion-other-languages): set egg-conversion-backend. +- (egg-set-current-backend): Use assq instead of assoc. +- (egg-get-conversion-face): Likewise. +- (egg-conversion-invisible): New variable. +- (egg-convert-region): Change for open/close delimiter. +- (egg-chinese-sisheng-regexp): New function. +- (egg-separate-languages): Use egg-chinese-sisheng-regexp, +- use symbol for language specifier (instead of string). +- +- (egg-charset-to-language): Use symbol for language specifier +- (instead of string). +- (egg-next-chinese-lang): Likewise. +- +- (egg-next-part-lang): Change the arguments. +- +- (egg-make-bunsetsu): New function changing egg-insert-bunsetsu. +- +- (egg-separate-characters): compatibility changes. +- +- (egg-conversion-wrap-select): New Variable. +- +- (egg-next-candidate): Can wrap around. +- +- (egg-decide-before-point): Rewritten. +- (egg-abort-conversion): Back to previous one. +- (egg-select-candidate): Use egg-make-bunsetsu. +- +- * egg-edep.el: New File for handling differences between Emacs version. +- * its/thai.el: New File. +- * its/hangul.el: Updated. +- +-1998-06-26 NIIBE Yutaka <gniibe@chroot.org> +- +- * Makefile (install): Don't touch .emacs and leim-list.el +- directly. User should do it by her hand. +- Reported by SAKAI Kiyotaka <ksakai@netwk.ntt-at.co.jp> +- +-1998-06-25 NIIBE Yutaka <gniibe@chroot.org> +- +- * egg/canna.el (canna-dictionary-specification): "user" instead of +- ("user"). Should chnage canna-filename later. +- Reported by Akio Morita <amorita@bird.scphys.kyoto-u.ac.jp>. +- +-1998-04-02 NIIBE Yutaka <gniibe@chroot.org> +- +- * egg-com.el (comm-unpack-u16-string): Call string-as-multibyte. +- (comm-unpack-mb-string): Likewise. +- +- * egg.el (set-buffer-multibyte): Function for Emacs 20.2. +- +- * egg/wnn.el (wnn-open): Call set-buffer-multibyte. +- * egg/sj3.el (sj3-open): Ditto. +- * egg/canna.el (canna-open): Ditto. +- +-1998-04-02 KATAYAMA Yoshio <kate@pfu.co.jp> +- +- Implement hilight. +- * egg.el (egg-mark-list, egg-suppress-marking): New Variables. +- (egg-set-face, egg-mark-modification, egg-redraw-face): New +- Functions. +- * its.el (its-buffer-ins/del-SYL): Call egg-set-face. +- (its-setup-yanked-portion): Likewise. +- * egg-cnv.el (egg-insert-bunsetsu): Call egg-set-face. +- +- * egg.el (egg-mode): set default backend. +- * egg-mlh.el (mlh-space-bar-backward-henkan): activate input +- method. +- +-1998-04-02 NIIBE Yutaka <gniibe@chroot.org> +- +- * egg-cnv.el (egg-decide-bunsetsu): Undo changes of 03-16. +- (egg-abort-conversion): Call egg-end-conversion. +- (egg-decide-before-point): Call egg-end-conversion widh ABORT=NIL. +- +-1998-03-16 NIIBE Yutaka <gniibe@chroot.org> +- +- CANNA Support. +- * egg/canna.el, egg/cannarpc.el: New file. +- * Makefile (SRCS): Added. +- +- * egg-cnv.el (egg-end-conversion): Add argument ABORT. +- +- * egg/wnn.el (wnn-end-conversion): Follow the change of +- EGG-END-CONVERSION. +- * egg/sj3.el (sj3-end-conversion): Likewise. +- +-1998-03-15 NIIBE Yutaka <gniibe@chroot.org> +- +- * Makefile: Add dependencies for its-keydef.elc. +- * egg/sj3rpc.el (sj3-open): Don't support list of hosts. +- * its.el (its-exit-mode, its-kick-convert-region): Bug fix. Call +- its-input-end and its-put-cursor. +- (its-exit-mode-off-input-method): Removed. +- +-1998-03-14 KATAYAMA Yoshio <kate@pfu.co.jp> +- +- * docomp.el (its-keydef): Undo the changes of 03-09. its.el +- is fixed. +- +- * egg-cnv.el (egg-current-language): New valiable. +- (egg-bunsetsu-info): Separate bunsetsu-info and lunguage. +- (egg-conversion-backend-other-languages +- egg-init-other-languages +- egg-start-conversion-other-languages +- egg-get-bunsetsu-converted-other-languages +- egg-get-bunsetsu-source-other-languages +- egg-list-candidates-other-languages +- egg-get-number-of-candidates-other-languages +- egg-get-current-candidate-number-other-languages +- egg-get-all-candidates-other-languages +- egg-decide-candidate-other-languages +- egg-change-bunsetsu-length-other-languages +- egg-end-conversion-other-languages +- egg-fini-other-languages): New valiable and functions for +- handling unknown language. +- (egg-set-current-backend): Set egg-conversion-backend-other-languages +- when backend for specified language isn't found. +- (egg-start-reverse-conversion): New function for reverse conversion. +- (egg-set-conversion-backend-internal): Removed. +- (egg-set-conversion-backend): Args are changed. +- (egg-get-conversion-face): New function for different face for +- every language. +- (egg-convert-region): Make converting text read-only. Handle +- unknown laguages and backend opening error. Rename its-lang to +- egg-lang. +- (egg-separate-languages): Argument use-context is added to +- utilize context when called by its-yank. Rename its-lang to +- egg-lang Improve speed. +- (egg-charset-to-language): Renamed from egg-char-to-language. +- (egg-next-part-lang egg-next-chinese-lang): Rename its-lang to +- egg-lang. +- (egg-conversion-map): Unbind C-\ and /. Bind C-X RET XXX to +- its-select-XXX. +- (egg-insert-bunsetsu): Make conversion text read-only. Separate +- bunsetsu-info and conversion-backend. +- (egg-insert-bunsetsu-list): Remove redundant variables. +- (egg-beginning-of-conversion-buffer): New function. +- (egg-end-of-conversion-buffer): New function. +- (egg-enlarge-bunsetsu): Handle read-only text. +- (egg-next-candidate): Handle read-only text. Bug on no candidate +- bunsetsu is fiexed. +- (egg-reconvert-bunsetsu-internal egg-reverse-convert-bunsetu +- egg-reconvert-bunsetsu): New functions for reverse conversion and +- re-conversion. +- (egg-decide-before-point egg-abort-conversion): Handle read-only +- text. Bug on pinyin and zhuyin mixed conversion is fixed. Allow +- long fence. +- (egg-select-candidate): Handle read-only text. Bug on no candidate +- bunsetsu is fiexed. +- +- * egg-com.el: Change coding-system from internal to iso-2022-7bit. +- +- * egg-mlh.el (mlh-space-bar-backward-henkan): Disable temporally +- mode selection. +- +- * egg.el (egg-mode): Set cureent lang to conversion backend. +- (egg-set-mode-line-title): Renamed to its-set-mode-line-title +- and moved to its.el. +- (egg-check-language): Removed. +- +- * egg/sj3.el (sj3-server-port): Change from defconst to defver for +- user customization. +- (sj3-open sj3-get-environment): Try opening alternate servers. +- (sj3-start-conversion): Make second argument LANGUAGE optional. +- (egg-activate-sj3): Parameters of egg-set-conversion-backend is +- changed. +- +- * egg/sj3rpc.el (sj3rpc-error-message): New constant (Not yet +- completed). +- (sj3rpc-get-error-message): Check range of errno to avoid +- args-out-ou-range error. +- +- * egg/wnn.el (wnn-jport wnn-cport wnn-tport wnn-kport): New +- variables for user customization. +- (wnn-server-info-list wnn-server-port): Type of fourth element +- is changed from integer to symbol. +- (wnn-start-reverse-conversion): New function. +- (wnn-open wnn-get-environment): Try opening alternate servers. +- (egg-activate-wnn): Parameters of egg-set-conversion-backend is +- changed. +- +- * its-keydef.el (its-current-language): Moved to its.el. +- (its-make-select-func): Remove language check (egg-check-language). +- Add temporally mode selection. +- (its-do-list-make-select-func): Binding of zhuyin-tw is changed to +- `C' because conflicting zenkaku-upcase. +- +- * its.el (its-current-select-func its-previous-select-func): New +- variables for temporally mode selection. +- (its-keydef requiring): Use eval-when to avoid error on using +- compiled file. +- (its-get-fence-face): New function for different face for +- every language. +- (its-put-cursor its-setup-fence-mode): Make fence read-only. +- (its-start): Remove force-mode-line-update calling. +- (its-restart): Add optional argument set-prop. +- (its-self-insert-char its-backward-SYL its-forward-SYL +- its-delete-SYL its-delete-backward-SYL its-exit-mode +- its-delete-backward-SYL-by-keystroke its-transpose-chars +- its-kick-convert-region its-end-of-input-buffer): Handle read-only +- fence. +- (its-state-machine): Accept special actions to handle temporally +- mode selection. +- (its-buffer-ins/del-SYL its-ins/del-SYL-batch): Handle read-only +- fence. Property its-lang is renamed to egg-lang. +- (its-get-next-state its-make-next-state): Add type check to avoid +- wrong-type-argument error. +- (its-keyseq-acceptable-p): Save informations of its-map to avoid +- confusing on temporally mode selection. +- (its-defrule-select-mode-temporally): New macro. +- (its-kill-line its-cancel-input): New function. +- (its-delete-backward-within-SYL): Bind its-current-language to +- avoid confusing when undo is done beyond language change. +- (its-yank its-yank-pop its-setup-yanked-portion): New functions. +- (its-exit-mode-internal): Reset temporally selected mode. Allow +- long fence. +- (its-kick-convert-region-or-self-insert): New function. +- (its-translate-region): Remove text properties completly. +- (its-set-mode-line-title): Moved from egg.el and renamed. +- (its-select-mode-temporally its-select-previous-mode): New functions +- for temporally mode selection. +- +- * leim-list-egg.el: Secondary argument for egg-activate-sj3/wnn +- is no longer needed. +- +- * its/hira.el: Remove the rule for "~" which destroies the rules +- with its-hankaku-escape. +- +- * its/pinyin.el: Implement its-pinyin-cn-enable-quanjioao-alphabet +- and its-pinyin-tw-enable-quanjioao-alphabet. +- +- * its/hangul.el: Implement its-hangul-enable-quanjioao-alphabet. +- +- * its/ascii.el: New file. +- * its/erpin.el: New file. +- * its/hankata.el: New file. +- * its/jeonkak.el: New file. +- * its/kata.el: New file. +- * its/quanjiao.el: New file. +- * its/zenkaku.el: New file. +- * its/zhuyin.el: New file. +- +-1998-03-14 NIIBE Yutaka <gniibe@chroot.org> +- +- * egg/sj3rpc.el (sj3rpc-close): New function. +- +- * egg/sj3.el (sj3bunsetsu-[sg]et-kugiri-changed): Rename from +- sj3bunsetsu-get-stdy-down. +- (sj3-end-conversion): Implement CLSTDY. +- (sj3-fini): Implemented. +- +-1998-03-10 NIIBE Yutaka <gniibe@chroot.org> +- +- * egg/sj3.el (sj3-end-conversion): Implement bunsetsu study. +- CLSTDY not yet. +- +- * egg/sj3rpc.el (sj3rpc-get-bunsetsu-candidates-sub): Bug fix. +- Always add hiragana and katakana candidates. +- (sj3-const: CLSTDY, CLSTDY_EUC): Renamed from END and END_EUC +- according to "sj3cmd.h" of SJ3 distribution. +- (sj3rpc-bunsetsu-stdy, sj3rpc-kugiri-stdy): New functions. +- +- * egg-com.el (comm-format-u8-vector): New substitution. +- (comm-format): New format 'v'. +- +-1998-03-09 NIIBE Yutaka <gniibe@chroot.org> +- +- * docomp.el (its-keydef): Require its-keydef when compile. +- Not so good. Just a work around. +- (its-mode-map): Undo the changes of 03-04. +- +-1998-03-09 KATAYAMA Yoshio <kate@pfu.co.jp> +- +- * its.el (its-translate-region): Make it command. +- (its-translate-region-internal): Make it function. +- +-1998-03-04 NIIBE Yutaka <gniibe@chroot.org> +- +- * its.el (its-define-select-keys of its-mode-map): Comment it out. +- * its-keydef.el (its-make-select-func): Add eval-when to compile this. +- +- * egg-cnv.el (egg-decide-bunsetsu): Deleted. +- * its.el (its-restart): Call its-setup-fence-mode with no argument. +- +- * its.el (its-keyseq-acceptable-p): Bug fix. +- +-1998-03-03 KATAYAMA Yoshio <kate@pfu.co.jp> +- +- *its.el (its-get-keyseq-syl): Compensate when DSYL has back. +- (its-DSYL-with-back-p): New function. Return t when DSYL has back. +- (its-concrete-DSYL-p): New function. Return t when DSYL is cons +- form which means input is not continued after DSYL was created. +- (its-make-concrete-DSYL): New function. +- (its-self-insert-char): Make DSYL to ``concrete-DSYL'' if cursor +- is t which means input is not continued. +- (its-input): Test input key is whether acceptable or not when +- its-barf-on-invalid-keyseq is non-nil. +- (its-input-to-vsyl): Set cursor status, not just returning it. +- (its-state-machine its-state-machine-keyseq): Make sure to issue +- ``DSYL-with-back'' when syllable is decided by the rule with back. +- ``test mode'' is added. +- (its-keyseq-acceptable-p): New function. +- (its-forward-SYL): The args order of put-text-property was wrong. +- (its-delete-backward-SYL-by-keystroke): New function. +- (its-delete-backward-within-SYL): ``delete-by-keystroke'' mode +- did not work when syllable is decided by the rule with back. +- Deletion limit is extended to outside of SYL (meaning of +- ``within-SYL'' is changed to ``deletion starts within SYL). +- (its-transpose-chars): Fixed up. +- (its-in-fence-p): Confuse at openning fence. +- +-1998-02-25 KATAYAMA Yoshio <kate@pfu.co.jp> +- +- * its.el (its-put-cursor): Enable its-map change in fence mode. +- +- * its-keydef.el (its-make-select-func): Same as above. +- +-1998-02-25 KATAYAMA Yoshio <kate@pfu.co.jp> +- +- * its.el (its-set-cursor-status): New function. +- (its-setup-fence-mode): New function. +- (its-insert-fence-open its-insert-fence-close): Deleted. +- (its-start, its-restart, its-self-insert-char): Avoid fence +- destruction on its-barf. +- (its-input-to-vsyl, its-state-machine, its-state-machine-keyseq, +- its-buffer-ins/del-SYL, its-ins/del-SYL-batch): Update cursor +- status on updating syllables. +- (its-input-error): New function to realize doc-string of +- its-barf-on-invalid-keyseq. +- +- * egg.el (egg-mode): Don't use egg-mode-line-title which cause +- wrong-type-argument at isearch. Bind its-select-XXX to key only +- when modefull is select. +- +- * egg-mlh.el (mlh-hangul, mlh-zhongwen, mlh-zhongwen-tw): Same +- as above. +- +- * its-keydef.el (its-make-select-func): Same as above. +- +- * leim-list-egg.el: Same as above. +- +-1998-02-24 KATAYAMA Yoshio <kate@pfu.co.jp> +- +- * its.el (its-state-machine-keyseq): Remove binding +- its-barf-on-invalid-keyseq to nil. +- (its-ins/del-SYL-batch): Avoide altering its-XXX-map. +- (its-translate-region-internal): its-translation-result's data +- type is changed to string. +- +- * egg-cnv.el (egg-convert-region): Gather contiguous same +- language part. +- +-1998-02-21 KATAYAMA Yoshio <kate@pfu.co.jp> +- +- * its.el (its-ins/del-SYL-batch): Set its-lang property. +- (its-translate-region): Remove its-lang property from translated +- text. +- (its-translate-region-internal): New function. Retain its-lang +- property on translated text. +- +- * egg-mlh.el (mlh-space-bar-backward-henkan): Force base language +- to Japanese. +- +- (mlh-hangul mlh-zhongwen-tw mlh-zhongwen): New functions for +- conversion functions. +- +-1998-02-20 KATAYAMA Yoshio <kate@pfu.co.jp> +- +- * its.el (its-restart): New function. +- (its-insert-fence-open, its-insert-fence-close): New function. +- (its-start): Rewritten. Use its-insert-fence-open and +- its-insert-fence-close. +- (its-exit-mode-internal): Leave its-syl property. +- (its-exit-mode-internal): Delete the property in this case. +- (its-keydef): Require it. +- +- * its-keydef.el: Provide the feature. +- +- * egg-cnv.el (egg-convert-region): Add egg-source property to save +- the source string. +- (egg-conversion-map, \C-c): New keybind. +- (egg-get-previous-bunsetsu): Bug fix. +- (egg-decide-before-point): New implementation. +- (egg-exit-conversion): Use gg-decide-before-point. +- (egg-abort-conversion): New command. +- +-1998-02-20 NIIBE Yutaka <gniibe@akebono> +- +- * Makefile (SRCS), Egg.prj: Remove euc-china.el. +- * egg-com.el: Include egg-china.el. +- * egg-china.el: Removed. +- +-1998-02-18 NIIBE Yutaka <gniibe@chroot.org> +- +- * Egg.prj: Use PRCS. +- +- * Makefile (SRCS): Rename euc-cn.el to euc-china.el +- * egg-mlh.el (mlh-space-bar-backward-henkan): Put "Japanese" +- language property for text. +- +-1998-02-18 KATAYAMA Yoshio <kate@pfu.co.jp> +- +- * euc-china.el: Rename from euc-cn.el. Update. +- +- * egg.el (egg-mode): Bug fix. Call get-exit-conversion. +- * leim-list-egg.el ("japanese-egg-wnn", "japanese-egg-sj3"): +- Use new definition (with language argument). +- * egg/wnn.el (egg-activate-wnn): +- * egg/sj3.el (egg-activate-sj3): +- +-1998-02-17 NIIBE Yutaka <gniibe@chroot.org> +- +- * Makefile (SRCS): Add its/pinyin.el, its/hangul.el and +- its-keydef.el. +- +- * egg-com.el (ccl-encode-fixed-euc-kr): Fixed the name. +- +-1998-02-17 KATAYAMA Yoshio <kate@pfu.co.jp> +- +- * its-keydef.el: New file. +- * its/hangul.el, its/pinyin.el: New version. +- +- * egg/wnnrpc.el (load-library "egg/wnn"): Comment it out. +- (wnnrpc-get-error-message): Support multiple languages. +- (wnnrpc-call-with-environment): Chinese support. +- +- * egg/wnn.el (wnn-support-languages): New const. +- (<env>): Add <server-type>, <dic-set>, and <rev-flag>. +- (wnnenv-get-server-type, wnnenv-get-dictionary-set, +- wnnenv-get-reverse-flag): New substs. +- (wnnenv-get-daibunsetsu-info, wnnenv-set-daibunsetsu-info): Changed. +- (wnn-server): Removed. +- (wnn-jserver, wnn-cserver, wnn-tserver, wnn-kserver): New custom. +- (wnn-server-info-list): New const. +- (wnn-get-server-info): New function. +- (wnn-server-locale, wnn-server-type, wnn-server-port, +- wnn-server-stream-name, wnn-server-buffer-name, +- wnn-server-coding-system, wnn-server-hostname): New substs. +- (wnn-start-conversion): Add new arguments. +- (wnn-uniq-candidates): Initialize 'n'. +- (wnn-change-bunsetsu-length): Simplefied. +- (wnn-change-bunsetsu-length): Call renbunsetsu-conversion, +- instead. +- (wnn-fini, wnn-comm-sentinel): back to 971009 version. +- (wnn-jserver-port): Removed. +- (wnn-open): Argument change. Support languages. +- +- (wnn-dictionary-specification): Removed. +- (wnn-dictionary-specification-list): New variable. +- (wnn-get-dic-spec, wnn-dic-spec-dic-set, wnn-dic-spec-reverse, +- wnn-dic-spec-name, wnn-dic-spec-param, wnn-dic-spec-fuzokugo, +- wnn-dic-spec-dic-list): New substs. +- (wnn-get-environment): Rewrite. +- (wnn-create-environment): Rewrite. +- +- (egg-activate-wnn): Support languages. +- +- * egg/sj3rpc.el (load-library "egg/sj3"): Don't load it. +- +- * egg/sj3.el (sj3-support-languages): New const. +- (sj3-start-conversion, sj3-fini): Add lang. +- (sj3-change-bunsetsu-length): Simplified. +- (egg-activate-sj3): Support language. +- +- * its/hira.el (its/hira): Packagefy. (?) +- (its-hira-map): Add language spec. Move here the escape keys +- ("Z", "~"). +- +- * leim-list-egg.el ("chinese-gb-egg-wnn-py", "chinese-gb-egg-wnn-zy", +- "chinese-cns-egg-wnn-py", "chinese-cns-egg-wnn-zy", +- "korean-egg-wnn"): New input methods. +- +- * its.el (its-current-language): New Local Variables. +- <map>: Change the structure. Add <language>. +- (its-get-language): New substitution. +- (its-set-indicator): Removed. +- (its-get-indicator, its-get-start-state): New implementation. +- (its-reset-start-state): Removed. +- (its-buffer-ins/del-SYL): Add new properties, its-map and its-lang. +- (its-exit-mode-internal): Change for its-map and its-lang. +- (its-in-fence-p): New function. +- +- ("its-keydef.el"): Load it. +- +- (its-select-map-menu): Removed. +- (its-select-map-from-menu): Removed. +- (its-select-hiragana, its-select-katakana, its-select-downcase, +- its-select-upcase, its-select-zenkaku-downcase, +- its-select-zenkaku-upcase, its-select-map, its-zenkaku-escape, +- its-hankaku-escape): Removed. +- +- (define-its-state-machine): Rewrite. +- (define-its-compiled-map): New macro. +- (its-define-state-machine): Removed. +- +- (its-forward-SYL): Cleanup. +- +- (its-beginning-of-input-buffer): Fix. +- (its-end-of-input-buffer): Likewise. +- +- * egg-com.el (egg-fixed-euc, egg-mb-euc): New Local Variables. +- (ccl-decode-fixed-euc-kr, ccl-encode-fixed-euc-kr): New CCLs. +- (fixed-euc-kr): New coding system. +- (comm-format-mb-string, comm-format-u16-string): Support EUC-KR. +- (comm-unpack-u16-string, comm-unpack-mb-string): Likewise. +- +- * egg-cnv.el (egg-get-bunsetsu-info): New function. +- (egg-conversion-backend-alist, egg-finalize-backend-alist): +- New Variables. +- Make egg-conversion-backend buffer local. +- (egg-set-current-backend): New function. +- (egg-initialize-backend): Call egg-set-current-backend. +- (egg-start-conversion): Add new argument LANGUAGE. +- (egg-finalize-backend): Finalize for all backend(s). +- (egg-set-conversion-backend-internal): New Macro. +- (egg-convert-region): Support multiple languages in the region. +- (egg-separate-languages, egg-char-to-language, egg-next-part-lang, +- egg-next-chinese-lang): New functions. +- (egg-insert-bunsetsu-list): Change the meaning of last argument. +- (egg-shrink-bunsetsu): Simplified. Just call egg-enlarge-bunsetsu. +- (egg-enlarge-bunsetsu): Support shrink. +- +- (egg-decide-bunsetsu, egg-next-candidate, egg-select-candidate): +- Use egg-get-bunsetsu-info. +- +- (egg-insert-bunsetsu): The property now includes +- egg-conversion-backend. +- +- * egg.el: Don't load its/hira and don't set its-current-map. +- +- * egg.el (egg-default-language, egg-support-languages): New Variables. +- (egg-last-method-name, egg-mode-line-title): New Local Variables. +- (egg-set-mode-line-title, egg-check-language): New functions. +- (egg-set-support-languages): New function. +- (egg-mode): Final processing: call its-exit-mode, call +- egg-exit-conversion. +- Changing the arguments, remember last input method. +- +- Bug fix. Don't set its-hira-period and its-hira-comma. +- +-1998-02-17 KAWABATA, Taichi +- +- * menudiag.el (menudiag-mode-map): New binds for new commands. +- (menudiag-beginning-of-items, menudiag-end-of-items): New commands. +- (menudiag-make-menu-formatted-string): Bug fix. Use +- menudiag-item-num-to-char. +- (menudiag-goto-item): Rewrite. Better user interface. +- (menudiag-char-to-item-num, menudiag-item-num-to-char): New +- functions. +- +-1998-02-07 MORIOKA Tomohiko <morioka@jaist.ac.jp> +- +- * leim-list-egg.el: Delete autoload setting for `egg-mode'. +- Delete input method registration for "japanese-egg". +- +- * egg.el: Comment out setting for Wnn. +- +- * leim-list-egg.el: Add autoload setting for +- `egg-activate-{wnn|sj3}'. +- +- * egg/sj3.el (egg-activate-sj3): Add DOC-string. +- +- * egg/sj3.el (egg-activate-sj3): New function. +- Require egg. +- Load egg/sj3rpc.el. +- +- * egg/wnn.el (egg-activate-wnn): New function. +- Require egg. +- Load egg/wnnrpc.el. +- +-1998-02-07 MORIOKA Tomohiko <morioka@jaist.ac.jp> +- +- * leim-list-egg.el (japanese-egg-wnn): New input method. +- (japanese-egg-sj3): New input method. +- +-1997-11-20 MORIOKA Tomohiko <morioka@jaist.ac.jp> +- +- * leim-list-egg.el: Rename `egg-ja' -> `japanese-egg'. +- +-1997-11-20 MORIOKA Tomohiko <morioka@jaist.ac.jp> +- +- * egg/wnn.el (wnn): New group. +- (wnn-server): Use `defcustom'. +- (wnn-usr-dic-dir): Use `defcustom'. +- +- * egg.el (egg): New group. +- +-1997-11-20 MORIOKA Tomohiko <morioka@jaist.ac.jp> +- +- * menudiag.el (menudiag-mode-map): Swap binding for left and +- right. +- +- * egg.el (egg-toroku-region): `wnn-get-environment' requires +- dictionary-specification. +- +- * leim-list-egg.el: add autoload setting for egg-mode. +- +-1997-11-03 KATAYAMA Yoshio <kate@pfu.co.jp> +- +- * euc-cn.el: New file. Original name was yincoding.el. +- Adopted by NIIBE Yutaka <gniibe@chroot.org>. +- +-1997-11-03 NIIBE Yutaka <gniibe@chroot.org> +- +- * its.el (its-start): Add INVISIBLE property if ITS-FENCE-FACE. +- * egg-cnv.el (egg-decide-before-point): Ditto. +- Based on patch by Kenichi HANDA <handa@etl.go.jp>. +- +- Once, I thought that we need many environments which correspond to +- outstanding CONVERSION buffre. However, I've learned that WNN4 +- protocol is completely independent. It's no use to maintain each +- environment. Share the one environment. +- * egg/wnn.el (wnn-environments): Removed. +- (wnn-environment): New variable. +- (wnn-comm-sentinel): Follow the change. Let users know the close. +- (wnn-fini): Likewise. +- +- <env>: Remove the member <in-use>. +- (wnnenv-create): Follow the structure change. +- (wnn-end-conversion): Likewise. +- (wnnenv-get-in-use-flag, wnnenv-set-in-use-flag): Removed. +- (wnn-find-env-not-in-use): Removed. +- (wnn-get-environment): Use wnn-environment instead of wnn-environments. +- Take one argument. +- +- * egg-cnv.el (egg-decide-before-point): Signal error on first SYL. +- Reported by KATAYAMA Yoshio <kate@pfu.co.jp>. Changes of 1997-09-07 +- was not enough. +- Set-marker M to NIL after PUT-TEXT-PROPERTY. +- +- Because the name of identifier begins egg-*, change the file names. +- * tamago: Rename from tamago. +- * egg.el, egg-mlh.el, egg-com.el, egg-cnv.el: Rename from tamago-*.el +- * Makefile: Follow the changes. +- +-1997-10-05 NIIBE Yutaka <gniibe@chroot.org> +- +- * tamago/wnn.el (wnn-uniq-candidates): Add new argument BUNSETSU. +- Call WNN-BUNSETSU-SET-ZENKOUHO-POS, WNN-BUNSETSU-SET-ZENKOUHO in +- this function. Handle the case where BUNSETSU is not the first +- element of BUNSETSU-LIST. +- (wnn-list-candidates): Use new API of WNN-UNIQ-CANDIDATES. +- +- * tamago-cnv.el (egg-next-candidate): Handle the case where +- EGG-LIST-CANDIDATES returns non zero value. +- +-1997-10-04 NIIBE Yutaka <gniibe@chroot.org> +- +- * Makefile (install): Install to SITEDIR. +- +-1997-09-26 NIIBE Yutaka <gniibe@chroot.org> +- +- * its/hira.el (its-hira-enable-zenkaku-alphabet): New variable. +- (its-hira-map): Use it. +- +-1997-09-19 NIIBE Yutaka <gniibe@chroot.org> +- +- Arrange for LEIM. Use tamago/ subdirectory. +- * tamago/: Rename from tamago-lib. +- +-1997-09-18 NIIBE Yutaka <gniibe@chroot.org> +- +- * tamago-cnv.el (egg-select-candidate): menu-select --> +- menudiag-select. +- * tamago.el (egg-toroku-region, egg-hinshi-select): Likewise. +- +- * tamago-cnv.el (egg-exit-conversion): Run hook of +- input-method-after-insert-chunk-hook. +- * its.el (its-exit-mode-internal): Ditto. +- +- * tamago-mlh.el (mlh-comma-period-style): Deleted. +- +- * its/, tamago-lib/: New directory. +- * its/: Move its-*.el files here. +- * tamago-lib/: Move sj3.el, sj3rpc.el, wnn.el and wnnrpc.el here. +- +- * tamago-com.el: Rename from comm.el. +- * tamago-mlh.el: Rename from mlh.el. +- * tamago-cnv.el: Rename from convert.el. +- +- * menudiag.el: Rename from menu.el. +- (Throughout): Rename menu-* to menudiag-*. +- +-1997-09-07 NIIBE Yutaka <gniibe@chroot.org> +- +- * egg.el (egg-insert-after-hook, egg-exit-hook): Removed. +- (egg-sai-henkan-start, egg-sai-henkan-end, egg-old-bunsetu-suu): +- Removed. +- +- * wnn.el (WNN-const): New macro. +- (wnn-start-conversion, wnn-open-dictionary, wnn-open-frequency, +- wnn-set-dictionary-sub, wnn-update-frequency): Use it. +- +- * wnnrpc.el (wnn-const): New macro. +- Throughout: Use wnn-const. +- +- * convert.el (egg-decide-before-point): Bug fix. Handle the case +- where all bunsetsu are decided. +- Reported by KATAYAMA Yoshio <kate@pfu.co.jp>. +- +- * convert.el (egg-exit-conversion): Call egg-end-conversion at end. +- (egg-decide-before-point): Ditto. +- +- * wnn.el (wnn-environments): Change the structure of enviromnents. +- (wnn-fini): Handle errors. +- (wnn-open): Set sentinel. Delete buffer on failure. +- (wnn-comm-sentinel): New function. +- (wnn-find-env-not-in-use): Return nil when not found. +- +- (wnn-create-environment): Take username as argument. +- (wnn-get-environment): Follow the change. +- +- (wnnenv-create): Remove useless serial no. +- (wnnenv-get-in-use-flag, wnnenv-set-in-use-flag): Follow the change. +- (wnnenv-get-daibunsetsu-info, wnnenv-set-daibunsetsu-info): Likewise. +- (wnn-create-environment, wnn-get-environment): Likewise. +- +-1997-09-04 NIIBE Yutaka <gniibe@chroot.org> +- +- * its.el (its-state-machine-keyseq): Bug fix. Handle VSYL. +- +- * sj3.el, sj3rpc.el: New files. +- +- * comm.el (comm-call-with-proc, comm-call-with-proc-1): New macros. +- * wnnrpc.el (wnnrpc-call-with-proc, wnnrpc-call-with-proc-1): Deleted. +- Throughout: Use comm-call-with-proc and comm-call-with-proc-1. +- +-1997-09-03 NIIBE Yutaka <gniibe@chroot.org> +- +- * wnnrpc.el (wnnrpc-call-with-proc-1): Bug fix. let --> progn. +- +- * convert.el (egg-conversion-backend): Initail value is NIL. +- +- * wnn.el (wnn-conversion-backend): New constant. +- +- * comm.el (comm-format,comm-unpack): Support multibyte string. +- (comm-format-mb-string): New substitution. +- (comm-unpack-mb-string): New substitution. +- +- * wnn.el (wnn-fini): Handle the case where wnn-environments is nil. +- Reported by Hisashi Miyashita <himi@bird.scphys.kyoto-u.ac.jp>. +- +-1997-09-03 Hiroshi Ogata <hiroshi@nereid.rim.or.jp> +- +- * mlh.el (mlh-zenkaku): Use new API of Emacs-20, +- japanese-zenkaku-region. +- +-1997-09-02 NIIBE Yutaka <gniibe@chroot.org> +- +- * egg.el (egg-toroku-region): New function. +- +- * wnn.el (wnn-list-dictionaries): New function. +- (wnnenv-get-proc): New function. +- +- * wnnrpc.el (wnndic-get-id, wnndic-get-comment, wnndic-get-dictname): +- New substitution. +- (wnnrpc-get-writable-dictionary-id-list): Rename from +- wnnrpc-get-writable-dictionary-list. +- +-1997-09-01 NIIBE Yutaka <gniibe@chroot.org> +- +- * convert.el (egg-decide-bunsetsu): New function. +- (egg-decide-before-point): New command. +- (egg-exit-conversion): Use egg-decide-bunsetsu. +- +- * its.el (its-start): Divide the fence buffer into two parts and +- make them intangible, so that point goes appropriate position. +- (its-put-cursor): The cursor belongs to part-2. +- (its-buffer-ins/del-SYL): The new SYL belongs to part-1. +- (its-exit-mode-internal): Remove the property on exit. +- (its-beginning-of-input-buffer): Make SYLs have property of "part 2". +- (its-backward-SYL): Likewise. +- (its-forward-SYL): Make SYLs have property of "part 1". +- (its-end-of-input-buffer): Likewise. +- +- (its-input-end): Delete useless argument. +- (its-beginning-of-input-buffer, its-exit-mode, +- its-exit-mode-off-input-method, its-kick-convert-region, +- its-end-of-input-buffer, its-backward-SYL, its-forward-SYL, +- its-delete-SYL): Follow the change. +- +-1997-08-31 NIIBE Yutaka <gniibe@chroot.org> +- +- For egg-mode, don't use minor mode, override local map instead. +- For its-mode and egg-conversion-mode, don't use minor mode, +- instead use local-map of text property. +- +- Although overriding local map is not good, using local-map of +- property is natural thing. Besides, point-left/point-entered +- don't work as I expected (yet). +- +- * egg.el (egg-mode: variable): Removed. +- * egg.el (egg-modefull-map, egg-modeless-map): Make them functions. +- Generate overriding local map. +- * egg.el (egg-mode): use overriding local map. +- +- * its.el, convert.el: Undo changes of 1997-08-28 for minor mode +- and local map of text properties. +- +- * its.el (its-exit-mode-off-input-method): New function. +- +-1997-08-29 NIIBE Yutaka <gniibe@chroot.org> +- +- Let Undo work correctly. +- * its.el (its-self-insert-char): Delete/Insert cursor. +- +- * its.el (its-put-cursor): Remove useless first argument. +- (its-start, its-beginning-of-input-buffer, its-end-of-input-buffer, +- its-backward-SYL, its-forward-SYL, its-delete-SYL, its-delete-SYL, +- its-delete-backward-SYL-internal, its-delete-backward-within-SYL): +- Follow the change. +- +-1997-08-28 KATAYAMA Yoshio <kate@pfu.co.jp> +- +- * its-erpin.el: New file. +- * its-pinyin.el: New file. +- * its-zhuyin.el: New file. +- +-1997-08-28 NIIBE Yutaka <gniibe@chroot.org> +- +- * its.el (its-exit-mode-no-egg): Removed. +- (its-exit-mode-internal): Remove first argument. +- (its-kick-convert-region, its-delete-SYL, +- its-delete-backward-SYL-internal, its-delete-backward-within-SYL): +- Follow the change. +- +- Don't use local map of text properties, instead use minor mode. +- * convert.el (egg-conversion-mode): New minor mode. +- (egg-conversion-left, egg-conversion-enter): New functions. +- (egg-insert-bunsetsu): remove local-map, add point-entered and +- point-left properties. +- (egg-exit-conversion): Likewise. +- (egg-exit-conversion): Exit minor mode. +- +- * its.el (its-put-cursor): remove local-map, add point-entered and +- point-left properties. +- (its-enter, its-left): New functions. +- (its-mode): New variable. New minor mode. +- +-1997-08-27 NIIBE Yutaka <gniibe@chroot.org> +- +- * convert.el (egg-exit-conversion-no-egg): Removed. +- (egg-exit-conversion): No argument, no egg-mode. +- +- * convert.el (egg-convert-region): No egg-flag. +- * its.el (its-exit-mode-internal): Follow it. +- * mlh.el (mlh-space-bar-backward-henkan): Ditto. +- +-1997-08-26 NIIBE Yutaka <gniibe@chroot.org> +- +- * wnn.el (wnn-change-bunsetsu-length): Don't use magic #3. +- +- * convert.el (egg-insert-bunsetsu-list): Add optional argument +- CONTIN. +- +-1997-08-25 NIIBE Yutaka <gniibe@chroot.org> +- +- * convert.el (egg-insert-bunsetsu): Include seperator. Add +- intangible property to bunsetsu. +- (egg-insert-bunsetsu-list): Follow the change. +- (egg-backward-bunsetsu, egg-forward-bunsetsu, +- egg-select-candidate, egg-next-candidate, +- egg-shrink-bunsetsu, egg-enlarge-bunsetsu, +- egg-exit-conversion): Ditto. +- +- * mlh.el (mlh-space-bar-backward-henkan): Call egg-convert-region +- with last argument t. Turn of egg-mode. +- +-1997-08-24 NIIBE Yutaka <gniibe@chroot.org> +- +- * its.el (its-exit-mode-internal): Inactivate input method. +- +- * wnn.el (wnn-end-conversion): Change the interface. +- (wnn-update-frequency): Follow the change. +- * convert.el (egg-exit-conversion): Follow the change. +- +- * wnn.el (wnn-start-conversion): Change the return value interface. +- * convert.el (egg-convert-region): Follow the change. +- +- * wnn.el (wnnenv-get-bunsetsu-pos, wnnenv-set-bunsetsu-pos): Removed. +- (wnn-get-bunsetsu-source-afterwards): Removed. +- (wnn-get-number-of-bunsetsu, wnn-get-bunsetsu-info): Removed. +- (wnnenv-get-bunsetsu-list, wnnenv-set-bunsetsu-list): Removed. +- (wnn-start-conversion): Don't call wnnenv-set-bunsetsu-list. +- (wnn-end-conversion): Ditto. +- +-1997-08-23 NIIBE Yutaka <gniibe@chroot.org> +- +- * convert.el (egg-change-bunsetsu-length): Change the interface. +- (egg-shrink-bunsetsu,egg-enlarge-bunsetsu): Follow it. +- +- (egg-source-maxlen-from-here): Removed. +- (egg-get-previous-bunsetsu): New function. +- (egg-select-candidate, egg-shrink-bunsetsu, egg-enlarge-bunsetsu, +- egg-next-candidate): Use egg-get-previous-bunsetsu. +- +-1997-08-20 NIIBE Yutaka <gniibe@chroot.org> +- +- * egg.el (minor-mode-alist): Don't show " EGG" in mode line. +- (egg-mode): Use input method indicator instead. +- +-1997-07-20 NIIBE Yutaka <gniibe@chroot.org> +- +- * convert.el (egg-next-candidate): Rename from egg-next-conversion. +- (egg-previous-candidate): Rename from egg-previous-conversion. +- (egg-select-candidate): Follow the change of new interface. +- (egg-source-maxlen-from-here): Likewise. +- +-1997-07-19 NIIBE Yutaka <gniibe@chroot.org> +- +- * wnn.el (wnn-start-conversion): Change the interface. Return ENV +- and the list of bunsetsu. Fix the documentation string too. +- * convert.el (egg-convert-region): Follow the change. +- (egg-insert-converted-result): Change the argument. +- (egg-insert-bunsetsu-list): Rename from egg-insert-converted-result. +- (egg-insert-bunsetsu): New function. +- (egg-get-number-of-bunsetsu,egg-get-bunsetsu-info): Removed. +- (egg-backward-bunsetsu): Don't use bunsetsu-pos. +- +- * wnn.el (wnn-get-bunsetsu-converted): Change the interface. Take +- BUNSETSU as the argument instead of ENV and POS. +- * convert.el (egg-get-bunsetsu-converted): Follow the change. +- +- * wnn.el (wnn-bunsetsu-create): Take ENV as the first argument. +- (wnn-list-candidates): Dont take ENV. +- (wnn-bunsetsu-get-env): New substitution. +- +- * wnnrpc.el (wnnrpc-receive-sho-bunsetsu-list-sub): Take the argument +- for ENV, and use it for the argument of wnn-bunsetsu-create. +- (wnnrpc-receive-sho-bunsetsu-list): Take ENV as the first argument. +- (wnnrpc-renbunsetsu-conversion): Follow the change. +- +-1997-07-17 NIIBE Yutaka <gniibe@chroot.org> +- +- * convert.el (egg-decide-candidate): Change the interface. +- Take the argument bunsetsu-info instead of conversion-engine. +- +- * wnn.el (wnn-get-candidate): Deleted. +- +- * convert.el (egg-get-all-candidates): Change the interface. +- Take an argument bunsetsu-info instead of conversion-engine. +- (egg-select-candidate): Follow the change. +- +- * convert.el (egg-set-bunsetsu-pos,egg-get-bunsetsu-pos): Deleted. +- (egg-list-candidates,egg-get-current-candidate-number): New stub. +- * wnn.el (wnn-bunsetsu-create): Add new member zenkouho-pos. +- (wnn-bunsetsu-get-zenkouho-pos,wnn-bunsetsu-set-zenkouho-pos): New +- functions. +- (wnn-list-candidates,wnn-get-current-candidate-number): New functions. +- (wnn-set-bunsetsu-pos,wnn-get-bunsetsu-pos): Deleted. +- +- * convert.el (egg-get-number-of-candidates): Change the interface. +- Take an argument bunsetsu-info instead of conversion-engine. +- (egg-next-conversion,egg-select-candidate): Follow the change. +- * wnn.el (wnn-get-number-of-candidates): Follow the change. +- +- * wnn.el (wnn-get-bunsetsu-source-afterwards): New function. +- (wnn-change-bunsetsu-length): Use it. +- +- * convert.el (egg-get-bunsetsu-source): Change the interface. +- Take an argument bunsetsu-info instead of conversion-engine. +- (egg-enlarge-bunsetsu,egg-shrink-bunsetsu,egg-source-maxlen-from-here): +- Follow the change. +- * wnn.el (wnn-get-bunsetsu-source): Follow the change. +- +- Put bunsetsu information on text property. +- * wnn.el (wnn-get-bunsetsu-info): New function. +- +- * convert.el (egg-insert-converted-result): Put it on text property. +- (egg-conversion-backend): Add new interface +- wnn-get-bunsetsu-info. +- (egg-get-bunsetsu-info): New stub. +- +-1997-07-17 KATAYAMA Yoshio <kate@pfu.co.jp> +- +- * its.el (its-state-machine-keyseq, its-state-machine): Handle +- end-of-input correctly when going backward. +- +-1997-07-16 NIIBE Yutaka <gniibe@chroot.org> +- +- * wnn.el (wnn-create-directory): Bug fix. Really make directory. +- +-1997-07-15 NIIBE Yutaka <gniibe@chroot.org> +- +- * its-hangul.el (its-define-hangul): Use its-defrule-otherwise. +- +-1997-07-15 KATAYAMA Yoshio <kate@pfu.co.jp> +- +- * its-hangul.el: Updated. +- +-1997-06-19 NIIBE Yutaka <gniibe@akebono.etl.go.jp> +- +- * its-hira.el: its-hira-hankaku-escape --> its-hankaku-escape. +- its-hira-zenkaku-escape --> its-zenkaku-escape. +- +-1997-06-14 NIIBE Yutaka <gniibe@chroot.org> +- +- * its.el: Change the data structure of <expr-output-back-list> so +- that it can encourage sharing same structure and it can use same +- structure of SYL. +- (its-ins/del-SYL-batch): Follow the change of data structure. +- (its-define-otherwise): Change the argument. +- (its-defrule-otherwise): New function. +- (its-eob-keyexpr, its-eob-back, its-make-class+back, +- its-make-otherwise): New substitutions. +- +-1997-06-13 NIIBE Yutaka <gniibe@chroot.org> +- +- * its-kana.el: New file. Taken from its/kanainput.el of Mule-2.3. +- +- * its-hira.el: Use `define-its-state-machine'. +- +- * its.el (its-zenkaku-escape, its-hankaku-escape): Make them +- defconst. +- (define-its-state-machine, define-its-state-machine-append): New +- macro. +- +-1997-06-13 NIIBE Yutaka <gniibe@akebono.etl.go.jp> +- +- * its-hira.el ("n'"): Added. +- +-1997-06-12 NIIBE Yutaka <gniibe@akebono.etl.go.jp> +- +- its-zenkaku-escape and its-hankaku-escape are also used in hangul. +- * its.el (its-zenkaku-escape, its-hankaku-escape): Moved to here +- and rename them. +- * its-hira.el (its-hira-hankaku-escape, its-hira-zenkaku-escape): +- Removed. +- +- * its.el (its-read-current-its-string): Removed. There's the +- function `read-multilingual-string' already. +- +-1997-06-12 KATAYAMA Yoshio <kate@pfu.co.jp> +- +- * its-hangul.el: New file. +- +-1997-06-10 NIIBE Yutaka <gniibe@chroot.org> +- +- Miscellaneous cosmetic changes. +- * comm.el: New file. Move communication related funcitons from +- wnnrpc.el. +- (comm-format-u32c, and others): Rename from wnnrpc-*. +- * wnnrpc.el (Throughout): Follow the rename. +- +- * wnn.el (wnnenv-get-in-use-flag): Rename from wnn-e-get-in-use. +- (wnnenv-set-in-use-flag): Rename from wnn-e-set-in-use. +- (Others): Rename from wnn-e-*. +- (wnn-bunsetsu-*): Rename from wnnrpc-b-*, and moved from wnnrpc.el. +- +- * convert.el (egg-exit-conversion): Call egg-do-auto-fill. +- +- * its.el (its-translate-region): Bug fix. End of input. +- (its-state-machine): Bug fix. Generate error if +- its-barf-on-invalid-keyseq. +- (its-exit-mode-internal): Call egg-do-auto-fill. +- +- * wnnrpc.el (ccl-decode-fixed-euc-jp): Bug fix for ASCII. +- +- * mlh.el (mlh-space-bar-backward-henkan): Call egg-do-auto-fill. +- +- * egg.el: Comment out definition of C-\ in global-map. +- +-1997-06-09 NIIBE Yutaka <gniibe@chroot.org> +- +- * its.el (its-kick-convert-region): Rename from its-convert-region. +- (its-mode-map): Follow the change. +- +- (its-make-next-state): Use list instead of cons. +- +- (its-get-kst/t): Make it substitution. +- (its-set-kst, its-get-keyseq, its-set-keyseq, its-kst-p, +- its-get-output, its-set-output, its-get-keyseq-syl): Likewise. +- (its-new-state, its-new-map, its-get-indicator, its-set-indicator, +- its-get-start-state, its-reset-start-state): Likewise. +- +- (its-get-next-state): Use assq instead of assoc. +- +- (its-goto-state): Tune up. +- +-1997-06-08 NIIBE Yutaka <gniibe@chroot.org> +- +- * mlh.el: Merge mlh-nihongo.el. +- * mlh-nihongo.el: Removed. +- +- * its-hira.el: Moved from its/hira.el. Move comments to HISTORY. +- (its-hira-enable-double-n, its-hira-period, its-hira-comma, +- its-hira-open-bracket, its-hira-close-bracket, +- its-hira-horizontal): New variables. +- Use the variables to define the state-machine. +- +- Implement non-interactive translation in ITS. +- * its.el (its-translate-region): New function. +- (its-latest-SYL): New Variable. +- (its-state-machine-keyseq): Use it. +- (its-update-latest-SYL): New function. +- (its-buffer-ins/del-SYL): Use it. +- (its-translation-result): New variable. +- (its-ins/del-SYL-batch): New function. +- (its-enable-double-n-syntax, its-use-kuten-for-period, +- its-use-touten-for-comma, its-zenkaku-escape, its-hankaku-escape): +- Removed. +- +- Use ITS, delete mlh's own implementation of automata. +- * mlh.el (mlh-start-state, mlh-set-of-chars, mlh-start-state-sym, +- mlh-set-of-chars-sym, mlh-define-automata, mlh-end-of-definition, +- mlh-defrule, mlh-next-state, mlh-roma-kana-backward): Removed. +- (mlh-cause-error-when-unknown-romaji-sequence): Removed. +- (mlh-atoi): Removed. +- (mlh-white-space, mlh-zenkaku-white): Use string-to-int. +- * mlh-nihongo.el (mlh-hira-start-state, mlh-hira-chars, and all +- rules of definition which defines the automaton): Removed. +- (mlh-kanji-with-henkan-region-function): Use its-translate-region. +- (mlh-hiragana, mlh-katakana): Likewise. +- +- Fix of CCL. +- * wnnrpc.el (ccl-decode-fixed-euc-jp): Bug fix for jisx0212. +- Add missing parens. +- +- Speed up of unpacking. +- * wnnrpc.el (wnnrpc-following-char-or-wait): Tune up. +- (wnnrpc-following+forward-char): New function. +- (wnnrpc-unpack-u32c, wnnrpc-unpack-u32, wnnrpc-unpack-u16, +- wnnrpc-unpack-u8): Use it. +- (wnnrpc-accept-process-output): New function. +- (wnnrpc-unpack-u16-string, wnnrpc-unpack-u8-string, +- wnnrpc-unpack-bytes): Use it. Use search-forward. +- (wnnrpc-unpack-u16-string): Use decode-coding-region. +- +-1997-06-07 NIIBE Yutaka <gniibe@chroot.org> +- +- * wnn.el (wnn-get-all-candidates): New function. +- (wnn-set-bunsetsu-pos): Return 0 (instead of -1). +- +- * convert.el (egg-get-candidate): Removed. +- (egg-get-all-candidates): New entry function. +- (egg-conversion-backend): Entry for egg-get-all-candidates. +- (egg-select-candidate): New function. +- (egg-conversion-map): Bind "\M-s" and egg-select-candidate. +- +-1997-06-05 NIIBE Yutaka <gniibe@chroot.org> +- +- * bushu.el: Renamed from busyu.el. +- (bushu-break-string, etc): Renamed from busyu*. +- +- * menu.el: Completely rewritten. +- +-1997-06-03 NIIBE Yutaka <gniibe@akebono.etl.go.jp> +- +- * its.el (its-reset-start-state): Bug fix. Delete a CDR. +- +- Implement "class of key" transition. +- Change the structure of <state>, the last member is +- <key-state-table/terminal> instead of <key-state-alist/terminal>. +- * its.el (its-kst-p): Rename from its-ksa-p. +- (its-get-next-state): Follow the change of the data structure. +- (its-state-machine): Likewise. +- (its-make-next-state): Likewise. +- (its-set-kst): New function. +- (its-get-otherwise): New function. +- (its-otherwise-match): New function. +- (its-define-otherwise-terminate-here): Removed. +- (its-define-otherwise): New function. +- (its-defrule*): Use its-define-otherwise. +- +- * its/hira.el (n): Use its-define-otherwise. +- +-1997-06-02 NIIBE Yutaka <gniibe@chroot.org> +- +- * wnnrpc.el (wnnrpc-receive-sho-bunsetsu-list-sub, +- wnnrpc-receive-sho-bunsetsu-list-sub-2): Splited from +- wnnrpc-receive-sho-bunsetsu-list. +- (wnnrpc-receive-dai-bunsetsu-list): New function. +- (wnnrpc-daibunsetsu-conversion, wnnrpc-get-daibunsetsu-candidate): +- New function. +- +-1997-06-01 NIIBE Yutaka <gniibe@chroot.org> +- +- * wnnrpc.el (ccl-decode-fixed-euc-jp): Clean it up. +- (wnnrpc-file-attribute): Rename from wnnrpc-stat-file. +- (wnnrpc-get-dictionary-list-with-environment): Rename from +- wnnrpc-get-dictionary-list-with-environment. +- +- Implement RPC more. +- * wnnrpc.el (wnnrpc-who, wnnrpc-get-env-list, wnnrpc-kill, +- wnnrpc-delete-dictionary, wnnrpc-set-flag-on-dictionary, +- wnnrpc-get-dictionary-list, wnnrpc-delete-word, +- wnnrpc-receive-word, wnnrpc-search-word, +- wnnrpc-search-word-in-dictionary, wnnrpc-get-word-info, +- wnnrpc-set-comment-on-word, wnnrpc-get-dictionary-info, +- wnnrpc-set-file-comment, wnnrpc-hinshi-name, +- wnnrpc-set-file-password, wnnrpc-set-hinshi-table): New functions. +- +-1997-05-31 NIIBE Yutaka <gniibe@chroot.org> +- +- * wnnrpc.el (wnnrpc-format-u32c, wnnrpc-unpack-u32c): New +- substitutions. Support 32-bit number represented in cons cell of +- a pair of 16-bit integer. +- (wnnrpc-format, wnnrpc-unpack): Handle u32c (U). +- +- (wnnrpc-format-bytes, wnnrpc-unpack-bytes): New substitutions. +- Support byte stream end with 255(-1). +- (wnnrpc-format, wnnrpc-unpack): Handle bytes (B). +- +- (wnnrpc-local-file-loaded): New function. +- (wnnrpc-call-with-proc-1): New macro. Assume the buffer is the one +- of process. +- +-1997-05-29 NIIBE Yutaka <gniibe@chroot.org> +- +- * wnnrpc.el (wnnrpc-get-conversion-parameters, wnnrpc-file-loaded, +- wnnrpc-write-file, wnnrpc-get-fuzokugo-file, wnnrpc-get-file-list, +- wnnrpc-get-file-list-with-env, wnnrpc-stat-file, +- wnnrpc-get-file-info): New functions. +- wnnrpc-receive-file-list): New subst. +- +-1997-05-29 Kenichi Handa <handa@etl.go.jp> +- +- * wnnrpc.el (ccl-decode-fixed-euc-jp): Tune it up. +- +-1997-05-29 Hisashi Miyashita <himi@bird.scphys.kyoto-u.ac.jp> +- +- * wnnrpc.el (fixed-euc-jp, ccl-decode-fixed-euc-jp, +- ccl-encode-fixed-euc): New private coding system. Encode/decode +- CCL for it. +- +-1997-05-27 NIIBE Yutaka <gniibe@chroot.org> +- +- * wnnrpc.el (wnnrpc-tanbunsetsu-conversion): Change the argument. +- (wnnrpc-get-bunsetsu-candidates): Likewise. +- (wnnrpc-renbunsetsu-conversion): Likewise. +- +- * wnn.el (wnn-change-bunsetsu-length): Follow the change. +- (wnn-set-bunsetsu-pos): Likewise. +- (wnn-change-bunsetsu-length, wnn-start-conversion): Likewise. +- +-1997-05-25 NIIBE Yutaka <gniibe@chroot.org> +- +- * wnnrpc.el (wnnrpc-add-word, wnnrpc-get-dictionary-list, +- wnnrpc-receive-dictionary-list, wnnrpc-get-writable-dictionary-list, +- wnnrpc-get-hinshi-list, wnnrpc-hinshi-number): New functions. +- (wnnrpc-unpack-u16-string): Bug fix for the case of ASCII string. +- +- * wnn.el (wnn-dictionary-specification): Add dictionaries of +- gerodic and ones of WNN consortium. +- +- Implement a false path. +- * wnnrpc.el (wnnrpc-renbunsetsu-conversion): Generate an error on +- failure. +- (wnnrpc-get-bunsetsu-candidates): Ditto. +- (wnnrpc-tanbunsetsu-conversion): Ditto. +- +- Implement a false path. Error recovery. +- * wnn.el (wnn-create-directory, wnn-open-dictionary, +- wnn-open-frequency, wnn-query-del/create-frequency): New function. +- (wnn-set-dictionary-sub): New function. +- +-1997-05-24 NIIBE Yutaka <gniibe@chroot.org> +- +- * wnnrpc.el (wnnrpc-version, wnnrpc-access, wnnrpc-mkdir, +- wnnrpc-create-dictionary, wnnrpc-create-frequency, +- wnnrpc-discard-file, wnnrpc-remove-file): New functions. +- (wnnrpc-test-result-and-get-error): New subst. +- +- Implement a false path from wnnrpc-set-fuzokugo-file. +- * wnnrpc.el (wnnrpc-set-fuzokugo-file): Return negate-encoded +- error code on failure. +- * wnn.el (wnn-create-environment): Generate an error message. +- +- Implement a false path from wnnrpc-open-file. +- * wnnrpc.el (wnnrpc-open-file): Change the interface. Return +- negate-encoded error code on failure. +- * wnn.el (wnn-open-file): New function. +- (wnn-create-environment): Handle return value, and generate +- an error message for wnnrpc-set-fuzokugo-file on failure. +- (wnn-set-dictionary): Handle return value. +- +-1997-05-17 NIIBE Yutaka <gniibe@chroot.org> +- +- * wnnrpc.el (wnnrpc-error-message): Error strings taken from +- Wnn-4.2 distribution. +- (wnnrpc-errono): Removed. +- +- Implement a false path from wnnrpc-open. +- * wnnrpc.el (wnnrpc-open): Change the interface. Return NIL on +- success, error code on failure. +- * wnn.el (wnn-open): Delete process and buffer. +- Generate an error on failure. +- (wnn-get-environment): Follow the change (none). +- (wnn-start-conversion): Follow the change (none). +- * convert.el (egg-convert-region): Follow the change. Call +- delete-region after egg-start-conversion. +- +- Implement a false path from wnnrpc-connect. +- * wnnrpc.el (wnnrpc-connect): Change the interface. Return +- negate-encoded error code on failure. +- * wnn.el (wnn-create-environment): Generate an error on failure. +- (wnn-get-environment): Follow the change. On failure, don't +- register the environment to wnn-environments. +- +-1997-05-16 NIIBE Yutaka <gniibe@akebono.etl.go.jp> +- +- Dynamically allocate environment arbitrarily. +- * wnn.el (wnn-create-environment): Change the structure of ENV. +- (wnn-e-get-in-use, wnn-e-set-in-use): New subst. +- (wnn-end-conversion): Call wnn-e-set-in-use. +- (wnn-get-environment, wnn-find-env-not-in-use): New function. +- (wnn-start-conversion): Call wnn-get-environment. +- +- * wnn.el (wnn-fini): Implemented. +- +-1997-05-15 NIIBE Yutaka <gniibe@chroot.org> +- +- * convert.el (egg-start-conversion): Change the interface. +- (egg-convert-region): Follow the change. +- (egg-open-if-not): Removed. +- * wnn.el (wnn-start-conversion): Follow the change. +- +- * wnn.el (wnn-environment-list): Removed. +- (wnn-environment-serial): Removed. +- (wnn-connect-and-init): Removed. +- (wnn-environments): New variable which holds all environments. +- +-1997-05-15 NIIBE Yutaka <gniibe@akebono.etl.go.jp> +- +- * wnn.el (wnn-change-bunsetsu-length): Bug fix. Last argument to +- wnnrpc-b-set-freq-down is list of bunsetsu. +- +- * mlh.el (mlh-do-spacing): Emacs 20 related changes. +- Use category-set-mnemonics, and char-category-set. +- According to suggestion by Kenichi Handa <handa@etl.go.jp>. +- +-1997-05-15 MORIOKA Tomohiko <morioka@jaist.ac.jp> +- +- * wnn.el (wnn-usr-dic-dir): New variable. +- (wnn-filename): Use wnn-usr-dic-dir. +- +- * its.el (its-defrule): New argument `enable-overwrite'. +- +-1997-05-14 NIIBE Yutaka <gniibe@chroot.org> +- +- * convert.el (egg-exit-conversion-unread-char): Use newer variable +- unread-command-events, as unread-command-char is obsolete. +- (egg-shrink-bunsetsu, egg-source-maxlen-from-here, +- egg-enlarge-bunsetsu, egg-next-conversion, egg-exit-conversion, +- egg-exit-conversion, egg-insert-converted-result): New property +- EGG-CONVERSION-ENGINE, which specifis backend. +- +- (egg-start-conversion, egg-get-number-of-bunsetsu, +- egg-get-bunsetsu-converted, egg-set-bunsetsu-pos, +- egg-get-bunsetsu-pos, egg-get-number-of-candidates, +- egg-get-candidate, egg-decide-candidate, +- egg-change-bunsetsu-length, egg-get-bunsetsu-source, +- egg-end-conversion): Change the interface, new argument c. +- * wnn.el (wnn-start-conversion, wnn-get-number-of-bunsetsu, +- wnn-get-bunsetsu-converted, wnn-set-bunsetsu-pos, +- wnn-get-bunsetsu-pos, wnn-get-number-of-candidates, +- wnn-get-candidate, wnn-decide-candidate, +- wnn-change-bunsetsu-length, wnn-get-bunsetsu-source, +- wnn-end-conversion): Likewise. +- +- * convert.el (egg-open-if-not): Change the interface. Return +- conversion backend. +- +- * wnnrpc.el (wnnrpc-following-char-or-wait, wnnrpc-unpack-u32, +- wnnrpc-unpack-u16, wnnrpc-unpack-u8, wnnrpc-unpack-u16-string, +- wnnrpc-unpack-u8-string): Change the interface to avoid +- compilation warnings. +- (wnnrpc-unpack): Use new interface. +- +- * wnn.el (wnn-open): Change the name of WNN buffer as debug has +- been done. +- +-1997-05-11 NIIBE Yutaka <gniibe@chroot.org> +- +- * wnnrpc.el (wnnrpc-following-char-or-wait): Rename from +- wnn-following-char-or-wait. +- (wnnrpc-following-char-or-wait): Declare with DEFUN instead of +- DEFSUBST. +- +-1997-05-10 NIIBE Yutaka <gniibe@chroot.org> +- +- * Throughout: Use JUNET coding system for file format. +- +- * mlh.el: Move some comments to HISTORY. +- (mlh-version): Removed. +- Remove all autoload entries. +- (henkan-region-function): Removed. +- (member): Don't need any more. +- +- * mlh-nihongo.el: Renamed from nihongo.el. +- +- * mlh.el (mlh-space-bar-backward-henkan): call egg-convert-region +- directly. +- (mlh-space-bar-backward-henkan): Fix for Emacs 20. +- Don't call egg:do-auto-fill. +- (mlh-backward-henkan): Use set-marker-insertion-type. +- (mlh-do-spacing): Char-category. +- +- * mlh.el, nihongo.el: Taken from mlh-1.002 distribution. +- +-1997-05-07 NIIBE Yutaka <gniibe@chroot.org> +- +- * convert.el (egg-update-frequency): Removed. +- (egg-conversion-backend): Remove entry for update-frequency. +- +- * wnn.el (wnn-dictionary-specification): Change parameters +- according to suggestion by Tomoko Yoshida in mule-jp@etl.go.jp. +- Original had been taken from wnn-4.2. +- +-1997-05-06 NIIBE Yutaka <gniibe@chroot.org> +- +- * convert.el (egg-next-conversion): Bug fix. It's max+ instead of n. +- +-1997-05-05 NIIBE Yutaka <gniibe@chroot.org> +- +- * wnnfns.c (Fwnn_get_bunsetsu_converted): Rename from +- get-converted-bunsetsu. +- (Fwnn_get_bunsetsu_source): Ditto. +- * convert.el (egg-get-bunsetsu-converted): Ditto. +- (egg-get-bunsetsu-source): Ditto. +- +- * wnn.el (wnn-create-environment): New file which mimics API of +- wnnfns.c. +- +-1997-04-29 NIIBE Yutaka <gniibe@chroot.org> +- +- * wnnrpc.el: New file which implements Remote Procedure Calls of WNN. +- +-1997-04-16 NIIBE Yutaka <gniibe@chroot.org> +- +- * its/kanainput.el (normal-pair): Use its-defrule*. +- +- * its.el (its-defrule*): Rewritten. +- +- * its/hira.el ("n"): Alternative implementation using 'otherwise'. +- +- * its.el (its-processing-map): Removed. +- (its-register-map): Rename from its-set-map. +- (its-register-map): Remove first argumet NAME. +- (its-defrule): Remove last optional argument END. +- (its-define-otherwise-terminate-here): New function. +- (its-goto-state): New function. +- (its-defrule, its-defoutput): Use its-goto-state. +- +-1997-04-12 NIIBE Yutaka <gniibe@chroot.org> +- +- * its.el: Enhance meaning of ITS state machine. Now, <key> +- includes representation of "ANY of key stroke" (-2). +- (its-defrule): New feature end=='otherwise. +- (its-defrule*): New function. +- (its-state-machine): Implement otherwise-terminate-before-this-key. +- +- * its/kanainput.el (its-k-zenkaku-escape, its-k-hankaku-escape, +- its-k-symbols-escape): Add prefix its-. Let them defconst. +- "W": Move the definition beginning to avoid error. +- +-1997-03-26 NIIBE Yutaka <gniibe@chroot.org> +- +- * convert.el (egg-next-conversion): -1 goes to end of bunsetsu. +- +-1997-03-25 NIIBE Yutaka <gniibe@chroot.org> +- +- * egg.el (egg-mode-on, egg-input-mode, egg-in-fence-mode): Deleted. +- (egg-fence-face-on, egg-fence-face-off): Deleted. +- (egg-region-start, egg-region-end): Deleted. +- +-1997-03-24 NIIBE Yutaka <gniibe@chroot.org> +- +- * its/hira.el ("n"): Add "z" and "?" for prefetch char of "n". +- +- Implement conversion mode. +- * convert.el: New file. +- +-1997-03-23 NIIBE Yutaka <gniibe@chroot.org> +- +- * its.el (its-mode-map): As "\C-g" is used in global-map, use +- "\C-]" instead (for its-cancel-input). +- +-1997-03-22 NIIBE Yutaka <gniibe@chroot.org> +- +- Introduce new scheme to specify server. +- * wnnfns.c (Qjserver, Qcserver, Qtserver, Qkserver): Removed. +- (Vwnn_server_type): Integer variable. +- (wnn_get_server_type): Renamed from wnn_check_server_type. +- (charset_wnn_server_type): Renamed from lc_wnn_server_type. +- +- Introduce new scheme to specify uniqueness. +- * wnnfns.c (Qwnn_no_uniq, Qwnn_uniq, Qwnn_uniq_kanji): Removed. +- (Vwnn_uniqueness_specifier): Integer variable. Renamed from +- wnn_uniq_level. +- +-1997-03-21 NIIBE Yutaka <gniibe@chroot.org> +- +- Cosmetic changes. +- * wnnfnc.c (Throughout): Change Lisp function name to follow the +- format of wnn-VERB-OBJECT. +- Use XFASTINT instead of XINT, if appropriate. +- +- * wnnfns.c (Fwnn_fuzokugo_set): Merged with wnn-set-fuzokugo of +- wnn-egg.el. +- +- * wnn-egg.el (wnn-set-fuzokugo): Deleted. +- +- * wnnfns.c (Fwnn_dict_add): Merged with wnn-add-dict of wnn-egg.el. +- * wnn-egg.el (wnn-add-dict): Deleted. +- +- * wnn-egg-msg.el (wnn-msg-get): Renamed from egg-msg-get. +- (wnn-message-alist): Renamed from egg-message-alist. +- Use defconst. +- +- * wnnfns.c (wnn_check_server_type): Renemed from +- check_wnn_server_type. +- +- * wnn-egg-msg.el (egg-error): Deleted. Not useful enough. +- * wnn-egg.el (Throughout): Replace egg-error by error. +- +- * egg.el (egg-sai-henkan-start, egg-sai-henkan-end, +- egg-old-bunsetu-suu): Moved from wnn-egg.el. +- +- * wnn-egg.el (Throughout): Change variable name and function name. +- Added wnn- prefix, egg- prefix. +- * wnn-egg.el: Delete historical defaliases. Only support +- wnn-set-[cjk]server-hostname. +- +- * wnn6.el: New file. Discriminate Wnn6 related functions. +- * eggrc-wnn6: New file. Discriminate Wnn6 related setting. +- +- * egg-fence.el: Removed. +- +-1997-03-20 NIIBE Yutaka <gniibe@chroot.org> +- +- Distingush continuation of egg-mode and turn off of egg-mode. +- * its.el (its-mode-map): Bind "\C-\\" to its-exit-mode-no-egg. +- (its-exit-mode-internal): New argument egg-mode-flag. +- (its-exit-mode-no-egg): New Function. +- +- Rethink about keymap. Once, the intention of egg-mode-map has +- been to override ALL of the keymap. That's so selfish, and not +- friendly to other parts of Emacs. This implementation intend to +- be more friendly with other keymaps. +- * its.el (its-mode-map): Remove definition of "\C-c" for +- its-cancel-input, as C-c has special meaning in Emacs. We should +- not re-define it. +- Remove definition of "\C-q" for its-select-previous-map. +- Remove definition of "\C-_" for egg-jis-code-input. +- Remove definition of "\C-w", "\C-@", [?\C-\ ] for +- egg-henkan-fence-region. +- +- Implement START/CURSOR/END scheme. +- * its.el (its-input-to-vsyl): New function. +- (its-beginning-of-input-buffer): New function. +- (its-end-of-input-buffer): New function. +- (its-backward-SYL): New function. +- (its-forward-SYL): New function. +- (its-delete-SYL): New function. +- (its-delete-backward-SYL): New function. +- (its-delete-backward-SYL-internal): New function. +- (its-delete-backward-within-SYL): New function. +- (its-delete-by-keystroke): New Variable. +- (its-exit-mode): New function. +- (its-exit-mode-internal): New function. +- +- * its.el (its-standard-map-list, its-find, its-next-map, +- its-previous-map): Deleted. +- (its-get-indicator): Delete duplicated definition. Leave one which +- takes <map> argument. +- (its-input): Rename from its-input-subsubsub. +- +- * egg.el (egg-mode-map): Don't include SPACE. +- +- Introduce CURSOR. +- * its.el (its-state-machine): Add new argument EMIT. Return CURSOR. +- (its-state-machine-keyseq): Likewise. +- (its-input-subsubsub): Return CURSOR. +- (its-input-subsub): Deleted. +- (its-DSYL-p): Deleted. +- (its-buffer-insert-SYL-list): Deleted. +- (its-buffer-ins/del-SYL): New function. +- (its-input-end): Change the argument to P of point, and return VOID. +- +- Change structure of <map>. <start-state> is normal <state>. +- (its-new-map): Follow the change of structure. +- (its-get-indicator, its-set-indicator, its-reset-start-state): +- Likewise. +- (its-reset-start-state): Renamed from its-reset-start. +- +- Don't use <input-buffer>, but introduce new scheme of SYL property. +- (its-change-t-to-nil, its-nil-index, its-bytes-between, +- its-delete-between, its-move-nil--->, its-move-nil-<--, +- its-move-nil-<--sub, its-move-nil-to-last, its-move-nil-to-first): +- Deleted. +- +-1997-03-19 NIIBE Yutaka <gniibe@chroot.org> +- +- * its.el: Change the structure of DSYL. Same as <state>. +- (its-input-subsub): Follow the change of structure. +- (its-make-DSYL): Deleted. +- (its-get-keyseq-cooked): New function. +- +- Swap the meaning of T/NIL of <SYL>. +- +- Delete the structure of <input-buffer>. +- (its-new-input-buffer): Deleted. +- (its-input-subsub): Remove the argument SYLP. +- (its-input, its-input-sub, its-init-text-properties): Deleted. +- +- Introduce START, END and CURSOR. +- +-1997-03-19 NIIBE Yutaka <gniibe@akebono.etl.go.jp> +- +- Global-map should be used, for key sequence not defined by +- its-mode-map and/or egg-mode-map. Don't mask other maps. +- * its.el (its-mode-esc-map): Deleted. +- (its-mode-map): Include define-key of the esc-map here. +- * egg.el (egg-mode-esc-map): Deleted. +- (egg-mode-map): Include define-key of the esc-map here. +- +-1997-03-18 NIIBE Yutaka <gniibe@chroot.org> +- +- * its.el (its-input): Rename from its-input-input-buffer. +- (its-state-machine): Handle END of input (key == -1). +- +- ITS minor mode deleted. It's implemented by local-map of text +- properties. +- (its-mode): Remove the variable. +- (its-mode): Remove the function. +- +- * its.el (<input-buffer>): Change the order of <SYL> list. +- (car sylp) is last entry of the list. +- (its-input-buffer): Deleted. It's now a member of text +- properties. +- (<map>): Change the structure. Start state should have "" for keyseq. +- (its-get-start-state): Follow chage of the <map> structure. +- (its-reset-start, its-set-indicator, its-get-indicator): Likewise. +- (its-new-state, its-new-map): Split from its-new-state/map. +- (its-make-map): Deleted. +- +-1997-03-17 NIIBE Yutaka <gniibe@chroot.org> +- +- * its.el (its-buffer-insert-SYL-list): Use insert-and-inherit to +- inherit properties. +- (its-fence-overlay): Removed. Don't use overlay, as it has no +- information in undo-list. +- +-1997-03-16 NIIBE Yutaka <gniibe@chroot.org> +- +- * its/hira.el ("n"): Use new feature END. +- ("ppy", "bby", "ddy", "jjy", "zzy", "ggy", "lly", "rry", "hhy", +- "cch", "tts", "tty", "ssh", "ssy", "kky"): its-defoutput. +- +- * its.el (its-defrule): Add argument END. +- (its-buffer-delete-SYL): Bug fix. Use length instead of string-width. +- +-1997-03-15 NIIBE Yutaka <gniibe@chroot.org> +- +- * its.el (its-input-input-buffer): Implement the case of DSYL. +- +-1997-03-14 NIIBE Yutaka <gniibe@chroot.org> +- +- * its.el (its-buffer-delete-SYL): Handle the case of NIL. +- +- * its/hira.el: Implement "kka" and others. Implemlement "N". +- (digit-characters, symbol-characters, downcase-alphabets, +- upcase-alphabets): Delete useless defvar-s. +- +-1997-03-14 NIIBE Yutaka <gniibe@akebono.etl.go.jp> +- +- * its/hira.el ("roma-kana"): Follow change of implementation of +- state machine. +- +- Correct the abuse of the word "MODE". It seems that it's direct +- influence of "mode" in Emacs, but it's not mode at all. +- * its.el (its-map-alist): Renamed from its-mode-alist. +- (its-get-map): Renamed from its-get-mode-map. +- (its-set-map): Renamed from its-set-mode-map. +- (its-define-state-machine): Renamed from its-define-mode. +- (its-select-map-menu): Renamed from its-select-mode-menu. +- (its-select-map-from-menu): Renamed from its-select-mode-from-menu. +- (its-standard-map-list): Renamed from its-standard-modes. +- (its-next-map): Renamed from its-next-mode. +- (its-previous-map): Renamed from its-previous-mode. +- (its-select-map): Renamed from its-select-mode. +- (its-get-indicator): Renamed from its-get-mode-indicator. +- +- (its-select-map-from-menu): As it's not mode, don't need offer hooks. +- (its-next-map): Likewise. +- (its-previous-map): Likewise. +- (its-select-map): Likewise. +- +- Change the implementation of its-mode-alist. Name is in <map> now. +- * its.el (its-get-mode-map): Just do assoc. +- (its-set-mode-map): Simplified. +- +- * its.el (its-get-indicator): Renamed from its-map-indicator. +- (its-set-indicator): Renamed from its-map-set-indicator. +- (its-get-start-state): Renamed from its-map-start. +- (its-new-state): Change the argunents. +- (its-map-set-start): Removed. +- (its-reset-start): New function. +- +- Remove old implemantation of translator. +- * its.el (its-resize, its-maps, its-actions, its-inputs, +- its-level, its-maxlevel, its-char-from-buff, its-interactive): +- Removed. +- (its-make-action, its-reset-maps, its-current-map, +- its-previous-map, its-level, its-enter-newlevel, its-reset-input, +- its-flush-input-before-point, its-peek-char, its-read-char): +- Removed. +- (its-push-char, its-ordinal-charp, its-delete-charp): Removed. +- (its-translate-region): Removed. +- (its-buff-s, its-buff-e): Removed. +- (its-state-terminalp): Removed. +- +- Remove selection of candidates in map, it's questionable to +- implement this feature with SYL. Might rethink in future. +- (its-make-menu-from-map-result, its-make-alist-from-map-result): +- Removed. +- (its-make-menu-from-map, its-make-menu-from-map*): Removed. +- (its-make-alist-from-map, its-make-alist-from-map*): Removed. +- (its-completing-read): Removed. +- (its-minibuffer-local-must-match-map, +- its-minibuffer-local-completion-map): Removed. +- (its-minibuffer-completion-help, car-string-lessp, +- its-temp-echo-area-contents): Removed. +- +- Implement SYL-based state machine. +- * its.el (its-input-buffer, its-barf-on-invalid-keyseq): New variables. +- (its-new-input-buffer): New function. +- (its-self-insert-char): New command. +- (its-initial-ISYL, its-make-DSYL, its-make-VSYL, +- its-input-input-buffer, its-input-input-buffer-sub, +- its-state-machine, its-state-machine-keyseq, +- its-buffer-delete-SYL, its-buffer-insert-SYL-list, +- its-get-next-state, its-get-ksa/b, its-get-keyseq, its-ksa-p, +- its-get-output): New function. +- (its-get-KAS): Removed. +- (its-get-state, its-get-action, its-set-action): Removed. +- (its-make-KAS, its-get-KAS): Removed. +- +- * its.el (its-defrule-sub): Merged into its-defrule. +- +-1997-03-13 NIIBE Yutaka <gniibe@akebono.etl.go.jp> +- +- * its.el: (its-define-mode): Change the arguments. +- * its/zhuyin.el ("zhuyin"): Follow the changes of its-define-mode. +- * its/zenkaku.el ("zenkaku-downcase"): Likewise. +- * its/pinyin.el ("PinYin"): Likewise. +- * its/kata.el ("roma-kata"): Likewise. +- * its/kanainput.el ("kanainput"): Likewise. +- * its/hira.el ("roma-kana"): Likewise. +- * its/hankaku.el ("downcase"): Likewise. +- * its/hangul.el ("hangul"): Likewise. +- * its/han-kata.el ("roma-han-kata"): Likewise. +- +- * its.el (its-action-output, its-action-next, its-get-next-map, +- its-set-next-map): Removed. +- (its-make-next-state): New function. +- (its-make-state): Removed. +- +- * its.el (its-defrule-sub): Renamed from `its-defrule**'. +- +- * wnnfns.h: New file. Macros for WNN6 are defined here. +- * wnn6fns.c: New file. Moved from wnnfns.c for WNN6 specific +- functions. +- +-1997-03-12 NIIBE Yutaka <gniibe@chroot.org> +- +- * wnnfns.c: cosmetic changes (indentation, commenting-out-style, +- and compare to Qnil, etc). +- Get rid of "register" qualifier. +- +-1997-03-05 NIIBE Yutaka <gniibe@chroot.org> +- +- * its.el (its-define-mode): Change internal structure. Completely +- rewritten. +- (its-make-map): Function to make map. +- (its-make-state): New function. Make new state. +- (its-make-KAS): New function. Make Key-Action-State triad. +- (its-state-terminalp): New function. True when the state is +- terminal. +- (its-map-indicator, its-map-set-indicator,): Changed. +- (its-map-terminalp, its-map-incrementalp, +- its-map-set-incrementalp, its-map-alist, its-map-set-alist, +- its-map-action, its-map-set-action): Removed. +- +- (its-defrule-verbose): Deleted. Seems debug purpose variable. +- +- (its-make-map): Removed <state>. It was useless space eater. +- (its-map-indicator, its-map-set-indicator, its-map-alist, +- its-map-set-alist, its-map-action, its-map-set-action): Follow the +- change. +- (its-define-mode): Likewise. +- (its-defrule**): Change the argument. Delete STATE. +- (its-defrule): Likewise. +- (its-map-state, its-map-set-state): Removed. +- +- <topmap>: Changed the structure. Introduce <incrementalp>, which +- is t on hangul-map, zhuyin-map, and kanainput-map. +- (its-define-mode): Change the arguments. INDICATOR and RESET is +- always required. Add new argument INCREMENTALP. +- * its/kanainput.el ("kanainput"): Use new API of its-define-mode. +- * its/hangul.el ("hangul"): Likewise. +- * its/zhuyin.el ("zhuyin"): Likewise. +- * its.el (its-make-terminal-state-sofar): Removed. +- (its-default-make-terminal-state): Removed. +- (its-make-terminal-state): Removed +- (its-make-non-terminal-state): Removed. Not used. +- (its-map-incrementalp, its-map-set-incrementalp): New functions. +- +-1997-03-04 NIIBE Yutaka <gniibe@chroot.org> +- +- * its.el (its-defrule-conditional, its-defrule-conditional*): +- Removed. Evaluating cond clause at runtime is stupid. Rules +- should be determined at compile time, not at run time. +- (its-get-action): Simplified. It's always standard. +- (its-make-terminal-state-sofar): Likewise. +- (its-make-action): Renamed from its-make-standard-action. +- (its-standard-actionp): Removed. No use. +- (its-translate-region): Simplified. +- +- (its-map-topmap-p): Removed. No use. +- +- (its-simple-actionp, its-collect-simple-action): Removed. No use. +- +- (its-insert-output-string, its-display-status-string): Removed. +- It seemd these variables is to debug ITS itself. +- (its-translate-region): Simplified. +- +- * its/hira.el (".", ",", "n", "nn"): Rules should be determined at +- compile time. +- * its/han-kata.el: Likewise. +- * its/kata.el: Likewise. +- +- * its.el (its-make-standard-action): Simplified. +- (its-make-standard-action): Remove alternative output. +- (its-standard-actionp): Simplified. +- (its-action-next): Simplified. +- (its-select-alternative-output-menu): Removed. Not used at all. +- (its-select-alternative-output): Ditto. +- +- * its/han-kata.el, its/zenkaku.el, its/kata.el, its/kanainput.el, +- its/hira.el, its/hankaku.el: Add (require cl). +- +- * its.el (its-enable-double-n-syntax, its-use-kuten-for-period, +- its-use-touten-for-comma, its-zenkaku-escape, its-hankaku-escape): +- Declare here. Add prefix `its-'. ): +- +- (its-defrule, its-defrule*): Remove MAP argument. +- Merged into its-defrule. +- +-1997-03-04 NIIBE Yutaka <gniibe@akebono.etl.go.jp> +- +- * its.el (its-completing-input-menu): Removed. Not used. +- (its-completing-input): Ditto. +- (its-translate-region): Remove (null action) clause. It's identical +- to 't' case. +- +- (its-map-supers): Deleted. +- (its-map-set-supers): Ditto. +- (its-get-next-map-locally): Deleted. +- +- (its-define-mode): Remove supers. +- (its-make-map): Likewise. +- +- (its-simulate-input): sref -> aref. add char-bytes -> +1. +- (its-defrule**): Likewise. +- +- (its-flush-input-before-point): Delete useless save-excursion. +- (its-push-char): Likewise. +- (its-translate-region): Likewise. +- +- * its/zhuyin.el (its-make-terminal-state): +- * its/kanainput.el (its-make-terminal-state): +- * its/hangul.el (its-make-terminal-state): +- Use its-make-terminal-state-sofar. +- +- * its/kanainput.el (its-make-terminal-state-kanainput): Removed. +- +- * its.el (its-make-terminal-state-sofar): Renamed. +- (was: its-make-terminal-state-hangul) +- +- * its/han-kata.el (its-select-hankaku-katakana): Renamed. +- (was: its:select-hankaku-katakana). +- +- * its.el (its-map-topmap-p, its-map-supers, its-map-set-supers, +- its-map-terminalp, its-map-state, its-map-set-state, +- its-map-indicator, its-map-set-indicator, its-map-action, +- its-map-set-action, its-map-alist, its-map-set-alist, +- its-get-action, its-action-output, its-action-next, +- its-get-next-map, its-get-next-map-locally, its-set-next-map, +- its-collect-simple-action, its-read-current-its-string, +- its-make-map): Add prefix 'its-'. +- +- * its.el (its-defrule-select-mode-temporally): Deleted. +- (its-select-mode-temporally): Deleted. +- (its-select-previous-mode): Deleted. +- +- * its/hira.el ("q", "Q"): Removed. +- +- * its.el (its-defrule**): Don't call coerce-internal-string. +- (map-state-string): Removed. +- (its-default-make-standard-non-terminal-state): Don't call +- map-state-string. +- +- * egg.el (characterp, coerce-internal-string, coerce-string): Removed. +- +- * its.el (its-insert-char): Deleted. +- (its-internal-mode-alist): Removed. +- (its-set-mode-map, its-define-mode): Remove internalp. +- (its-set-mode-indicator): Removed. +- +- * egg-fence.el (egg-fence-self-insert-command): Add prefix 'egg-'. +- +- * its.el (fence-self-insert-command): Move to egg-fence.el. +- +- * egg-fence.el (egg-exit-fence-mode): Renamed (egg-fence-exit-mode). +- (egg-enter-fence-mode-and-self-insert): Deleted. +- +- * egg.el (egg-quit-egg-mode): Deleted. +- +- * egg-misc.el (egg-fence-toggle-egg-mode): Add prefix 'egg-'. +- (egg-fence-toggle-egg-mode): beep -> ding. +- (global-map): bind C-\ to egg-enter-fence-mode. +- +-1997-03-02 NIIBE Yutaka <gniibe@chroot.org> +- +- * egg-henkan.el: New file. +- +- Use new API (egg-get-bunsetu-kanji, egg-get-bunsetu-yomi, +- egg-is-dai-bunsetu, bunsetu-suu, egg-hindo-update, +- egg-get-bunsetu-end). +- +- * wnn-egg.el: Move egg-henkan-* to egg-henkan.el. +- +- * wnn-egg.el (egg-startup-file-search-path): Remove current +- directory. +- (egg-open-wnn): Renamed from EGG-open-wnn. +- (bunsetu-suu): New function. +- (egg-get-bunsetu-kanji, egg-get-bunsetu-yomi): New function. +- (egg-is-dai-bunsetu): New function. +- (egg-hindo-update): New function. +- (egg-get-bunsetu-end): New function. +- +- (egg-henkan-region, egg-gyaku-henkan-region, +- egg-henkan-region-internal, egg-henkan-paragraph, +- egg-gyaku-henkan-paragraph, egg-henkan-sentence, +- egg-gyaku-henkan-sentence, egg-henkan-word, egg-gyaku-henkan-word, +- egg-henkan-insert-kouho, egg-henkan-kakutei, +- egg-henkan-kakutei-first-char, egg-henkan-kakutei-before-point, +- egg-sai-henkan, egg-henkan-goto-bunsetu, +- egg-henkan-forward-bunsetu, egg-henkan-backward-bunsetu, +- egg-henkan-first-bunsetu, egg-henkan-last-bunsetu, +- egg-henkan-hiragana, egg-henkan-katakana, egg-henkan-next-kouho, +- egg-henkan-next-kouho-dai, egg-henkan-next-kouho-sho, +- egg-henkan-previous-kouho, egg-henkan-previous-kouho-dai, +- egg-henkan-previous-kouho-sho, egg-henkan-goto-kouho, +- egg-henkan-bunsetu-chijime-dai, egg-henkan-bunsetu-chijime-sho, +- egg-henkan-bunsetu-nobasi-dai, egg-henkan-saishou-bunsetu, +- egg-henkan-saichou-bunsetu, egg-bunsetu-length-henko, +- egg-henkan-quit, egg-henkan-select-kouho, +- egg-henkan-select-kouho-dai, egg-henkan-select-kouho-sho, +- egg-henkan-word-off, egg-henkan-kakutei-and-self-insert, +- egg-henkan-mode-map, egg-henkan-mode-esc-prefix, +- egg-henkan-help-command, egg-henkan-inspect-bunsetu): +- Add prefix `egg-'. +- +- (egg-henkan-mode-in-use): Deleted. +- (set-egg-henkan-mode-format): Deleted. Don't need. +- +- (disconnect-wnn): Let it be normal function, instead of command. +- (close-wnn): Ditto. +- +- (set-jserver-host-name, set-kserver-host-name, +- set-cserver-host-name): Use defalias. +- +- (close-wnn): Take an argument of wnn-server-type. +- (wnn-egg-kill-emacs-function, set-wnn-host-name, +- set-cwnn-host-name, set-kwnn-host-name): Likewise. +- +- * egg.el (egg-global-map-backup): Deleted. +- (egg-local-map-backup): Deleted. +- (egg-insert-after-hook): it's global variable, nod buffer-local. +- +- * egg-fence.el (egg-henkan-fence-region, egg-enter-fence-mode, +- egg-fence-katakana, egg-fence-hiragana, egg-fence-hankaku, +- egg-fence-zenkaku, egg-fence-backward-char, +- egg-fence-forward-char, egg-fence-beginning-of-line, +- egg-fence-end-of-line, egg-fence-transpose-chars, +- egg-fence-delete-char, egg-fence-backward-delete-char, +- egg-fence-kill-line, egg-fence-exit-mode, egg-fence-cancel-input, +- egg-fence-mode-help-command): Add Prefix `egg-'. +- +- (egg-fence-mode-map): Remove binding to eval-expression (C-z). +- +- (egg-self-insert-non-undo-count): Removed. +- (egg-self-insert-command): Removed. +- +- (egg-fence-backward-char, egg-fence-forward-char, +- egg-fence-transpose-chars, egg-fence-delete-char, +- egg-fence-backward-delete-char): beep -> ding. +- wnn-egg.el (egg-henkan-select-kouho): Likewise. +- +-1997-02-27 NIIBE Yutaka <gniibe@chroot.org> +- +- * wnn-egg.el (push-end, push-end-internal): Removed. +- +- * its.el (dolist): Removed. It's in CL package. +- (for-each, for-each*): Removed. +- +- * egg-keymap.el: Removed. I guess noone use it. +- +- * egg-jsymbol.el (*-alist): Declare by defconst. +- +- * egg-misc.el (toggle-egg-mode): Removed. +- +- * All files: Change the identifier XXX:YYYY --> XXX-YYYY, +- and *YYY* ---> YYY. +- +- * egg-fence.el (enter-fence-mode): Use new API for marker +- insertion `set-marker-insertion-type'. +- * its.el (its-*buff-e*): Likewise. +- +- * egg-jsymbol.el: lc-jp --> (charset-id 'japanese-jisx0208) +- lc-jp2 --> (charset-id 'japanese-jisx0212). +- +-1997-02-26 NIIBE Yutaka <gniibe@akebono.etl.go.jp> +- +- * egg-fence.el (egg:fence-mode-map): Renamed from fence-mode-map. +- (egg:fence-mode-esc-prefix): Renamed from egg:fence-mode-esc-map. +- (henkan-fence-region-or-single-space): Removed. +- +- * egg-misc.el (toggle-egg-mode): mc-flag +- -> enable-multibyte-characters. +- +- * its.el (read-current-its-string): New function. Moved from +- wnn-egg-misc.el. +- (In meny functions): beep --> ding. +- +- * egg-misc.el (read-hiragana-string): Removed. +- (read-kanji-string): Removed. +- (egg:special-symbol-input): Renamed from special-symbol-input. +- (egg:special-symbol-input-point): Renamed from +- special-symbol-input-point. +- (si:*global-map*): Remeved. +- Removed 'Changes on Global map'. +- (its-mode-map): Renamed from mule-keymap. +- +- * wnn-egg.el (henkan-region-internal): Use new API for undo. +- (henkan-kakutei): Likewise. +- (henkan-kakutei-first-char): Likewise. +- (henkan-kakutei-before-point): Likewise. +- (sai-henkan): Likewise. +- * egg.el (egg:quit-egg-mode): Likewise. +- +- * egg-fence.el (egg:*fence-open*, egg:*fence-close*, +- egg:*fence-face*): Let them be declared by defvar. +- (egg:*fence-open-in-cont*, egg:*fence-close-in-cont*, +- egg:*fence-face-in-cont*): Likewise. +- +- (set-egg-fence-mode-format): Removed. Useless. Don't need to be +- interactive. +- (set-egg-fence-mode-format-in-cont): Removed. +- (egg:*face-alist*): Removed. +- +- * wnn-egg-misc.el (its:select-mode, its:select-mode-from-menu, +- its:next-mode, its:previous-mode): +- Removed (Merged into its.el). +- +- * its.el (its:select-mode, its:select-mode-from-menu, +- its:next-mode, its:previous-mode): Call hook of +- `its:select-mode-hook'. +- +- * diced.el: Removed. This depends on wnn. Functions are moved to +- wnn-egg-dict.el. +- +- * wnn-egg-dict.el (remove-regexp-in-string): Removed. +- (toroku-region): Don't call `remove-regexp-in-string'. Removing +- invalid sequence (TAB?) automatically is not good idea. It should +- notify user. Currently, just don't remove. +- +- * busyu.el (busyu-table): defconst instead of defvar. +- (busyu-kaku-alist): defconst instead of defvar. +- +- * its.el (egg:member): Removed. Not used. +- +- * wnn-egg-msg.el (*egg-message-alist*): Include asking string in +- register-notify and remove-notify. Should also change Korean and +- Chinese. +- +- * egg.el: Removed "Tamago Notification System". +- It is useless, as we have *Messages* buffer in GNU Emacs 19. +- +- * diced.el (diced-execute): Don't use `notify' but `message'. +- (set-dict-comment): Likewise. +- * its.el (its-defrule**): Likewise. +- * wnn-egg-dict.el (egg:toroku-word): Likewise. +- * wnn-egg-msg.el (egg:error): Likewise. +- * wnn-egg.el (set-wnn-param): Likewise. +- (EGG:open-wnn): Likewise. +- (close-wnn): Likewise. +- (henkan-word-off): Likewise. +- (henkan-inspect-bunsetu): Likewise. +- +- * diced.el (diced-execute): Don't use `notify-yes-or-no-p' but use +- plain `yes-or-no-p' and format. +- * wnn-egg-dict.el (egg:toroku-word): Likewise. +- +- * egg.el (notify-yes-or-no-p-internal): IIDESUKA is not good. +- it should get the message through egg:get-msg. Currently, use +- "OK?". +- (notify-y-or-n-p-internal): Likewise. +- +- * wnn-egg.el: Split into wnn-egg-dict.el, wnn-egg-misc.el, and +- wnn-egg-msg.el. +- (many functions): remove commented out line of +- (open-wnn-if-disconnected). +- +- * egg.el: Split into egg.el, egg-fence.el, egg-misc.el, +- jis-input.el, and modeline.el. +- +- * wnn-egg.el (egg-default-startup-file): change to eggrc-wnn from +- eggrc. +- (henkan-region-internal): Use new API for marker insertion +- `set-marker-insertion-type'. +- +-1997-02-13 NIIBE Yutaka <gniibe@akebono.etl.go.jp> +- +- * menu.el (menu:select-from-menu): Rewritten. +diff -duNrp ../tamago-4.0.6/ChangeLog.1997-1998 ./ChangeLog.1997-1998 +--- ../tamago-4.0.6/ChangeLog.1997-1998 Thu Jan 1 09:00:00 1970 ++++ ./ChangeLog.1997-1998 Mon Aug 26 08:53:10 2002 +@@ -0,0 +1,2311 @@ ++1998-07-12 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * egg-mlh.el (mlh-space-bar-backward-henkan): Don't test against ++ egg-conversion-backend-alist. ++ ++ * egg/wnn.el (wnn-fini-lang): Reneme from wnn-fini. ++ (wnn-fini): New implementation calling wnn-fini-lang. ++ ++ (wnn-close): Call wnn-fini-lang. ++ (wnn-dictionary-save): Ditto. ++ ++ * egg/canna.el (canna-fini): Delete LANG argument. ++ * egg/sj3.el (sj3-fini): Ditto. ++ ++ * egg-cnv.el (egg-set-conversion-backend): Removed. ++ ++ * egg/sj3.el (sj3-start-conversion): Signal error on non-supported ++ language. ++ * egg/canna.el (canna-start-conversion): Likewise. ++ * egg/wnn.el (wnn-start-conversion): Likewise. ++ ++ * egg-cnv.el (egg-convert-region): Add handler for ++ lang-not-supported. ++ ++ * egg/wnn.el (egg-activate-wnn): load wnnrpc here conditionally. ++ * egg/sj3.el: Likewise. ++ * egg/canna.el: Likewise. ++ ++ * egg.el (egg-support-languages, egg-set-support-languages): Removed. ++ (egg-mode): Don't call egg-set-conversion-backend. ++ * egg/{canna.el, wnn.el, sj3.el}: Don't call egg-support-languages. ++ ++ * egg-cnv.el (egg-set-current-backend): Removed. ++ (egg-initialize-backend, egg-start-conversion, ++ egg-start-reverse-conversion): Don't call egg-set-current-backend. ++ (egg-conversion-backend-null): Rename from *-other-languages. ++ (egg-conversion-backend-alist): Removed. ++ (egg-conversion-backend): Not buffer local. ++ (egg-finalize-backend-alist): Removed. ++ ++1998-07-10 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * egg-cnv.el (egg-start-conversion-failure-hook): New Variable. ++ (egg-start-conversion-failure-fallback): New Function. ++ (egg-convert-region): Handle error and hook on failure. ++ ++ * egg/sj3.el (sj3-open): Remove bogus setq-s of sj3-sys-dict-list, ++ sj3-user-dict-list. ++ ++ * egg-mlh.el (mlh-space-bar-backward-henkan): Don't emit message ++ "converting...", as it may flush out error message. ++ ++ * egg/sj3rpc.el ("egg-com", "egg/sj3"): Require on compilation. ++ (sj3rpc-open): Failure when version is different. ++ ++1998-07-03 KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++ * its/erpin.el, its/hangul.el, its/hankata.el, its/hira.el, ++ its/jeonkak.el, its/kata.el, its/pinyin.el, its/quanjiao.el, ++ its/thai.el, its/zenkaku.el: Updated using new its-*. ++ ++ * its.el (define-its-state-machine): Rewritten. ++ (define-its-compiled-map): Deleted. ++ (define-its-state-machine-append): Rewritten. ++ (its-defrule): Rewritten. ++ (its-defrule*): Rewritten. ++ (its-parent-states): New Variable. ++ (its-goto-state): Remove 2nd optional argument INITIAL-STATE. ++ (its-set-interim-terminal-state): New Function. ++ (its-make-next-state): Remove 2nd argument KEYSEQ. ++ ++1998-07-01 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * egg-mlh.el (mlh-hira-to-kata): Removed. Doesn't work any more. ++ (mlh-katakana): Use japanese-katakana-region. ++ ++ * egg-cnv.el (egg-conversion-map): Add again mapping for "/". ++ ++1998-06-27 KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++ * egg-cnv.el (egg-abort-conversion): Bug fix. ++ ++1998-06-27 NIIBE Yutaka <gniibe@akebono> ++ ++ * egg/wnn.el (wnn-dictionary-specification-list): Don' specify ++ for gerodic/g-jinmei. ++ Suggested by SAKAI Kiyotaka <ksakai@netwk.ntt-at.co.jp>. ++ ++1998-06-26 KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++ * its.el (its-cancel-input): Bug fix. ++ ++1998-06-26 SAKAI Kiyotaka <ksakai@netwk.ntt-at.co.jp> ++ ++ * egg-cnv.el (egg-conversion-mode, egg-help-command): New ++ functions for help string. ++ * its.el (its-mode, its-mode-help-command): Likewise. ++ ++1998-06-26 KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++ * egg-cnv.el (egg-convert-region): Bug fix. ++ * egg.el (egg-default-language): Don't use string. ++ ++ * its/hankata.el (its-han-kata-enable-double-n, and others): ++ Variable name change (-han-) to distingush kata.el. ++ ++ * its/erpin.el (its-erpin-tw-enable-quanjioao-alphabet, ++ its-erpin-cn-enable-quanjioao-alphabet): ++ See its-enable-fullwidth-alphabet. ++ * its/kata.el (its-kata-enable-zenkaku-alphabet): Likewise. ++ * its/pinyin.el (its-pinyin-cn-enable-quanjioao-alphabet): Likewise. ++ * its/zenkaku.el (its-zenkaku-down-map): Likewise. ++ ++ * its/erpin.el (its-erpin-tw-map): Bug fix for "\\", "{", "}", and ++ "/". ++ * its/pinyin.el (its-pinyin-cn-map): Ditto. ++ * its/quanjiao.el (its-quanjiao-down-tw-map): Ditto. ++ * its/zhuyin.el (its-zhuyin-cn-enable-quanjioao-alphabet): Ditto. ++ ++ * its/hira.el (its-hira-enable-zenkaku-alphabet): Follow changes ++ of its.el. ++ * its/ascii.el (its-up-map, its-down-map): Ditto. ++ * its/jeonkak.el (its-jeonkak-up-map): Ditto. ++ ++ * its/hira.el (its-hira-enable-zenkaku-alphabet): ++ See its-enable-fullwidth-alphabet. ++ ++ * egg/wnn.el (wnn-save-dictionaries): Rewritten. ++ ++ * egg/canna.el (egg-edep): Required. ++ (canna-support-languages): Use symbol. ++ * egg/sj3.el (egg-edep): Likewise. ++ ++ * egg/wnn.el (egg-edep): Likewise. ++ * egg/wnnrpc.el: Use symbol. ++ ++ * menudiag.el (menudiag-mode-map): Bug fix for boundary conditions. ++ (menudiag-make-selection-list): Bug fix in case of many items. ++ ++ (menudiag-forward-item, menudiag-backward-item, ++ menudiag-goto-line): Change so that it wraps. ++ ++ * its.el (egg-edep): Required. ++ (its-keydef): Require unconditioanlly. ++ (its-mode-map): Don't call its-define-select-keys here. ++ (its-mode-map): Use of symbol as keymap. ++ (its-fence-invisible): New variable. ++ (its-put-cursor): Don't call its-define-select-keys. ++ (its-setup-fence-mode): invisible handling and its-define-select-keys. ++ (its-keyseq-acceptable-p): if (CDR SYL) is number, return NIL. ++ (define-its-state-machine): Introduce its-temporaly-map. ++ (define-its-state-machine-append): Likewise. ++ ++ (its-goto-state): Use symbol as keymap, not directly. ++ ++ (its-set-part-1,its-set-part-2): New function. ++ (its-delete-backward-within-SYL): Conditionalize. ++ ++ * egg.el (egg-edep): Required. ++ (egg-mode): Add remove-hook call. ++ Supply NIL as first argument to egg-set-conversion-backend. ++ make-local-hook for input-method-activate-hook. ++ (egg-set-face): Add optional argument OBJECT. ++ (egg-redraw-face): Bind inhibit-point-motion-hooks. ++ ++ * egg.el (set-buffer-multibyte): Move to egg-edep.el. ++ ++ * egg-mlh.el (mlh-space-bar-backward-henkan): Use assq. ++ ++ * egg-com.el (egg-zhuyin-syllable): compatibility change. ++ (encode-fixed-euc-china-region): Removed maxlen. ++ ++ Really Needed? -- gN. ++ * egg-com.el (egg-pinyin-syllable): Check exact match. ++ (egg-zhuyin-syllable): Likewise. ++ ++ * egg-cnv.el (egg-edep): Required. ++ (its-keydef): Not required. ++ (egg-conversion-map): Don't call its-define-select-keys here. ++ Fset it to use symbol instead of the map directly. ++ ++ (egg-get-bunsetsu-info): Add new optional argument for getting ++ property. ++ (egg-start-conversion-other-languages): set egg-conversion-backend. ++ (egg-set-current-backend): Use assq instead of assoc. ++ (egg-get-conversion-face): Likewise. ++ (egg-conversion-invisible): New variable. ++ (egg-convert-region): Change for open/close delimiter. ++ (egg-chinese-sisheng-regexp): New function. ++ (egg-separate-languages): Use egg-chinese-sisheng-regexp, ++ use symbol for language specifier (instead of string). ++ ++ (egg-charset-to-language): Use symbol for language specifier ++ (instead of string). ++ (egg-next-chinese-lang): Likewise. ++ ++ (egg-next-part-lang): Change the arguments. ++ ++ (egg-make-bunsetsu): New function changing egg-insert-bunsetsu. ++ ++ (egg-separate-characters): compatibility changes. ++ ++ (egg-conversion-wrap-select): New Variable. ++ ++ (egg-next-candidate): Can wrap around. ++ ++ (egg-decide-before-point): Rewritten. ++ (egg-abort-conversion): Back to previous one. ++ (egg-select-candidate): Use egg-make-bunsetsu. ++ ++ * egg-edep.el: New File for handling differences between Emacs version. ++ * its/thai.el: New File. ++ * its/hangul.el: Updated. ++ ++1998-06-26 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * Makefile (install): Don't touch .emacs and leim-list.el ++ directly. User should do it by her hand. ++ Reported by SAKAI Kiyotaka <ksakai@netwk.ntt-at.co.jp> ++ ++1998-06-25 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * egg/canna.el (canna-dictionary-specification): "user" instead of ++ ("user"). Should chnage canna-filename later. ++ Reported by Akio Morita <amorita@bird.scphys.kyoto-u.ac.jp>. ++ ++1998-04-02 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * egg-com.el (comm-unpack-u16-string): Call string-as-multibyte. ++ (comm-unpack-mb-string): Likewise. ++ ++ * egg.el (set-buffer-multibyte): Function for Emacs 20.2. ++ ++ * egg/wnn.el (wnn-open): Call set-buffer-multibyte. ++ * egg/sj3.el (sj3-open): Ditto. ++ * egg/canna.el (canna-open): Ditto. ++ ++1998-04-02 KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++ Implement hilight. ++ * egg.el (egg-mark-list, egg-suppress-marking): New Variables. ++ (egg-set-face, egg-mark-modification, egg-redraw-face): New ++ Functions. ++ * its.el (its-buffer-ins/del-SYL): Call egg-set-face. ++ (its-setup-yanked-portion): Likewise. ++ * egg-cnv.el (egg-insert-bunsetsu): Call egg-set-face. ++ ++ * egg.el (egg-mode): set default backend. ++ * egg-mlh.el (mlh-space-bar-backward-henkan): activate input ++ method. ++ ++1998-04-02 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * egg-cnv.el (egg-decide-bunsetsu): Undo changes of 03-16. ++ (egg-abort-conversion): Call egg-end-conversion. ++ (egg-decide-before-point): Call egg-end-conversion widh ABORT=NIL. ++ ++1998-03-16 NIIBE Yutaka <gniibe@chroot.org> ++ ++ CANNA Support. ++ * egg/canna.el, egg/cannarpc.el: New file. ++ * Makefile (SRCS): Added. ++ ++ * egg-cnv.el (egg-end-conversion): Add argument ABORT. ++ ++ * egg/wnn.el (wnn-end-conversion): Follow the change of ++ EGG-END-CONVERSION. ++ * egg/sj3.el (sj3-end-conversion): Likewise. ++ ++1998-03-15 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * Makefile: Add dependencies for its-keydef.elc. ++ * egg/sj3rpc.el (sj3-open): Don't support list of hosts. ++ * its.el (its-exit-mode, its-kick-convert-region): Bug fix. Call ++ its-input-end and its-put-cursor. ++ (its-exit-mode-off-input-method): Removed. ++ ++1998-03-14 KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++ * docomp.el (its-keydef): Undo the changes of 03-09. its.el ++ is fixed. ++ ++ * egg-cnv.el (egg-current-language): New valiable. ++ (egg-bunsetsu-info): Separate bunsetsu-info and lunguage. ++ (egg-conversion-backend-other-languages ++ egg-init-other-languages ++ egg-start-conversion-other-languages ++ egg-get-bunsetsu-converted-other-languages ++ egg-get-bunsetsu-source-other-languages ++ egg-list-candidates-other-languages ++ egg-get-number-of-candidates-other-languages ++ egg-get-current-candidate-number-other-languages ++ egg-get-all-candidates-other-languages ++ egg-decide-candidate-other-languages ++ egg-change-bunsetsu-length-other-languages ++ egg-end-conversion-other-languages ++ egg-fini-other-languages): New valiable and functions for ++ handling unknown language. ++ (egg-set-current-backend): Set egg-conversion-backend-other-languages ++ when backend for specified language isn't found. ++ (egg-start-reverse-conversion): New function for reverse conversion. ++ (egg-set-conversion-backend-internal): Removed. ++ (egg-set-conversion-backend): Args are changed. ++ (egg-get-conversion-face): New function for different face for ++ every language. ++ (egg-convert-region): Make converting text read-only. Handle ++ unknown laguages and backend opening error. Rename its-lang to ++ egg-lang. ++ (egg-separate-languages): Argument use-context is added to ++ utilize context when called by its-yank. Rename its-lang to ++ egg-lang Improve speed. ++ (egg-charset-to-language): Renamed from egg-char-to-language. ++ (egg-next-part-lang egg-next-chinese-lang): Rename its-lang to ++ egg-lang. ++ (egg-conversion-map): Unbind C-\ and /. Bind C-X RET XXX to ++ its-select-XXX. ++ (egg-insert-bunsetsu): Make conversion text read-only. Separate ++ bunsetsu-info and conversion-backend. ++ (egg-insert-bunsetsu-list): Remove redundant variables. ++ (egg-beginning-of-conversion-buffer): New function. ++ (egg-end-of-conversion-buffer): New function. ++ (egg-enlarge-bunsetsu): Handle read-only text. ++ (egg-next-candidate): Handle read-only text. Bug on no candidate ++ bunsetsu is fiexed. ++ (egg-reconvert-bunsetsu-internal egg-reverse-convert-bunsetu ++ egg-reconvert-bunsetsu): New functions for reverse conversion and ++ re-conversion. ++ (egg-decide-before-point egg-abort-conversion): Handle read-only ++ text. Bug on pinyin and zhuyin mixed conversion is fixed. Allow ++ long fence. ++ (egg-select-candidate): Handle read-only text. Bug on no candidate ++ bunsetsu is fiexed. ++ ++ * egg-com.el: Change coding-system from internal to iso-2022-7bit. ++ ++ * egg-mlh.el (mlh-space-bar-backward-henkan): Disable temporally ++ mode selection. ++ ++ * egg.el (egg-mode): Set cureent lang to conversion backend. ++ (egg-set-mode-line-title): Renamed to its-set-mode-line-title ++ and moved to its.el. ++ (egg-check-language): Removed. ++ ++ * egg/sj3.el (sj3-server-port): Change from defconst to defver for ++ user customization. ++ (sj3-open sj3-get-environment): Try opening alternate servers. ++ (sj3-start-conversion): Make second argument LANGUAGE optional. ++ (egg-activate-sj3): Parameters of egg-set-conversion-backend is ++ changed. ++ ++ * egg/sj3rpc.el (sj3rpc-error-message): New constant (Not yet ++ completed). ++ (sj3rpc-get-error-message): Check range of errno to avoid ++ args-out-ou-range error. ++ ++ * egg/wnn.el (wnn-jport wnn-cport wnn-tport wnn-kport): New ++ variables for user customization. ++ (wnn-server-info-list wnn-server-port): Type of fourth element ++ is changed from integer to symbol. ++ (wnn-start-reverse-conversion): New function. ++ (wnn-open wnn-get-environment): Try opening alternate servers. ++ (egg-activate-wnn): Parameters of egg-set-conversion-backend is ++ changed. ++ ++ * its-keydef.el (its-current-language): Moved to its.el. ++ (its-make-select-func): Remove language check (egg-check-language). ++ Add temporally mode selection. ++ (its-do-list-make-select-func): Binding of zhuyin-tw is changed to ++ `C' because conflicting zenkaku-upcase. ++ ++ * its.el (its-current-select-func its-previous-select-func): New ++ variables for temporally mode selection. ++ (its-keydef requiring): Use eval-when to avoid error on using ++ compiled file. ++ (its-get-fence-face): New function for different face for ++ every language. ++ (its-put-cursor its-setup-fence-mode): Make fence read-only. ++ (its-start): Remove force-mode-line-update calling. ++ (its-restart): Add optional argument set-prop. ++ (its-self-insert-char its-backward-SYL its-forward-SYL ++ its-delete-SYL its-delete-backward-SYL its-exit-mode ++ its-delete-backward-SYL-by-keystroke its-transpose-chars ++ its-kick-convert-region its-end-of-input-buffer): Handle read-only ++ fence. ++ (its-state-machine): Accept special actions to handle temporally ++ mode selection. ++ (its-buffer-ins/del-SYL its-ins/del-SYL-batch): Handle read-only ++ fence. Property its-lang is renamed to egg-lang. ++ (its-get-next-state its-make-next-state): Add type check to avoid ++ wrong-type-argument error. ++ (its-keyseq-acceptable-p): Save informations of its-map to avoid ++ confusing on temporally mode selection. ++ (its-defrule-select-mode-temporally): New macro. ++ (its-kill-line its-cancel-input): New function. ++ (its-delete-backward-within-SYL): Bind its-current-language to ++ avoid confusing when undo is done beyond language change. ++ (its-yank its-yank-pop its-setup-yanked-portion): New functions. ++ (its-exit-mode-internal): Reset temporally selected mode. Allow ++ long fence. ++ (its-kick-convert-region-or-self-insert): New function. ++ (its-translate-region): Remove text properties completly. ++ (its-set-mode-line-title): Moved from egg.el and renamed. ++ (its-select-mode-temporally its-select-previous-mode): New functions ++ for temporally mode selection. ++ ++ * leim-list-egg.el: Secondary argument for egg-activate-sj3/wnn ++ is no longer needed. ++ ++ * its/hira.el: Remove the rule for "~" which destroies the rules ++ with its-hankaku-escape. ++ ++ * its/pinyin.el: Implement its-pinyin-cn-enable-quanjioao-alphabet ++ and its-pinyin-tw-enable-quanjioao-alphabet. ++ ++ * its/hangul.el: Implement its-hangul-enable-quanjioao-alphabet. ++ ++ * its/ascii.el: New file. ++ * its/erpin.el: New file. ++ * its/hankata.el: New file. ++ * its/jeonkak.el: New file. ++ * its/kata.el: New file. ++ * its/quanjiao.el: New file. ++ * its/zenkaku.el: New file. ++ * its/zhuyin.el: New file. ++ ++1998-03-14 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * egg/sj3rpc.el (sj3rpc-close): New function. ++ ++ * egg/sj3.el (sj3bunsetsu-[sg]et-kugiri-changed): Rename from ++ sj3bunsetsu-get-stdy-down. ++ (sj3-end-conversion): Implement CLSTDY. ++ (sj3-fini): Implemented. ++ ++1998-03-10 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * egg/sj3.el (sj3-end-conversion): Implement bunsetsu study. ++ CLSTDY not yet. ++ ++ * egg/sj3rpc.el (sj3rpc-get-bunsetsu-candidates-sub): Bug fix. ++ Always add hiragana and katakana candidates. ++ (sj3-const: CLSTDY, CLSTDY_EUC): Renamed from END and END_EUC ++ according to "sj3cmd.h" of SJ3 distribution. ++ (sj3rpc-bunsetsu-stdy, sj3rpc-kugiri-stdy): New functions. ++ ++ * egg-com.el (comm-format-u8-vector): New substitution. ++ (comm-format): New format 'v'. ++ ++1998-03-09 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * docomp.el (its-keydef): Require its-keydef when compile. ++ Not so good. Just a work around. ++ (its-mode-map): Undo the changes of 03-04. ++ ++1998-03-09 KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++ * its.el (its-translate-region): Make it command. ++ (its-translate-region-internal): Make it function. ++ ++1998-03-04 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * its.el (its-define-select-keys of its-mode-map): Comment it out. ++ * its-keydef.el (its-make-select-func): Add eval-when to compile this. ++ ++ * egg-cnv.el (egg-decide-bunsetsu): Deleted. ++ * its.el (its-restart): Call its-setup-fence-mode with no argument. ++ ++ * its.el (its-keyseq-acceptable-p): Bug fix. ++ ++1998-03-03 KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++ *its.el (its-get-keyseq-syl): Compensate when DSYL has back. ++ (its-DSYL-with-back-p): New function. Return t when DSYL has back. ++ (its-concrete-DSYL-p): New function. Return t when DSYL is cons ++ form which means input is not continued after DSYL was created. ++ (its-make-concrete-DSYL): New function. ++ (its-self-insert-char): Make DSYL to ``concrete-DSYL'' if cursor ++ is t which means input is not continued. ++ (its-input): Test input key is whether acceptable or not when ++ its-barf-on-invalid-keyseq is non-nil. ++ (its-input-to-vsyl): Set cursor status, not just returning it. ++ (its-state-machine its-state-machine-keyseq): Make sure to issue ++ ``DSYL-with-back'' when syllable is decided by the rule with back. ++ ``test mode'' is added. ++ (its-keyseq-acceptable-p): New function. ++ (its-forward-SYL): The args order of put-text-property was wrong. ++ (its-delete-backward-SYL-by-keystroke): New function. ++ (its-delete-backward-within-SYL): ``delete-by-keystroke'' mode ++ did not work when syllable is decided by the rule with back. ++ Deletion limit is extended to outside of SYL (meaning of ++ ``within-SYL'' is changed to ``deletion starts within SYL). ++ (its-transpose-chars): Fixed up. ++ (its-in-fence-p): Confuse at openning fence. ++ ++1998-02-25 KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++ * its.el (its-put-cursor): Enable its-map change in fence mode. ++ ++ * its-keydef.el (its-make-select-func): Same as above. ++ ++1998-02-25 KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++ * its.el (its-set-cursor-status): New function. ++ (its-setup-fence-mode): New function. ++ (its-insert-fence-open its-insert-fence-close): Deleted. ++ (its-start, its-restart, its-self-insert-char): Avoid fence ++ destruction on its-barf. ++ (its-input-to-vsyl, its-state-machine, its-state-machine-keyseq, ++ its-buffer-ins/del-SYL, its-ins/del-SYL-batch): Update cursor ++ status on updating syllables. ++ (its-input-error): New function to realize doc-string of ++ its-barf-on-invalid-keyseq. ++ ++ * egg.el (egg-mode): Don't use egg-mode-line-title which cause ++ wrong-type-argument at isearch. Bind its-select-XXX to key only ++ when modefull is select. ++ ++ * egg-mlh.el (mlh-hangul, mlh-zhongwen, mlh-zhongwen-tw): Same ++ as above. ++ ++ * its-keydef.el (its-make-select-func): Same as above. ++ ++ * leim-list-egg.el: Same as above. ++ ++1998-02-24 KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++ * its.el (its-state-machine-keyseq): Remove binding ++ its-barf-on-invalid-keyseq to nil. ++ (its-ins/del-SYL-batch): Avoide altering its-XXX-map. ++ (its-translate-region-internal): its-translation-result's data ++ type is changed to string. ++ ++ * egg-cnv.el (egg-convert-region): Gather contiguous same ++ language part. ++ ++1998-02-21 KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++ * its.el (its-ins/del-SYL-batch): Set its-lang property. ++ (its-translate-region): Remove its-lang property from translated ++ text. ++ (its-translate-region-internal): New function. Retain its-lang ++ property on translated text. ++ ++ * egg-mlh.el (mlh-space-bar-backward-henkan): Force base language ++ to Japanese. ++ ++ (mlh-hangul mlh-zhongwen-tw mlh-zhongwen): New functions for ++ conversion functions. ++ ++1998-02-20 KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++ * its.el (its-restart): New function. ++ (its-insert-fence-open, its-insert-fence-close): New function. ++ (its-start): Rewritten. Use its-insert-fence-open and ++ its-insert-fence-close. ++ (its-exit-mode-internal): Leave its-syl property. ++ (its-exit-mode-internal): Delete the property in this case. ++ (its-keydef): Require it. ++ ++ * its-keydef.el: Provide the feature. ++ ++ * egg-cnv.el (egg-convert-region): Add egg-source property to save ++ the source string. ++ (egg-conversion-map, \C-c): New keybind. ++ (egg-get-previous-bunsetsu): Bug fix. ++ (egg-decide-before-point): New implementation. ++ (egg-exit-conversion): Use gg-decide-before-point. ++ (egg-abort-conversion): New command. ++ ++1998-02-20 NIIBE Yutaka <gniibe@akebono> ++ ++ * Makefile (SRCS), Egg.prj: Remove euc-china.el. ++ * egg-com.el: Include egg-china.el. ++ * egg-china.el: Removed. ++ ++1998-02-18 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * Egg.prj: Use PRCS. ++ ++ * Makefile (SRCS): Rename euc-cn.el to euc-china.el ++ * egg-mlh.el (mlh-space-bar-backward-henkan): Put "Japanese" ++ language property for text. ++ ++1998-02-18 KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++ * euc-china.el: Rename from euc-cn.el. Update. ++ ++ * egg.el (egg-mode): Bug fix. Call get-exit-conversion. ++ * leim-list-egg.el ("japanese-egg-wnn", "japanese-egg-sj3"): ++ Use new definition (with language argument). ++ * egg/wnn.el (egg-activate-wnn): ++ * egg/sj3.el (egg-activate-sj3): ++ ++1998-02-17 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * Makefile (SRCS): Add its/pinyin.el, its/hangul.el and ++ its-keydef.el. ++ ++ * egg-com.el (ccl-encode-fixed-euc-kr): Fixed the name. ++ ++1998-02-17 KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++ * its-keydef.el: New file. ++ * its/hangul.el, its/pinyin.el: New version. ++ ++ * egg/wnnrpc.el (load-library "egg/wnn"): Comment it out. ++ (wnnrpc-get-error-message): Support multiple languages. ++ (wnnrpc-call-with-environment): Chinese support. ++ ++ * egg/wnn.el (wnn-support-languages): New const. ++ (<env>): Add <server-type>, <dic-set>, and <rev-flag>. ++ (wnnenv-get-server-type, wnnenv-get-dictionary-set, ++ wnnenv-get-reverse-flag): New substs. ++ (wnnenv-get-daibunsetsu-info, wnnenv-set-daibunsetsu-info): Changed. ++ (wnn-server): Removed. ++ (wnn-jserver, wnn-cserver, wnn-tserver, wnn-kserver): New custom. ++ (wnn-server-info-list): New const. ++ (wnn-get-server-info): New function. ++ (wnn-server-locale, wnn-server-type, wnn-server-port, ++ wnn-server-stream-name, wnn-server-buffer-name, ++ wnn-server-coding-system, wnn-server-hostname): New substs. ++ (wnn-start-conversion): Add new arguments. ++ (wnn-uniq-candidates): Initialize 'n'. ++ (wnn-change-bunsetsu-length): Simplefied. ++ (wnn-change-bunsetsu-length): Call renbunsetsu-conversion, ++ instead. ++ (wnn-fini, wnn-comm-sentinel): back to 971009 version. ++ (wnn-jserver-port): Removed. ++ (wnn-open): Argument change. Support languages. ++ ++ (wnn-dictionary-specification): Removed. ++ (wnn-dictionary-specification-list): New variable. ++ (wnn-get-dic-spec, wnn-dic-spec-dic-set, wnn-dic-spec-reverse, ++ wnn-dic-spec-name, wnn-dic-spec-param, wnn-dic-spec-fuzokugo, ++ wnn-dic-spec-dic-list): New substs. ++ (wnn-get-environment): Rewrite. ++ (wnn-create-environment): Rewrite. ++ ++ (egg-activate-wnn): Support languages. ++ ++ * egg/sj3rpc.el (load-library "egg/sj3"): Don't load it. ++ ++ * egg/sj3.el (sj3-support-languages): New const. ++ (sj3-start-conversion, sj3-fini): Add lang. ++ (sj3-change-bunsetsu-length): Simplified. ++ (egg-activate-sj3): Support language. ++ ++ * its/hira.el (its/hira): Packagefy. (?) ++ (its-hira-map): Add language spec. Move here the escape keys ++ ("Z", "~"). ++ ++ * leim-list-egg.el ("chinese-gb-egg-wnn-py", "chinese-gb-egg-wnn-zy", ++ "chinese-cns-egg-wnn-py", "chinese-cns-egg-wnn-zy", ++ "korean-egg-wnn"): New input methods. ++ ++ * its.el (its-current-language): New Local Variables. ++ <map>: Change the structure. Add <language>. ++ (its-get-language): New substitution. ++ (its-set-indicator): Removed. ++ (its-get-indicator, its-get-start-state): New implementation. ++ (its-reset-start-state): Removed. ++ (its-buffer-ins/del-SYL): Add new properties, its-map and its-lang. ++ (its-exit-mode-internal): Change for its-map and its-lang. ++ (its-in-fence-p): New function. ++ ++ ("its-keydef.el"): Load it. ++ ++ (its-select-map-menu): Removed. ++ (its-select-map-from-menu): Removed. ++ (its-select-hiragana, its-select-katakana, its-select-downcase, ++ its-select-upcase, its-select-zenkaku-downcase, ++ its-select-zenkaku-upcase, its-select-map, its-zenkaku-escape, ++ its-hankaku-escape): Removed. ++ ++ (define-its-state-machine): Rewrite. ++ (define-its-compiled-map): New macro. ++ (its-define-state-machine): Removed. ++ ++ (its-forward-SYL): Cleanup. ++ ++ (its-beginning-of-input-buffer): Fix. ++ (its-end-of-input-buffer): Likewise. ++ ++ * egg-com.el (egg-fixed-euc, egg-mb-euc): New Local Variables. ++ (ccl-decode-fixed-euc-kr, ccl-encode-fixed-euc-kr): New CCLs. ++ (fixed-euc-kr): New coding system. ++ (comm-format-mb-string, comm-format-u16-string): Support EUC-KR. ++ (comm-unpack-u16-string, comm-unpack-mb-string): Likewise. ++ ++ * egg-cnv.el (egg-get-bunsetsu-info): New function. ++ (egg-conversion-backend-alist, egg-finalize-backend-alist): ++ New Variables. ++ Make egg-conversion-backend buffer local. ++ (egg-set-current-backend): New function. ++ (egg-initialize-backend): Call egg-set-current-backend. ++ (egg-start-conversion): Add new argument LANGUAGE. ++ (egg-finalize-backend): Finalize for all backend(s). ++ (egg-set-conversion-backend-internal): New Macro. ++ (egg-convert-region): Support multiple languages in the region. ++ (egg-separate-languages, egg-char-to-language, egg-next-part-lang, ++ egg-next-chinese-lang): New functions. ++ (egg-insert-bunsetsu-list): Change the meaning of last argument. ++ (egg-shrink-bunsetsu): Simplified. Just call egg-enlarge-bunsetsu. ++ (egg-enlarge-bunsetsu): Support shrink. ++ ++ (egg-decide-bunsetsu, egg-next-candidate, egg-select-candidate): ++ Use egg-get-bunsetsu-info. ++ ++ (egg-insert-bunsetsu): The property now includes ++ egg-conversion-backend. ++ ++ * egg.el: Don't load its/hira and don't set its-current-map. ++ ++ * egg.el (egg-default-language, egg-support-languages): New Variables. ++ (egg-last-method-name, egg-mode-line-title): New Local Variables. ++ (egg-set-mode-line-title, egg-check-language): New functions. ++ (egg-set-support-languages): New function. ++ (egg-mode): Final processing: call its-exit-mode, call ++ egg-exit-conversion. ++ Changing the arguments, remember last input method. ++ ++ Bug fix. Don't set its-hira-period and its-hira-comma. ++ ++1998-02-17 KAWABATA, Taichi ++ ++ * menudiag.el (menudiag-mode-map): New binds for new commands. ++ (menudiag-beginning-of-items, menudiag-end-of-items): New commands. ++ (menudiag-make-menu-formatted-string): Bug fix. Use ++ menudiag-item-num-to-char. ++ (menudiag-goto-item): Rewrite. Better user interface. ++ (menudiag-char-to-item-num, menudiag-item-num-to-char): New ++ functions. ++ ++1998-02-07 MORIOKA Tomohiko <morioka@jaist.ac.jp> ++ ++ * leim-list-egg.el: Delete autoload setting for `egg-mode'. ++ Delete input method registration for "japanese-egg". ++ ++ * egg.el: Comment out setting for Wnn. ++ ++ * leim-list-egg.el: Add autoload setting for ++ `egg-activate-{wnn|sj3}'. ++ ++ * egg/sj3.el (egg-activate-sj3): Add DOC-string. ++ ++ * egg/sj3.el (egg-activate-sj3): New function. ++ Require egg. ++ Load egg/sj3rpc.el. ++ ++ * egg/wnn.el (egg-activate-wnn): New function. ++ Require egg. ++ Load egg/wnnrpc.el. ++ ++1998-02-07 MORIOKA Tomohiko <morioka@jaist.ac.jp> ++ ++ * leim-list-egg.el (japanese-egg-wnn): New input method. ++ (japanese-egg-sj3): New input method. ++ ++1997-11-20 MORIOKA Tomohiko <morioka@jaist.ac.jp> ++ ++ * leim-list-egg.el: Rename `egg-ja' -> `japanese-egg'. ++ ++1997-11-20 MORIOKA Tomohiko <morioka@jaist.ac.jp> ++ ++ * egg/wnn.el (wnn): New group. ++ (wnn-server): Use `defcustom'. ++ (wnn-usr-dic-dir): Use `defcustom'. ++ ++ * egg.el (egg): New group. ++ ++1997-11-20 MORIOKA Tomohiko <morioka@jaist.ac.jp> ++ ++ * menudiag.el (menudiag-mode-map): Swap binding for left and ++ right. ++ ++ * egg.el (egg-toroku-region): `wnn-get-environment' requires ++ dictionary-specification. ++ ++ * leim-list-egg.el: add autoload setting for egg-mode. ++ ++1997-11-03 KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++ * euc-cn.el: New file. Original name was yincoding.el. ++ Adopted by NIIBE Yutaka <gniibe@chroot.org>. ++ ++1997-11-03 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * its.el (its-start): Add INVISIBLE property if ITS-FENCE-FACE. ++ * egg-cnv.el (egg-decide-before-point): Ditto. ++ Based on patch by Kenichi HANDA <handa@etl.go.jp>. ++ ++ Once, I thought that we need many environments which correspond to ++ outstanding CONVERSION buffre. However, I've learned that WNN4 ++ protocol is completely independent. It's no use to maintain each ++ environment. Share the one environment. ++ * egg/wnn.el (wnn-environments): Removed. ++ (wnn-environment): New variable. ++ (wnn-comm-sentinel): Follow the change. Let users know the close. ++ (wnn-fini): Likewise. ++ ++ <env>: Remove the member <in-use>. ++ (wnnenv-create): Follow the structure change. ++ (wnn-end-conversion): Likewise. ++ (wnnenv-get-in-use-flag, wnnenv-set-in-use-flag): Removed. ++ (wnn-find-env-not-in-use): Removed. ++ (wnn-get-environment): Use wnn-environment instead of wnn-environments. ++ Take one argument. ++ ++ * egg-cnv.el (egg-decide-before-point): Signal error on first SYL. ++ Reported by KATAYAMA Yoshio <kate@pfu.co.jp>. Changes of 1997-09-07 ++ was not enough. ++ Set-marker M to NIL after PUT-TEXT-PROPERTY. ++ ++ Because the name of identifier begins egg-*, change the file names. ++ * tamago: Rename from tamago. ++ * egg.el, egg-mlh.el, egg-com.el, egg-cnv.el: Rename from tamago-*.el ++ * Makefile: Follow the changes. ++ ++1997-10-05 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * tamago/wnn.el (wnn-uniq-candidates): Add new argument BUNSETSU. ++ Call WNN-BUNSETSU-SET-ZENKOUHO-POS, WNN-BUNSETSU-SET-ZENKOUHO in ++ this function. Handle the case where BUNSETSU is not the first ++ element of BUNSETSU-LIST. ++ (wnn-list-candidates): Use new API of WNN-UNIQ-CANDIDATES. ++ ++ * tamago-cnv.el (egg-next-candidate): Handle the case where ++ EGG-LIST-CANDIDATES returns non zero value. ++ ++1997-10-04 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * Makefile (install): Install to SITEDIR. ++ ++1997-09-26 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * its/hira.el (its-hira-enable-zenkaku-alphabet): New variable. ++ (its-hira-map): Use it. ++ ++1997-09-19 NIIBE Yutaka <gniibe@chroot.org> ++ ++ Arrange for LEIM. Use tamago/ subdirectory. ++ * tamago/: Rename from tamago-lib. ++ ++1997-09-18 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * tamago-cnv.el (egg-select-candidate): menu-select --> ++ menudiag-select. ++ * tamago.el (egg-toroku-region, egg-hinshi-select): Likewise. ++ ++ * tamago-cnv.el (egg-exit-conversion): Run hook of ++ input-method-after-insert-chunk-hook. ++ * its.el (its-exit-mode-internal): Ditto. ++ ++ * tamago-mlh.el (mlh-comma-period-style): Deleted. ++ ++ * its/, tamago-lib/: New directory. ++ * its/: Move its-*.el files here. ++ * tamago-lib/: Move sj3.el, sj3rpc.el, wnn.el and wnnrpc.el here. ++ ++ * tamago-com.el: Rename from comm.el. ++ * tamago-mlh.el: Rename from mlh.el. ++ * tamago-cnv.el: Rename from convert.el. ++ ++ * menudiag.el: Rename from menu.el. ++ (Throughout): Rename menu-* to menudiag-*. ++ ++1997-09-07 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * egg.el (egg-insert-after-hook, egg-exit-hook): Removed. ++ (egg-sai-henkan-start, egg-sai-henkan-end, egg-old-bunsetu-suu): ++ Removed. ++ ++ * wnn.el (WNN-const): New macro. ++ (wnn-start-conversion, wnn-open-dictionary, wnn-open-frequency, ++ wnn-set-dictionary-sub, wnn-update-frequency): Use it. ++ ++ * wnnrpc.el (wnn-const): New macro. ++ Throughout: Use wnn-const. ++ ++ * convert.el (egg-decide-before-point): Bug fix. Handle the case ++ where all bunsetsu are decided. ++ Reported by KATAYAMA Yoshio <kate@pfu.co.jp>. ++ ++ * convert.el (egg-exit-conversion): Call egg-end-conversion at end. ++ (egg-decide-before-point): Ditto. ++ ++ * wnn.el (wnn-environments): Change the structure of enviromnents. ++ (wnn-fini): Handle errors. ++ (wnn-open): Set sentinel. Delete buffer on failure. ++ (wnn-comm-sentinel): New function. ++ (wnn-find-env-not-in-use): Return nil when not found. ++ ++ (wnn-create-environment): Take username as argument. ++ (wnn-get-environment): Follow the change. ++ ++ (wnnenv-create): Remove useless serial no. ++ (wnnenv-get-in-use-flag, wnnenv-set-in-use-flag): Follow the change. ++ (wnnenv-get-daibunsetsu-info, wnnenv-set-daibunsetsu-info): Likewise. ++ (wnn-create-environment, wnn-get-environment): Likewise. ++ ++1997-09-04 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * its.el (its-state-machine-keyseq): Bug fix. Handle VSYL. ++ ++ * sj3.el, sj3rpc.el: New files. ++ ++ * comm.el (comm-call-with-proc, comm-call-with-proc-1): New macros. ++ * wnnrpc.el (wnnrpc-call-with-proc, wnnrpc-call-with-proc-1): Deleted. ++ Throughout: Use comm-call-with-proc and comm-call-with-proc-1. ++ ++1997-09-03 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * wnnrpc.el (wnnrpc-call-with-proc-1): Bug fix. let --> progn. ++ ++ * convert.el (egg-conversion-backend): Initail value is NIL. ++ ++ * wnn.el (wnn-conversion-backend): New constant. ++ ++ * comm.el (comm-format,comm-unpack): Support multibyte string. ++ (comm-format-mb-string): New substitution. ++ (comm-unpack-mb-string): New substitution. ++ ++ * wnn.el (wnn-fini): Handle the case where wnn-environments is nil. ++ Reported by Hisashi Miyashita <himi@bird.scphys.kyoto-u.ac.jp>. ++ ++1997-09-03 Hiroshi Ogata <hiroshi@nereid.rim.or.jp> ++ ++ * mlh.el (mlh-zenkaku): Use new API of Emacs-20, ++ japanese-zenkaku-region. ++ ++1997-09-02 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * egg.el (egg-toroku-region): New function. ++ ++ * wnn.el (wnn-list-dictionaries): New function. ++ (wnnenv-get-proc): New function. ++ ++ * wnnrpc.el (wnndic-get-id, wnndic-get-comment, wnndic-get-dictname): ++ New substitution. ++ (wnnrpc-get-writable-dictionary-id-list): Rename from ++ wnnrpc-get-writable-dictionary-list. ++ ++1997-09-01 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * convert.el (egg-decide-bunsetsu): New function. ++ (egg-decide-before-point): New command. ++ (egg-exit-conversion): Use egg-decide-bunsetsu. ++ ++ * its.el (its-start): Divide the fence buffer into two parts and ++ make them intangible, so that point goes appropriate position. ++ (its-put-cursor): The cursor belongs to part-2. ++ (its-buffer-ins/del-SYL): The new SYL belongs to part-1. ++ (its-exit-mode-internal): Remove the property on exit. ++ (its-beginning-of-input-buffer): Make SYLs have property of "part 2". ++ (its-backward-SYL): Likewise. ++ (its-forward-SYL): Make SYLs have property of "part 1". ++ (its-end-of-input-buffer): Likewise. ++ ++ (its-input-end): Delete useless argument. ++ (its-beginning-of-input-buffer, its-exit-mode, ++ its-exit-mode-off-input-method, its-kick-convert-region, ++ its-end-of-input-buffer, its-backward-SYL, its-forward-SYL, ++ its-delete-SYL): Follow the change. ++ ++1997-08-31 NIIBE Yutaka <gniibe@chroot.org> ++ ++ For egg-mode, don't use minor mode, override local map instead. ++ For its-mode and egg-conversion-mode, don't use minor mode, ++ instead use local-map of text property. ++ ++ Although overriding local map is not good, using local-map of ++ property is natural thing. Besides, point-left/point-entered ++ don't work as I expected (yet). ++ ++ * egg.el (egg-mode: variable): Removed. ++ * egg.el (egg-modefull-map, egg-modeless-map): Make them functions. ++ Generate overriding local map. ++ * egg.el (egg-mode): use overriding local map. ++ ++ * its.el, convert.el: Undo changes of 1997-08-28 for minor mode ++ and local map of text properties. ++ ++ * its.el (its-exit-mode-off-input-method): New function. ++ ++1997-08-29 NIIBE Yutaka <gniibe@chroot.org> ++ ++ Let Undo work correctly. ++ * its.el (its-self-insert-char): Delete/Insert cursor. ++ ++ * its.el (its-put-cursor): Remove useless first argument. ++ (its-start, its-beginning-of-input-buffer, its-end-of-input-buffer, ++ its-backward-SYL, its-forward-SYL, its-delete-SYL, its-delete-SYL, ++ its-delete-backward-SYL-internal, its-delete-backward-within-SYL): ++ Follow the change. ++ ++1997-08-28 KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++ * its-erpin.el: New file. ++ * its-pinyin.el: New file. ++ * its-zhuyin.el: New file. ++ ++1997-08-28 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * its.el (its-exit-mode-no-egg): Removed. ++ (its-exit-mode-internal): Remove first argument. ++ (its-kick-convert-region, its-delete-SYL, ++ its-delete-backward-SYL-internal, its-delete-backward-within-SYL): ++ Follow the change. ++ ++ Don't use local map of text properties, instead use minor mode. ++ * convert.el (egg-conversion-mode): New minor mode. ++ (egg-conversion-left, egg-conversion-enter): New functions. ++ (egg-insert-bunsetsu): remove local-map, add point-entered and ++ point-left properties. ++ (egg-exit-conversion): Likewise. ++ (egg-exit-conversion): Exit minor mode. ++ ++ * its.el (its-put-cursor): remove local-map, add point-entered and ++ point-left properties. ++ (its-enter, its-left): New functions. ++ (its-mode): New variable. New minor mode. ++ ++1997-08-27 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * convert.el (egg-exit-conversion-no-egg): Removed. ++ (egg-exit-conversion): No argument, no egg-mode. ++ ++ * convert.el (egg-convert-region): No egg-flag. ++ * its.el (its-exit-mode-internal): Follow it. ++ * mlh.el (mlh-space-bar-backward-henkan): Ditto. ++ ++1997-08-26 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * wnn.el (wnn-change-bunsetsu-length): Don't use magic #3. ++ ++ * convert.el (egg-insert-bunsetsu-list): Add optional argument ++ CONTIN. ++ ++1997-08-25 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * convert.el (egg-insert-bunsetsu): Include seperator. Add ++ intangible property to bunsetsu. ++ (egg-insert-bunsetsu-list): Follow the change. ++ (egg-backward-bunsetsu, egg-forward-bunsetsu, ++ egg-select-candidate, egg-next-candidate, ++ egg-shrink-bunsetsu, egg-enlarge-bunsetsu, ++ egg-exit-conversion): Ditto. ++ ++ * mlh.el (mlh-space-bar-backward-henkan): Call egg-convert-region ++ with last argument t. Turn of egg-mode. ++ ++1997-08-24 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * its.el (its-exit-mode-internal): Inactivate input method. ++ ++ * wnn.el (wnn-end-conversion): Change the interface. ++ (wnn-update-frequency): Follow the change. ++ * convert.el (egg-exit-conversion): Follow the change. ++ ++ * wnn.el (wnn-start-conversion): Change the return value interface. ++ * convert.el (egg-convert-region): Follow the change. ++ ++ * wnn.el (wnnenv-get-bunsetsu-pos, wnnenv-set-bunsetsu-pos): Removed. ++ (wnn-get-bunsetsu-source-afterwards): Removed. ++ (wnn-get-number-of-bunsetsu, wnn-get-bunsetsu-info): Removed. ++ (wnnenv-get-bunsetsu-list, wnnenv-set-bunsetsu-list): Removed. ++ (wnn-start-conversion): Don't call wnnenv-set-bunsetsu-list. ++ (wnn-end-conversion): Ditto. ++ ++1997-08-23 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * convert.el (egg-change-bunsetsu-length): Change the interface. ++ (egg-shrink-bunsetsu,egg-enlarge-bunsetsu): Follow it. ++ ++ (egg-source-maxlen-from-here): Removed. ++ (egg-get-previous-bunsetsu): New function. ++ (egg-select-candidate, egg-shrink-bunsetsu, egg-enlarge-bunsetsu, ++ egg-next-candidate): Use egg-get-previous-bunsetsu. ++ ++1997-08-20 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * egg.el (minor-mode-alist): Don't show " EGG" in mode line. ++ (egg-mode): Use input method indicator instead. ++ ++1997-07-20 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * convert.el (egg-next-candidate): Rename from egg-next-conversion. ++ (egg-previous-candidate): Rename from egg-previous-conversion. ++ (egg-select-candidate): Follow the change of new interface. ++ (egg-source-maxlen-from-here): Likewise. ++ ++1997-07-19 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * wnn.el (wnn-start-conversion): Change the interface. Return ENV ++ and the list of bunsetsu. Fix the documentation string too. ++ * convert.el (egg-convert-region): Follow the change. ++ (egg-insert-converted-result): Change the argument. ++ (egg-insert-bunsetsu-list): Rename from egg-insert-converted-result. ++ (egg-insert-bunsetsu): New function. ++ (egg-get-number-of-bunsetsu,egg-get-bunsetsu-info): Removed. ++ (egg-backward-bunsetsu): Don't use bunsetsu-pos. ++ ++ * wnn.el (wnn-get-bunsetsu-converted): Change the interface. Take ++ BUNSETSU as the argument instead of ENV and POS. ++ * convert.el (egg-get-bunsetsu-converted): Follow the change. ++ ++ * wnn.el (wnn-bunsetsu-create): Take ENV as the first argument. ++ (wnn-list-candidates): Dont take ENV. ++ (wnn-bunsetsu-get-env): New substitution. ++ ++ * wnnrpc.el (wnnrpc-receive-sho-bunsetsu-list-sub): Take the argument ++ for ENV, and use it for the argument of wnn-bunsetsu-create. ++ (wnnrpc-receive-sho-bunsetsu-list): Take ENV as the first argument. ++ (wnnrpc-renbunsetsu-conversion): Follow the change. ++ ++1997-07-17 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * convert.el (egg-decide-candidate): Change the interface. ++ Take the argument bunsetsu-info instead of conversion-engine. ++ ++ * wnn.el (wnn-get-candidate): Deleted. ++ ++ * convert.el (egg-get-all-candidates): Change the interface. ++ Take an argument bunsetsu-info instead of conversion-engine. ++ (egg-select-candidate): Follow the change. ++ ++ * convert.el (egg-set-bunsetsu-pos,egg-get-bunsetsu-pos): Deleted. ++ (egg-list-candidates,egg-get-current-candidate-number): New stub. ++ * wnn.el (wnn-bunsetsu-create): Add new member zenkouho-pos. ++ (wnn-bunsetsu-get-zenkouho-pos,wnn-bunsetsu-set-zenkouho-pos): New ++ functions. ++ (wnn-list-candidates,wnn-get-current-candidate-number): New functions. ++ (wnn-set-bunsetsu-pos,wnn-get-bunsetsu-pos): Deleted. ++ ++ * convert.el (egg-get-number-of-candidates): Change the interface. ++ Take an argument bunsetsu-info instead of conversion-engine. ++ (egg-next-conversion,egg-select-candidate): Follow the change. ++ * wnn.el (wnn-get-number-of-candidates): Follow the change. ++ ++ * wnn.el (wnn-get-bunsetsu-source-afterwards): New function. ++ (wnn-change-bunsetsu-length): Use it. ++ ++ * convert.el (egg-get-bunsetsu-source): Change the interface. ++ Take an argument bunsetsu-info instead of conversion-engine. ++ (egg-enlarge-bunsetsu,egg-shrink-bunsetsu,egg-source-maxlen-from-here): ++ Follow the change. ++ * wnn.el (wnn-get-bunsetsu-source): Follow the change. ++ ++ Put bunsetsu information on text property. ++ * wnn.el (wnn-get-bunsetsu-info): New function. ++ ++ * convert.el (egg-insert-converted-result): Put it on text property. ++ (egg-conversion-backend): Add new interface ++ wnn-get-bunsetsu-info. ++ (egg-get-bunsetsu-info): New stub. ++ ++1997-07-17 KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++ * its.el (its-state-machine-keyseq, its-state-machine): Handle ++ end-of-input correctly when going backward. ++ ++1997-07-16 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * wnn.el (wnn-create-directory): Bug fix. Really make directory. ++ ++1997-07-15 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * its-hangul.el (its-define-hangul): Use its-defrule-otherwise. ++ ++1997-07-15 KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++ * its-hangul.el: Updated. ++ ++1997-06-19 NIIBE Yutaka <gniibe@akebono.etl.go.jp> ++ ++ * its-hira.el: its-hira-hankaku-escape --> its-hankaku-escape. ++ its-hira-zenkaku-escape --> its-zenkaku-escape. ++ ++1997-06-14 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * its.el: Change the data structure of <expr-output-back-list> so ++ that it can encourage sharing same structure and it can use same ++ structure of SYL. ++ (its-ins/del-SYL-batch): Follow the change of data structure. ++ (its-define-otherwise): Change the argument. ++ (its-defrule-otherwise): New function. ++ (its-eob-keyexpr, its-eob-back, its-make-class+back, ++ its-make-otherwise): New substitutions. ++ ++1997-06-13 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * its-kana.el: New file. Taken from its/kanainput.el of Mule-2.3. ++ ++ * its-hira.el: Use `define-its-state-machine'. ++ ++ * its.el (its-zenkaku-escape, its-hankaku-escape): Make them ++ defconst. ++ (define-its-state-machine, define-its-state-machine-append): New ++ macro. ++ ++1997-06-13 NIIBE Yutaka <gniibe@akebono.etl.go.jp> ++ ++ * its-hira.el ("n'"): Added. ++ ++1997-06-12 NIIBE Yutaka <gniibe@akebono.etl.go.jp> ++ ++ its-zenkaku-escape and its-hankaku-escape are also used in hangul. ++ * its.el (its-zenkaku-escape, its-hankaku-escape): Moved to here ++ and rename them. ++ * its-hira.el (its-hira-hankaku-escape, its-hira-zenkaku-escape): ++ Removed. ++ ++ * its.el (its-read-current-its-string): Removed. There's the ++ function `read-multilingual-string' already. ++ ++1997-06-12 KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++ * its-hangul.el: New file. ++ ++1997-06-10 NIIBE Yutaka <gniibe@chroot.org> ++ ++ Miscellaneous cosmetic changes. ++ * comm.el: New file. Move communication related funcitons from ++ wnnrpc.el. ++ (comm-format-u32c, and others): Rename from wnnrpc-*. ++ * wnnrpc.el (Throughout): Follow the rename. ++ ++ * wnn.el (wnnenv-get-in-use-flag): Rename from wnn-e-get-in-use. ++ (wnnenv-set-in-use-flag): Rename from wnn-e-set-in-use. ++ (Others): Rename from wnn-e-*. ++ (wnn-bunsetsu-*): Rename from wnnrpc-b-*, and moved from wnnrpc.el. ++ ++ * convert.el (egg-exit-conversion): Call egg-do-auto-fill. ++ ++ * its.el (its-translate-region): Bug fix. End of input. ++ (its-state-machine): Bug fix. Generate error if ++ its-barf-on-invalid-keyseq. ++ (its-exit-mode-internal): Call egg-do-auto-fill. ++ ++ * wnnrpc.el (ccl-decode-fixed-euc-jp): Bug fix for ASCII. ++ ++ * mlh.el (mlh-space-bar-backward-henkan): Call egg-do-auto-fill. ++ ++ * egg.el: Comment out definition of C-\ in global-map. ++ ++1997-06-09 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * its.el (its-kick-convert-region): Rename from its-convert-region. ++ (its-mode-map): Follow the change. ++ ++ (its-make-next-state): Use list instead of cons. ++ ++ (its-get-kst/t): Make it substitution. ++ (its-set-kst, its-get-keyseq, its-set-keyseq, its-kst-p, ++ its-get-output, its-set-output, its-get-keyseq-syl): Likewise. ++ (its-new-state, its-new-map, its-get-indicator, its-set-indicator, ++ its-get-start-state, its-reset-start-state): Likewise. ++ ++ (its-get-next-state): Use assq instead of assoc. ++ ++ (its-goto-state): Tune up. ++ ++1997-06-08 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * mlh.el: Merge mlh-nihongo.el. ++ * mlh-nihongo.el: Removed. ++ ++ * its-hira.el: Moved from its/hira.el. Move comments to HISTORY. ++ (its-hira-enable-double-n, its-hira-period, its-hira-comma, ++ its-hira-open-bracket, its-hira-close-bracket, ++ its-hira-horizontal): New variables. ++ Use the variables to define the state-machine. ++ ++ Implement non-interactive translation in ITS. ++ * its.el (its-translate-region): New function. ++ (its-latest-SYL): New Variable. ++ (its-state-machine-keyseq): Use it. ++ (its-update-latest-SYL): New function. ++ (its-buffer-ins/del-SYL): Use it. ++ (its-translation-result): New variable. ++ (its-ins/del-SYL-batch): New function. ++ (its-enable-double-n-syntax, its-use-kuten-for-period, ++ its-use-touten-for-comma, its-zenkaku-escape, its-hankaku-escape): ++ Removed. ++ ++ Use ITS, delete mlh's own implementation of automata. ++ * mlh.el (mlh-start-state, mlh-set-of-chars, mlh-start-state-sym, ++ mlh-set-of-chars-sym, mlh-define-automata, mlh-end-of-definition, ++ mlh-defrule, mlh-next-state, mlh-roma-kana-backward): Removed. ++ (mlh-cause-error-when-unknown-romaji-sequence): Removed. ++ (mlh-atoi): Removed. ++ (mlh-white-space, mlh-zenkaku-white): Use string-to-int. ++ * mlh-nihongo.el (mlh-hira-start-state, mlh-hira-chars, and all ++ rules of definition which defines the automaton): Removed. ++ (mlh-kanji-with-henkan-region-function): Use its-translate-region. ++ (mlh-hiragana, mlh-katakana): Likewise. ++ ++ Fix of CCL. ++ * wnnrpc.el (ccl-decode-fixed-euc-jp): Bug fix for jisx0212. ++ Add missing parens. ++ ++ Speed up of unpacking. ++ * wnnrpc.el (wnnrpc-following-char-or-wait): Tune up. ++ (wnnrpc-following+forward-char): New function. ++ (wnnrpc-unpack-u32c, wnnrpc-unpack-u32, wnnrpc-unpack-u16, ++ wnnrpc-unpack-u8): Use it. ++ (wnnrpc-accept-process-output): New function. ++ (wnnrpc-unpack-u16-string, wnnrpc-unpack-u8-string, ++ wnnrpc-unpack-bytes): Use it. Use search-forward. ++ (wnnrpc-unpack-u16-string): Use decode-coding-region. ++ ++1997-06-07 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * wnn.el (wnn-get-all-candidates): New function. ++ (wnn-set-bunsetsu-pos): Return 0 (instead of -1). ++ ++ * convert.el (egg-get-candidate): Removed. ++ (egg-get-all-candidates): New entry function. ++ (egg-conversion-backend): Entry for egg-get-all-candidates. ++ (egg-select-candidate): New function. ++ (egg-conversion-map): Bind "\M-s" and egg-select-candidate. ++ ++1997-06-05 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * bushu.el: Renamed from busyu.el. ++ (bushu-break-string, etc): Renamed from busyu*. ++ ++ * menu.el: Completely rewritten. ++ ++1997-06-03 NIIBE Yutaka <gniibe@akebono.etl.go.jp> ++ ++ * its.el (its-reset-start-state): Bug fix. Delete a CDR. ++ ++ Implement "class of key" transition. ++ Change the structure of <state>, the last member is ++ <key-state-table/terminal> instead of <key-state-alist/terminal>. ++ * its.el (its-kst-p): Rename from its-ksa-p. ++ (its-get-next-state): Follow the change of the data structure. ++ (its-state-machine): Likewise. ++ (its-make-next-state): Likewise. ++ (its-set-kst): New function. ++ (its-get-otherwise): New function. ++ (its-otherwise-match): New function. ++ (its-define-otherwise-terminate-here): Removed. ++ (its-define-otherwise): New function. ++ (its-defrule*): Use its-define-otherwise. ++ ++ * its/hira.el (n): Use its-define-otherwise. ++ ++1997-06-02 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * wnnrpc.el (wnnrpc-receive-sho-bunsetsu-list-sub, ++ wnnrpc-receive-sho-bunsetsu-list-sub-2): Splited from ++ wnnrpc-receive-sho-bunsetsu-list. ++ (wnnrpc-receive-dai-bunsetsu-list): New function. ++ (wnnrpc-daibunsetsu-conversion, wnnrpc-get-daibunsetsu-candidate): ++ New function. ++ ++1997-06-01 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * wnnrpc.el (ccl-decode-fixed-euc-jp): Clean it up. ++ (wnnrpc-file-attribute): Rename from wnnrpc-stat-file. ++ (wnnrpc-get-dictionary-list-with-environment): Rename from ++ wnnrpc-get-dictionary-list-with-environment. ++ ++ Implement RPC more. ++ * wnnrpc.el (wnnrpc-who, wnnrpc-get-env-list, wnnrpc-kill, ++ wnnrpc-delete-dictionary, wnnrpc-set-flag-on-dictionary, ++ wnnrpc-get-dictionary-list, wnnrpc-delete-word, ++ wnnrpc-receive-word, wnnrpc-search-word, ++ wnnrpc-search-word-in-dictionary, wnnrpc-get-word-info, ++ wnnrpc-set-comment-on-word, wnnrpc-get-dictionary-info, ++ wnnrpc-set-file-comment, wnnrpc-hinshi-name, ++ wnnrpc-set-file-password, wnnrpc-set-hinshi-table): New functions. ++ ++1997-05-31 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * wnnrpc.el (wnnrpc-format-u32c, wnnrpc-unpack-u32c): New ++ substitutions. Support 32-bit number represented in cons cell of ++ a pair of 16-bit integer. ++ (wnnrpc-format, wnnrpc-unpack): Handle u32c (U). ++ ++ (wnnrpc-format-bytes, wnnrpc-unpack-bytes): New substitutions. ++ Support byte stream end with 255(-1). ++ (wnnrpc-format, wnnrpc-unpack): Handle bytes (B). ++ ++ (wnnrpc-local-file-loaded): New function. ++ (wnnrpc-call-with-proc-1): New macro. Assume the buffer is the one ++ of process. ++ ++1997-05-29 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * wnnrpc.el (wnnrpc-get-conversion-parameters, wnnrpc-file-loaded, ++ wnnrpc-write-file, wnnrpc-get-fuzokugo-file, wnnrpc-get-file-list, ++ wnnrpc-get-file-list-with-env, wnnrpc-stat-file, ++ wnnrpc-get-file-info): New functions. ++ wnnrpc-receive-file-list): New subst. ++ ++1997-05-29 Kenichi Handa <handa@etl.go.jp> ++ ++ * wnnrpc.el (ccl-decode-fixed-euc-jp): Tune it up. ++ ++1997-05-29 Hisashi Miyashita <himi@bird.scphys.kyoto-u.ac.jp> ++ ++ * wnnrpc.el (fixed-euc-jp, ccl-decode-fixed-euc-jp, ++ ccl-encode-fixed-euc): New private coding system. Encode/decode ++ CCL for it. ++ ++1997-05-27 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * wnnrpc.el (wnnrpc-tanbunsetsu-conversion): Change the argument. ++ (wnnrpc-get-bunsetsu-candidates): Likewise. ++ (wnnrpc-renbunsetsu-conversion): Likewise. ++ ++ * wnn.el (wnn-change-bunsetsu-length): Follow the change. ++ (wnn-set-bunsetsu-pos): Likewise. ++ (wnn-change-bunsetsu-length, wnn-start-conversion): Likewise. ++ ++1997-05-25 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * wnnrpc.el (wnnrpc-add-word, wnnrpc-get-dictionary-list, ++ wnnrpc-receive-dictionary-list, wnnrpc-get-writable-dictionary-list, ++ wnnrpc-get-hinshi-list, wnnrpc-hinshi-number): New functions. ++ (wnnrpc-unpack-u16-string): Bug fix for the case of ASCII string. ++ ++ * wnn.el (wnn-dictionary-specification): Add dictionaries of ++ gerodic and ones of WNN consortium. ++ ++ Implement a false path. ++ * wnnrpc.el (wnnrpc-renbunsetsu-conversion): Generate an error on ++ failure. ++ (wnnrpc-get-bunsetsu-candidates): Ditto. ++ (wnnrpc-tanbunsetsu-conversion): Ditto. ++ ++ Implement a false path. Error recovery. ++ * wnn.el (wnn-create-directory, wnn-open-dictionary, ++ wnn-open-frequency, wnn-query-del/create-frequency): New function. ++ (wnn-set-dictionary-sub): New function. ++ ++1997-05-24 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * wnnrpc.el (wnnrpc-version, wnnrpc-access, wnnrpc-mkdir, ++ wnnrpc-create-dictionary, wnnrpc-create-frequency, ++ wnnrpc-discard-file, wnnrpc-remove-file): New functions. ++ (wnnrpc-test-result-and-get-error): New subst. ++ ++ Implement a false path from wnnrpc-set-fuzokugo-file. ++ * wnnrpc.el (wnnrpc-set-fuzokugo-file): Return negate-encoded ++ error code on failure. ++ * wnn.el (wnn-create-environment): Generate an error message. ++ ++ Implement a false path from wnnrpc-open-file. ++ * wnnrpc.el (wnnrpc-open-file): Change the interface. Return ++ negate-encoded error code on failure. ++ * wnn.el (wnn-open-file): New function. ++ (wnn-create-environment): Handle return value, and generate ++ an error message for wnnrpc-set-fuzokugo-file on failure. ++ (wnn-set-dictionary): Handle return value. ++ ++1997-05-17 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * wnnrpc.el (wnnrpc-error-message): Error strings taken from ++ Wnn-4.2 distribution. ++ (wnnrpc-errono): Removed. ++ ++ Implement a false path from wnnrpc-open. ++ * wnnrpc.el (wnnrpc-open): Change the interface. Return NIL on ++ success, error code on failure. ++ * wnn.el (wnn-open): Delete process and buffer. ++ Generate an error on failure. ++ (wnn-get-environment): Follow the change (none). ++ (wnn-start-conversion): Follow the change (none). ++ * convert.el (egg-convert-region): Follow the change. Call ++ delete-region after egg-start-conversion. ++ ++ Implement a false path from wnnrpc-connect. ++ * wnnrpc.el (wnnrpc-connect): Change the interface. Return ++ negate-encoded error code on failure. ++ * wnn.el (wnn-create-environment): Generate an error on failure. ++ (wnn-get-environment): Follow the change. On failure, don't ++ register the environment to wnn-environments. ++ ++1997-05-16 NIIBE Yutaka <gniibe@akebono.etl.go.jp> ++ ++ Dynamically allocate environment arbitrarily. ++ * wnn.el (wnn-create-environment): Change the structure of ENV. ++ (wnn-e-get-in-use, wnn-e-set-in-use): New subst. ++ (wnn-end-conversion): Call wnn-e-set-in-use. ++ (wnn-get-environment, wnn-find-env-not-in-use): New function. ++ (wnn-start-conversion): Call wnn-get-environment. ++ ++ * wnn.el (wnn-fini): Implemented. ++ ++1997-05-15 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * convert.el (egg-start-conversion): Change the interface. ++ (egg-convert-region): Follow the change. ++ (egg-open-if-not): Removed. ++ * wnn.el (wnn-start-conversion): Follow the change. ++ ++ * wnn.el (wnn-environment-list): Removed. ++ (wnn-environment-serial): Removed. ++ (wnn-connect-and-init): Removed. ++ (wnn-environments): New variable which holds all environments. ++ ++1997-05-15 NIIBE Yutaka <gniibe@akebono.etl.go.jp> ++ ++ * wnn.el (wnn-change-bunsetsu-length): Bug fix. Last argument to ++ wnnrpc-b-set-freq-down is list of bunsetsu. ++ ++ * mlh.el (mlh-do-spacing): Emacs 20 related changes. ++ Use category-set-mnemonics, and char-category-set. ++ According to suggestion by Kenichi Handa <handa@etl.go.jp>. ++ ++1997-05-15 MORIOKA Tomohiko <morioka@jaist.ac.jp> ++ ++ * wnn.el (wnn-usr-dic-dir): New variable. ++ (wnn-filename): Use wnn-usr-dic-dir. ++ ++ * its.el (its-defrule): New argument `enable-overwrite'. ++ ++1997-05-14 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * convert.el (egg-exit-conversion-unread-char): Use newer variable ++ unread-command-events, as unread-command-char is obsolete. ++ (egg-shrink-bunsetsu, egg-source-maxlen-from-here, ++ egg-enlarge-bunsetsu, egg-next-conversion, egg-exit-conversion, ++ egg-exit-conversion, egg-insert-converted-result): New property ++ EGG-CONVERSION-ENGINE, which specifis backend. ++ ++ (egg-start-conversion, egg-get-number-of-bunsetsu, ++ egg-get-bunsetsu-converted, egg-set-bunsetsu-pos, ++ egg-get-bunsetsu-pos, egg-get-number-of-candidates, ++ egg-get-candidate, egg-decide-candidate, ++ egg-change-bunsetsu-length, egg-get-bunsetsu-source, ++ egg-end-conversion): Change the interface, new argument c. ++ * wnn.el (wnn-start-conversion, wnn-get-number-of-bunsetsu, ++ wnn-get-bunsetsu-converted, wnn-set-bunsetsu-pos, ++ wnn-get-bunsetsu-pos, wnn-get-number-of-candidates, ++ wnn-get-candidate, wnn-decide-candidate, ++ wnn-change-bunsetsu-length, wnn-get-bunsetsu-source, ++ wnn-end-conversion): Likewise. ++ ++ * convert.el (egg-open-if-not): Change the interface. Return ++ conversion backend. ++ ++ * wnnrpc.el (wnnrpc-following-char-or-wait, wnnrpc-unpack-u32, ++ wnnrpc-unpack-u16, wnnrpc-unpack-u8, wnnrpc-unpack-u16-string, ++ wnnrpc-unpack-u8-string): Change the interface to avoid ++ compilation warnings. ++ (wnnrpc-unpack): Use new interface. ++ ++ * wnn.el (wnn-open): Change the name of WNN buffer as debug has ++ been done. ++ ++1997-05-11 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * wnnrpc.el (wnnrpc-following-char-or-wait): Rename from ++ wnn-following-char-or-wait. ++ (wnnrpc-following-char-or-wait): Declare with DEFUN instead of ++ DEFSUBST. ++ ++1997-05-10 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * Throughout: Use JUNET coding system for file format. ++ ++ * mlh.el: Move some comments to HISTORY. ++ (mlh-version): Removed. ++ Remove all autoload entries. ++ (henkan-region-function): Removed. ++ (member): Don't need any more. ++ ++ * mlh-nihongo.el: Renamed from nihongo.el. ++ ++ * mlh.el (mlh-space-bar-backward-henkan): call egg-convert-region ++ directly. ++ (mlh-space-bar-backward-henkan): Fix for Emacs 20. ++ Don't call egg:do-auto-fill. ++ (mlh-backward-henkan): Use set-marker-insertion-type. ++ (mlh-do-spacing): Char-category. ++ ++ * mlh.el, nihongo.el: Taken from mlh-1.002 distribution. ++ ++1997-05-07 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * convert.el (egg-update-frequency): Removed. ++ (egg-conversion-backend): Remove entry for update-frequency. ++ ++ * wnn.el (wnn-dictionary-specification): Change parameters ++ according to suggestion by Tomoko Yoshida in mule-jp@etl.go.jp. ++ Original had been taken from wnn-4.2. ++ ++1997-05-06 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * convert.el (egg-next-conversion): Bug fix. It's max+ instead of n. ++ ++1997-05-05 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * wnnfns.c (Fwnn_get_bunsetsu_converted): Rename from ++ get-converted-bunsetsu. ++ (Fwnn_get_bunsetsu_source): Ditto. ++ * convert.el (egg-get-bunsetsu-converted): Ditto. ++ (egg-get-bunsetsu-source): Ditto. ++ ++ * wnn.el (wnn-create-environment): New file which mimics API of ++ wnnfns.c. ++ ++1997-04-29 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * wnnrpc.el: New file which implements Remote Procedure Calls of WNN. ++ ++1997-04-16 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * its/kanainput.el (normal-pair): Use its-defrule*. ++ ++ * its.el (its-defrule*): Rewritten. ++ ++ * its/hira.el ("n"): Alternative implementation using 'otherwise'. ++ ++ * its.el (its-processing-map): Removed. ++ (its-register-map): Rename from its-set-map. ++ (its-register-map): Remove first argumet NAME. ++ (its-defrule): Remove last optional argument END. ++ (its-define-otherwise-terminate-here): New function. ++ (its-goto-state): New function. ++ (its-defrule, its-defoutput): Use its-goto-state. ++ ++1997-04-12 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * its.el: Enhance meaning of ITS state machine. Now, <key> ++ includes representation of "ANY of key stroke" (-2). ++ (its-defrule): New feature end=='otherwise. ++ (its-defrule*): New function. ++ (its-state-machine): Implement otherwise-terminate-before-this-key. ++ ++ * its/kanainput.el (its-k-zenkaku-escape, its-k-hankaku-escape, ++ its-k-symbols-escape): Add prefix its-. Let them defconst. ++ "W": Move the definition beginning to avoid error. ++ ++1997-03-26 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * convert.el (egg-next-conversion): -1 goes to end of bunsetsu. ++ ++1997-03-25 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * egg.el (egg-mode-on, egg-input-mode, egg-in-fence-mode): Deleted. ++ (egg-fence-face-on, egg-fence-face-off): Deleted. ++ (egg-region-start, egg-region-end): Deleted. ++ ++1997-03-24 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * its/hira.el ("n"): Add "z" and "?" for prefetch char of "n". ++ ++ Implement conversion mode. ++ * convert.el: New file. ++ ++1997-03-23 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * its.el (its-mode-map): As "\C-g" is used in global-map, use ++ "\C-]" instead (for its-cancel-input). ++ ++1997-03-22 NIIBE Yutaka <gniibe@chroot.org> ++ ++ Introduce new scheme to specify server. ++ * wnnfns.c (Qjserver, Qcserver, Qtserver, Qkserver): Removed. ++ (Vwnn_server_type): Integer variable. ++ (wnn_get_server_type): Renamed from wnn_check_server_type. ++ (charset_wnn_server_type): Renamed from lc_wnn_server_type. ++ ++ Introduce new scheme to specify uniqueness. ++ * wnnfns.c (Qwnn_no_uniq, Qwnn_uniq, Qwnn_uniq_kanji): Removed. ++ (Vwnn_uniqueness_specifier): Integer variable. Renamed from ++ wnn_uniq_level. ++ ++1997-03-21 NIIBE Yutaka <gniibe@chroot.org> ++ ++ Cosmetic changes. ++ * wnnfnc.c (Throughout): Change Lisp function name to follow the ++ format of wnn-VERB-OBJECT. ++ Use XFASTINT instead of XINT, if appropriate. ++ ++ * wnnfns.c (Fwnn_fuzokugo_set): Merged with wnn-set-fuzokugo of ++ wnn-egg.el. ++ ++ * wnn-egg.el (wnn-set-fuzokugo): Deleted. ++ ++ * wnnfns.c (Fwnn_dict_add): Merged with wnn-add-dict of wnn-egg.el. ++ * wnn-egg.el (wnn-add-dict): Deleted. ++ ++ * wnn-egg-msg.el (wnn-msg-get): Renamed from egg-msg-get. ++ (wnn-message-alist): Renamed from egg-message-alist. ++ Use defconst. ++ ++ * wnnfns.c (wnn_check_server_type): Renemed from ++ check_wnn_server_type. ++ ++ * wnn-egg-msg.el (egg-error): Deleted. Not useful enough. ++ * wnn-egg.el (Throughout): Replace egg-error by error. ++ ++ * egg.el (egg-sai-henkan-start, egg-sai-henkan-end, ++ egg-old-bunsetu-suu): Moved from wnn-egg.el. ++ ++ * wnn-egg.el (Throughout): Change variable name and function name. ++ Added wnn- prefix, egg- prefix. ++ * wnn-egg.el: Delete historical defaliases. Only support ++ wnn-set-[cjk]server-hostname. ++ ++ * wnn6.el: New file. Discriminate Wnn6 related functions. ++ * eggrc-wnn6: New file. Discriminate Wnn6 related setting. ++ ++ * egg-fence.el: Removed. ++ ++1997-03-20 NIIBE Yutaka <gniibe@chroot.org> ++ ++ Distingush continuation of egg-mode and turn off of egg-mode. ++ * its.el (its-mode-map): Bind "\C-\\" to its-exit-mode-no-egg. ++ (its-exit-mode-internal): New argument egg-mode-flag. ++ (its-exit-mode-no-egg): New Function. ++ ++ Rethink about keymap. Once, the intention of egg-mode-map has ++ been to override ALL of the keymap. That's so selfish, and not ++ friendly to other parts of Emacs. This implementation intend to ++ be more friendly with other keymaps. ++ * its.el (its-mode-map): Remove definition of "\C-c" for ++ its-cancel-input, as C-c has special meaning in Emacs. We should ++ not re-define it. ++ Remove definition of "\C-q" for its-select-previous-map. ++ Remove definition of "\C-_" for egg-jis-code-input. ++ Remove definition of "\C-w", "\C-@", [?\C-\ ] for ++ egg-henkan-fence-region. ++ ++ Implement START/CURSOR/END scheme. ++ * its.el (its-input-to-vsyl): New function. ++ (its-beginning-of-input-buffer): New function. ++ (its-end-of-input-buffer): New function. ++ (its-backward-SYL): New function. ++ (its-forward-SYL): New function. ++ (its-delete-SYL): New function. ++ (its-delete-backward-SYL): New function. ++ (its-delete-backward-SYL-internal): New function. ++ (its-delete-backward-within-SYL): New function. ++ (its-delete-by-keystroke): New Variable. ++ (its-exit-mode): New function. ++ (its-exit-mode-internal): New function. ++ ++ * its.el (its-standard-map-list, its-find, its-next-map, ++ its-previous-map): Deleted. ++ (its-get-indicator): Delete duplicated definition. Leave one which ++ takes <map> argument. ++ (its-input): Rename from its-input-subsubsub. ++ ++ * egg.el (egg-mode-map): Don't include SPACE. ++ ++ Introduce CURSOR. ++ * its.el (its-state-machine): Add new argument EMIT. Return CURSOR. ++ (its-state-machine-keyseq): Likewise. ++ (its-input-subsubsub): Return CURSOR. ++ (its-input-subsub): Deleted. ++ (its-DSYL-p): Deleted. ++ (its-buffer-insert-SYL-list): Deleted. ++ (its-buffer-ins/del-SYL): New function. ++ (its-input-end): Change the argument to P of point, and return VOID. ++ ++ Change structure of <map>. <start-state> is normal <state>. ++ (its-new-map): Follow the change of structure. ++ (its-get-indicator, its-set-indicator, its-reset-start-state): ++ Likewise. ++ (its-reset-start-state): Renamed from its-reset-start. ++ ++ Don't use <input-buffer>, but introduce new scheme of SYL property. ++ (its-change-t-to-nil, its-nil-index, its-bytes-between, ++ its-delete-between, its-move-nil--->, its-move-nil-<--, ++ its-move-nil-<--sub, its-move-nil-to-last, its-move-nil-to-first): ++ Deleted. ++ ++1997-03-19 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * its.el: Change the structure of DSYL. Same as <state>. ++ (its-input-subsub): Follow the change of structure. ++ (its-make-DSYL): Deleted. ++ (its-get-keyseq-cooked): New function. ++ ++ Swap the meaning of T/NIL of <SYL>. ++ ++ Delete the structure of <input-buffer>. ++ (its-new-input-buffer): Deleted. ++ (its-input-subsub): Remove the argument SYLP. ++ (its-input, its-input-sub, its-init-text-properties): Deleted. ++ ++ Introduce START, END and CURSOR. ++ ++1997-03-19 NIIBE Yutaka <gniibe@akebono.etl.go.jp> ++ ++ Global-map should be used, for key sequence not defined by ++ its-mode-map and/or egg-mode-map. Don't mask other maps. ++ * its.el (its-mode-esc-map): Deleted. ++ (its-mode-map): Include define-key of the esc-map here. ++ * egg.el (egg-mode-esc-map): Deleted. ++ (egg-mode-map): Include define-key of the esc-map here. ++ ++1997-03-18 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * its.el (its-input): Rename from its-input-input-buffer. ++ (its-state-machine): Handle END of input (key == -1). ++ ++ ITS minor mode deleted. It's implemented by local-map of text ++ properties. ++ (its-mode): Remove the variable. ++ (its-mode): Remove the function. ++ ++ * its.el (<input-buffer>): Change the order of <SYL> list. ++ (car sylp) is last entry of the list. ++ (its-input-buffer): Deleted. It's now a member of text ++ properties. ++ (<map>): Change the structure. Start state should have "" for keyseq. ++ (its-get-start-state): Follow chage of the <map> structure. ++ (its-reset-start, its-set-indicator, its-get-indicator): Likewise. ++ (its-new-state, its-new-map): Split from its-new-state/map. ++ (its-make-map): Deleted. ++ ++1997-03-17 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * its.el (its-buffer-insert-SYL-list): Use insert-and-inherit to ++ inherit properties. ++ (its-fence-overlay): Removed. Don't use overlay, as it has no ++ information in undo-list. ++ ++1997-03-16 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * its/hira.el ("n"): Use new feature END. ++ ("ppy", "bby", "ddy", "jjy", "zzy", "ggy", "lly", "rry", "hhy", ++ "cch", "tts", "tty", "ssh", "ssy", "kky"): its-defoutput. ++ ++ * its.el (its-defrule): Add argument END. ++ (its-buffer-delete-SYL): Bug fix. Use length instead of string-width. ++ ++1997-03-15 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * its.el (its-input-input-buffer): Implement the case of DSYL. ++ ++1997-03-14 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * its.el (its-buffer-delete-SYL): Handle the case of NIL. ++ ++ * its/hira.el: Implement "kka" and others. Implemlement "N". ++ (digit-characters, symbol-characters, downcase-alphabets, ++ upcase-alphabets): Delete useless defvar-s. ++ ++1997-03-14 NIIBE Yutaka <gniibe@akebono.etl.go.jp> ++ ++ * its/hira.el ("roma-kana"): Follow change of implementation of ++ state machine. ++ ++ Correct the abuse of the word "MODE". It seems that it's direct ++ influence of "mode" in Emacs, but it's not mode at all. ++ * its.el (its-map-alist): Renamed from its-mode-alist. ++ (its-get-map): Renamed from its-get-mode-map. ++ (its-set-map): Renamed from its-set-mode-map. ++ (its-define-state-machine): Renamed from its-define-mode. ++ (its-select-map-menu): Renamed from its-select-mode-menu. ++ (its-select-map-from-menu): Renamed from its-select-mode-from-menu. ++ (its-standard-map-list): Renamed from its-standard-modes. ++ (its-next-map): Renamed from its-next-mode. ++ (its-previous-map): Renamed from its-previous-mode. ++ (its-select-map): Renamed from its-select-mode. ++ (its-get-indicator): Renamed from its-get-mode-indicator. ++ ++ (its-select-map-from-menu): As it's not mode, don't need offer hooks. ++ (its-next-map): Likewise. ++ (its-previous-map): Likewise. ++ (its-select-map): Likewise. ++ ++ Change the implementation of its-mode-alist. Name is in <map> now. ++ * its.el (its-get-mode-map): Just do assoc. ++ (its-set-mode-map): Simplified. ++ ++ * its.el (its-get-indicator): Renamed from its-map-indicator. ++ (its-set-indicator): Renamed from its-map-set-indicator. ++ (its-get-start-state): Renamed from its-map-start. ++ (its-new-state): Change the argunents. ++ (its-map-set-start): Removed. ++ (its-reset-start): New function. ++ ++ Remove old implemantation of translator. ++ * its.el (its-resize, its-maps, its-actions, its-inputs, ++ its-level, its-maxlevel, its-char-from-buff, its-interactive): ++ Removed. ++ (its-make-action, its-reset-maps, its-current-map, ++ its-previous-map, its-level, its-enter-newlevel, its-reset-input, ++ its-flush-input-before-point, its-peek-char, its-read-char): ++ Removed. ++ (its-push-char, its-ordinal-charp, its-delete-charp): Removed. ++ (its-translate-region): Removed. ++ (its-buff-s, its-buff-e): Removed. ++ (its-state-terminalp): Removed. ++ ++ Remove selection of candidates in map, it's questionable to ++ implement this feature with SYL. Might rethink in future. ++ (its-make-menu-from-map-result, its-make-alist-from-map-result): ++ Removed. ++ (its-make-menu-from-map, its-make-menu-from-map*): Removed. ++ (its-make-alist-from-map, its-make-alist-from-map*): Removed. ++ (its-completing-read): Removed. ++ (its-minibuffer-local-must-match-map, ++ its-minibuffer-local-completion-map): Removed. ++ (its-minibuffer-completion-help, car-string-lessp, ++ its-temp-echo-area-contents): Removed. ++ ++ Implement SYL-based state machine. ++ * its.el (its-input-buffer, its-barf-on-invalid-keyseq): New variables. ++ (its-new-input-buffer): New function. ++ (its-self-insert-char): New command. ++ (its-initial-ISYL, its-make-DSYL, its-make-VSYL, ++ its-input-input-buffer, its-input-input-buffer-sub, ++ its-state-machine, its-state-machine-keyseq, ++ its-buffer-delete-SYL, its-buffer-insert-SYL-list, ++ its-get-next-state, its-get-ksa/b, its-get-keyseq, its-ksa-p, ++ its-get-output): New function. ++ (its-get-KAS): Removed. ++ (its-get-state, its-get-action, its-set-action): Removed. ++ (its-make-KAS, its-get-KAS): Removed. ++ ++ * its.el (its-defrule-sub): Merged into its-defrule. ++ ++1997-03-13 NIIBE Yutaka <gniibe@akebono.etl.go.jp> ++ ++ * its.el: (its-define-mode): Change the arguments. ++ * its/zhuyin.el ("zhuyin"): Follow the changes of its-define-mode. ++ * its/zenkaku.el ("zenkaku-downcase"): Likewise. ++ * its/pinyin.el ("PinYin"): Likewise. ++ * its/kata.el ("roma-kata"): Likewise. ++ * its/kanainput.el ("kanainput"): Likewise. ++ * its/hira.el ("roma-kana"): Likewise. ++ * its/hankaku.el ("downcase"): Likewise. ++ * its/hangul.el ("hangul"): Likewise. ++ * its/han-kata.el ("roma-han-kata"): Likewise. ++ ++ * its.el (its-action-output, its-action-next, its-get-next-map, ++ its-set-next-map): Removed. ++ (its-make-next-state): New function. ++ (its-make-state): Removed. ++ ++ * its.el (its-defrule-sub): Renamed from `its-defrule**'. ++ ++ * wnnfns.h: New file. Macros for WNN6 are defined here. ++ * wnn6fns.c: New file. Moved from wnnfns.c for WNN6 specific ++ functions. ++ ++1997-03-12 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * wnnfns.c: cosmetic changes (indentation, commenting-out-style, ++ and compare to Qnil, etc). ++ Get rid of "register" qualifier. ++ ++1997-03-05 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * its.el (its-define-mode): Change internal structure. Completely ++ rewritten. ++ (its-make-map): Function to make map. ++ (its-make-state): New function. Make new state. ++ (its-make-KAS): New function. Make Key-Action-State triad. ++ (its-state-terminalp): New function. True when the state is ++ terminal. ++ (its-map-indicator, its-map-set-indicator,): Changed. ++ (its-map-terminalp, its-map-incrementalp, ++ its-map-set-incrementalp, its-map-alist, its-map-set-alist, ++ its-map-action, its-map-set-action): Removed. ++ ++ (its-defrule-verbose): Deleted. Seems debug purpose variable. ++ ++ (its-make-map): Removed <state>. It was useless space eater. ++ (its-map-indicator, its-map-set-indicator, its-map-alist, ++ its-map-set-alist, its-map-action, its-map-set-action): Follow the ++ change. ++ (its-define-mode): Likewise. ++ (its-defrule**): Change the argument. Delete STATE. ++ (its-defrule): Likewise. ++ (its-map-state, its-map-set-state): Removed. ++ ++ <topmap>: Changed the structure. Introduce <incrementalp>, which ++ is t on hangul-map, zhuyin-map, and kanainput-map. ++ (its-define-mode): Change the arguments. INDICATOR and RESET is ++ always required. Add new argument INCREMENTALP. ++ * its/kanainput.el ("kanainput"): Use new API of its-define-mode. ++ * its/hangul.el ("hangul"): Likewise. ++ * its/zhuyin.el ("zhuyin"): Likewise. ++ * its.el (its-make-terminal-state-sofar): Removed. ++ (its-default-make-terminal-state): Removed. ++ (its-make-terminal-state): Removed ++ (its-make-non-terminal-state): Removed. Not used. ++ (its-map-incrementalp, its-map-set-incrementalp): New functions. ++ ++1997-03-04 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * its.el (its-defrule-conditional, its-defrule-conditional*): ++ Removed. Evaluating cond clause at runtime is stupid. Rules ++ should be determined at compile time, not at run time. ++ (its-get-action): Simplified. It's always standard. ++ (its-make-terminal-state-sofar): Likewise. ++ (its-make-action): Renamed from its-make-standard-action. ++ (its-standard-actionp): Removed. No use. ++ (its-translate-region): Simplified. ++ ++ (its-map-topmap-p): Removed. No use. ++ ++ (its-simple-actionp, its-collect-simple-action): Removed. No use. ++ ++ (its-insert-output-string, its-display-status-string): Removed. ++ It seemd these variables is to debug ITS itself. ++ (its-translate-region): Simplified. ++ ++ * its/hira.el (".", ",", "n", "nn"): Rules should be determined at ++ compile time. ++ * its/han-kata.el: Likewise. ++ * its/kata.el: Likewise. ++ ++ * its.el (its-make-standard-action): Simplified. ++ (its-make-standard-action): Remove alternative output. ++ (its-standard-actionp): Simplified. ++ (its-action-next): Simplified. ++ (its-select-alternative-output-menu): Removed. Not used at all. ++ (its-select-alternative-output): Ditto. ++ ++ * its/han-kata.el, its/zenkaku.el, its/kata.el, its/kanainput.el, ++ its/hira.el, its/hankaku.el: Add (require cl). ++ ++ * its.el (its-enable-double-n-syntax, its-use-kuten-for-period, ++ its-use-touten-for-comma, its-zenkaku-escape, its-hankaku-escape): ++ Declare here. Add prefix `its-'. ): ++ ++ (its-defrule, its-defrule*): Remove MAP argument. ++ Merged into its-defrule. ++ ++1997-03-04 NIIBE Yutaka <gniibe@akebono.etl.go.jp> ++ ++ * its.el (its-completing-input-menu): Removed. Not used. ++ (its-completing-input): Ditto. ++ (its-translate-region): Remove (null action) clause. It's identical ++ to 't' case. ++ ++ (its-map-supers): Deleted. ++ (its-map-set-supers): Ditto. ++ (its-get-next-map-locally): Deleted. ++ ++ (its-define-mode): Remove supers. ++ (its-make-map): Likewise. ++ ++ (its-simulate-input): sref -> aref. add char-bytes -> +1. ++ (its-defrule**): Likewise. ++ ++ (its-flush-input-before-point): Delete useless save-excursion. ++ (its-push-char): Likewise. ++ (its-translate-region): Likewise. ++ ++ * its/zhuyin.el (its-make-terminal-state): ++ * its/kanainput.el (its-make-terminal-state): ++ * its/hangul.el (its-make-terminal-state): ++ Use its-make-terminal-state-sofar. ++ ++ * its/kanainput.el (its-make-terminal-state-kanainput): Removed. ++ ++ * its.el (its-make-terminal-state-sofar): Renamed. ++ (was: its-make-terminal-state-hangul) ++ ++ * its/han-kata.el (its-select-hankaku-katakana): Renamed. ++ (was: its:select-hankaku-katakana). ++ ++ * its.el (its-map-topmap-p, its-map-supers, its-map-set-supers, ++ its-map-terminalp, its-map-state, its-map-set-state, ++ its-map-indicator, its-map-set-indicator, its-map-action, ++ its-map-set-action, its-map-alist, its-map-set-alist, ++ its-get-action, its-action-output, its-action-next, ++ its-get-next-map, its-get-next-map-locally, its-set-next-map, ++ its-collect-simple-action, its-read-current-its-string, ++ its-make-map): Add prefix 'its-'. ++ ++ * its.el (its-defrule-select-mode-temporally): Deleted. ++ (its-select-mode-temporally): Deleted. ++ (its-select-previous-mode): Deleted. ++ ++ * its/hira.el ("q", "Q"): Removed. ++ ++ * its.el (its-defrule**): Don't call coerce-internal-string. ++ (map-state-string): Removed. ++ (its-default-make-standard-non-terminal-state): Don't call ++ map-state-string. ++ ++ * egg.el (characterp, coerce-internal-string, coerce-string): Removed. ++ ++ * its.el (its-insert-char): Deleted. ++ (its-internal-mode-alist): Removed. ++ (its-set-mode-map, its-define-mode): Remove internalp. ++ (its-set-mode-indicator): Removed. ++ ++ * egg-fence.el (egg-fence-self-insert-command): Add prefix 'egg-'. ++ ++ * its.el (fence-self-insert-command): Move to egg-fence.el. ++ ++ * egg-fence.el (egg-exit-fence-mode): Renamed (egg-fence-exit-mode). ++ (egg-enter-fence-mode-and-self-insert): Deleted. ++ ++ * egg.el (egg-quit-egg-mode): Deleted. ++ ++ * egg-misc.el (egg-fence-toggle-egg-mode): Add prefix 'egg-'. ++ (egg-fence-toggle-egg-mode): beep -> ding. ++ (global-map): bind C-\ to egg-enter-fence-mode. ++ ++1997-03-02 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * egg-henkan.el: New file. ++ ++ Use new API (egg-get-bunsetu-kanji, egg-get-bunsetu-yomi, ++ egg-is-dai-bunsetu, bunsetu-suu, egg-hindo-update, ++ egg-get-bunsetu-end). ++ ++ * wnn-egg.el: Move egg-henkan-* to egg-henkan.el. ++ ++ * wnn-egg.el (egg-startup-file-search-path): Remove current ++ directory. ++ (egg-open-wnn): Renamed from EGG-open-wnn. ++ (bunsetu-suu): New function. ++ (egg-get-bunsetu-kanji, egg-get-bunsetu-yomi): New function. ++ (egg-is-dai-bunsetu): New function. ++ (egg-hindo-update): New function. ++ (egg-get-bunsetu-end): New function. ++ ++ (egg-henkan-region, egg-gyaku-henkan-region, ++ egg-henkan-region-internal, egg-henkan-paragraph, ++ egg-gyaku-henkan-paragraph, egg-henkan-sentence, ++ egg-gyaku-henkan-sentence, egg-henkan-word, egg-gyaku-henkan-word, ++ egg-henkan-insert-kouho, egg-henkan-kakutei, ++ egg-henkan-kakutei-first-char, egg-henkan-kakutei-before-point, ++ egg-sai-henkan, egg-henkan-goto-bunsetu, ++ egg-henkan-forward-bunsetu, egg-henkan-backward-bunsetu, ++ egg-henkan-first-bunsetu, egg-henkan-last-bunsetu, ++ egg-henkan-hiragana, egg-henkan-katakana, egg-henkan-next-kouho, ++ egg-henkan-next-kouho-dai, egg-henkan-next-kouho-sho, ++ egg-henkan-previous-kouho, egg-henkan-previous-kouho-dai, ++ egg-henkan-previous-kouho-sho, egg-henkan-goto-kouho, ++ egg-henkan-bunsetu-chijime-dai, egg-henkan-bunsetu-chijime-sho, ++ egg-henkan-bunsetu-nobasi-dai, egg-henkan-saishou-bunsetu, ++ egg-henkan-saichou-bunsetu, egg-bunsetu-length-henko, ++ egg-henkan-quit, egg-henkan-select-kouho, ++ egg-henkan-select-kouho-dai, egg-henkan-select-kouho-sho, ++ egg-henkan-word-off, egg-henkan-kakutei-and-self-insert, ++ egg-henkan-mode-map, egg-henkan-mode-esc-prefix, ++ egg-henkan-help-command, egg-henkan-inspect-bunsetu): ++ Add prefix `egg-'. ++ ++ (egg-henkan-mode-in-use): Deleted. ++ (set-egg-henkan-mode-format): Deleted. Don't need. ++ ++ (disconnect-wnn): Let it be normal function, instead of command. ++ (close-wnn): Ditto. ++ ++ (set-jserver-host-name, set-kserver-host-name, ++ set-cserver-host-name): Use defalias. ++ ++ (close-wnn): Take an argument of wnn-server-type. ++ (wnn-egg-kill-emacs-function, set-wnn-host-name, ++ set-cwnn-host-name, set-kwnn-host-name): Likewise. ++ ++ * egg.el (egg-global-map-backup): Deleted. ++ (egg-local-map-backup): Deleted. ++ (egg-insert-after-hook): it's global variable, nod buffer-local. ++ ++ * egg-fence.el (egg-henkan-fence-region, egg-enter-fence-mode, ++ egg-fence-katakana, egg-fence-hiragana, egg-fence-hankaku, ++ egg-fence-zenkaku, egg-fence-backward-char, ++ egg-fence-forward-char, egg-fence-beginning-of-line, ++ egg-fence-end-of-line, egg-fence-transpose-chars, ++ egg-fence-delete-char, egg-fence-backward-delete-char, ++ egg-fence-kill-line, egg-fence-exit-mode, egg-fence-cancel-input, ++ egg-fence-mode-help-command): Add Prefix `egg-'. ++ ++ (egg-fence-mode-map): Remove binding to eval-expression (C-z). ++ ++ (egg-self-insert-non-undo-count): Removed. ++ (egg-self-insert-command): Removed. ++ ++ (egg-fence-backward-char, egg-fence-forward-char, ++ egg-fence-transpose-chars, egg-fence-delete-char, ++ egg-fence-backward-delete-char): beep -> ding. ++ wnn-egg.el (egg-henkan-select-kouho): Likewise. ++ ++1997-02-27 NIIBE Yutaka <gniibe@chroot.org> ++ ++ * wnn-egg.el (push-end, push-end-internal): Removed. ++ ++ * its.el (dolist): Removed. It's in CL package. ++ (for-each, for-each*): Removed. ++ ++ * egg-keymap.el: Removed. I guess noone use it. ++ ++ * egg-jsymbol.el (*-alist): Declare by defconst. ++ ++ * egg-misc.el (toggle-egg-mode): Removed. ++ ++ * All files: Change the identifier XXX:YYYY --> XXX-YYYY, ++ and *YYY* ---> YYY. ++ ++ * egg-fence.el (enter-fence-mode): Use new API for marker ++ insertion `set-marker-insertion-type'. ++ * its.el (its-*buff-e*): Likewise. ++ ++ * egg-jsymbol.el: lc-jp --> (charset-id 'japanese-jisx0208) ++ lc-jp2 --> (charset-id 'japanese-jisx0212). ++ ++1997-02-26 NIIBE Yutaka <gniibe@akebono.etl.go.jp> ++ ++ * egg-fence.el (egg:fence-mode-map): Renamed from fence-mode-map. ++ (egg:fence-mode-esc-prefix): Renamed from egg:fence-mode-esc-map. ++ (henkan-fence-region-or-single-space): Removed. ++ ++ * egg-misc.el (toggle-egg-mode): mc-flag ++ -> enable-multibyte-characters. ++ ++ * its.el (read-current-its-string): New function. Moved from ++ wnn-egg-misc.el. ++ (In meny functions): beep --> ding. ++ ++ * egg-misc.el (read-hiragana-string): Removed. ++ (read-kanji-string): Removed. ++ (egg:special-symbol-input): Renamed from special-symbol-input. ++ (egg:special-symbol-input-point): Renamed from ++ special-symbol-input-point. ++ (si:*global-map*): Remeved. ++ Removed 'Changes on Global map'. ++ (its-mode-map): Renamed from mule-keymap. ++ ++ * wnn-egg.el (henkan-region-internal): Use new API for undo. ++ (henkan-kakutei): Likewise. ++ (henkan-kakutei-first-char): Likewise. ++ (henkan-kakutei-before-point): Likewise. ++ (sai-henkan): Likewise. ++ * egg.el (egg:quit-egg-mode): Likewise. ++ ++ * egg-fence.el (egg:*fence-open*, egg:*fence-close*, ++ egg:*fence-face*): Let them be declared by defvar. ++ (egg:*fence-open-in-cont*, egg:*fence-close-in-cont*, ++ egg:*fence-face-in-cont*): Likewise. ++ ++ (set-egg-fence-mode-format): Removed. Useless. Don't need to be ++ interactive. ++ (set-egg-fence-mode-format-in-cont): Removed. ++ (egg:*face-alist*): Removed. ++ ++ * wnn-egg-misc.el (its:select-mode, its:select-mode-from-menu, ++ its:next-mode, its:previous-mode): ++ Removed (Merged into its.el). ++ ++ * its.el (its:select-mode, its:select-mode-from-menu, ++ its:next-mode, its:previous-mode): Call hook of ++ `its:select-mode-hook'. ++ ++ * diced.el: Removed. This depends on wnn. Functions are moved to ++ wnn-egg-dict.el. ++ ++ * wnn-egg-dict.el (remove-regexp-in-string): Removed. ++ (toroku-region): Don't call `remove-regexp-in-string'. Removing ++ invalid sequence (TAB?) automatically is not good idea. It should ++ notify user. Currently, just don't remove. ++ ++ * busyu.el (busyu-table): defconst instead of defvar. ++ (busyu-kaku-alist): defconst instead of defvar. ++ ++ * its.el (egg:member): Removed. Not used. ++ ++ * wnn-egg-msg.el (*egg-message-alist*): Include asking string in ++ register-notify and remove-notify. Should also change Korean and ++ Chinese. ++ ++ * egg.el: Removed "Tamago Notification System". ++ It is useless, as we have *Messages* buffer in GNU Emacs 19. ++ ++ * diced.el (diced-execute): Don't use `notify' but `message'. ++ (set-dict-comment): Likewise. ++ * its.el (its-defrule**): Likewise. ++ * wnn-egg-dict.el (egg:toroku-word): Likewise. ++ * wnn-egg-msg.el (egg:error): Likewise. ++ * wnn-egg.el (set-wnn-param): Likewise. ++ (EGG:open-wnn): Likewise. ++ (close-wnn): Likewise. ++ (henkan-word-off): Likewise. ++ (henkan-inspect-bunsetu): Likewise. ++ ++ * diced.el (diced-execute): Don't use `notify-yes-or-no-p' but use ++ plain `yes-or-no-p' and format. ++ * wnn-egg-dict.el (egg:toroku-word): Likewise. ++ ++ * egg.el (notify-yes-or-no-p-internal): IIDESUKA is not good. ++ it should get the message through egg:get-msg. Currently, use ++ "OK?". ++ (notify-y-or-n-p-internal): Likewise. ++ ++ * wnn-egg.el: Split into wnn-egg-dict.el, wnn-egg-misc.el, and ++ wnn-egg-msg.el. ++ (many functions): remove commented out line of ++ (open-wnn-if-disconnected). ++ ++ * egg.el: Split into egg.el, egg-fence.el, egg-misc.el, ++ jis-input.el, and modeline.el. ++ ++ * wnn-egg.el (egg-default-startup-file): change to eggrc-wnn from ++ eggrc. ++ (henkan-region-internal): Use new API for marker insertion ++ `set-marker-insertion-type'. ++ ++1997-02-13 NIIBE Yutaka <gniibe@akebono.etl.go.jp> ++ ++ * menu.el (menu:select-from-menu): Rewritten. +diff -duNrp ../tamago-4.0.6/ChangeLog.2000-2001 ./ChangeLog.2000-2001 +--- ../tamago-4.0.6/ChangeLog.2000-2001 Thu Jan 1 09:00:00 1970 ++++ ./ChangeLog.2000-2001 Mon Aug 26 08:55:41 2002 +@@ -0,0 +1,371 @@ ++2001-12-01 ? ++ ++ * egg/wnn.el (wnn-server-info-list): Use `defvar' instead of ++ `defconst' to define it. ++ ++2001-12-01 KATAYAMA Yoshio <kate@pfu.fujitsu.com> ++ ++ * egg-x0213.el: New file. ++ ++2001-11-10 Kinji Itoh <kinji-i@gray.plala.or.jp> ++ (cf. http://cgi18.plala.or.jp/nyy/canna/canna-20011023-20011110.diff) ++ ++ * egg/canna.el (canna-server-port): Default to the string "canna". ++ (cannna-open): Treat the port name as a string instead of a number. ++ ++2001-11-08 Kinji Itoh <kinji-i@gray.plala.or.jp> (cf. [tamago:00546]) ++ ++ * egg/canna.el (canna-set-converted-yomi): New function. ++ (canna-start-conversion): Use it. ++ (canna-change-bunsetsu-length): Use it. ++ ++2001-10-22 Yoichi NAKAYAMA <yoichi@eken.phys.nagoya-u.ac.jp> ++ (cf. [tamago:00534]) ++ ++ * egg/canna.el (canna-word-delete-regist): Signal an error using ++ `egg-error' if there is no text for yomi. ++ ++2001-08-16 KATAYAMA Yoshio <kate@pfu.fujitsu.com> (cf. [tamago:00516]) ++ ++ * its/greek.el: New file. ++ ++2001-07-24 KATAYAMA Yoshio <kate@pfu.fujitsu.com> (cf. [tamago:00504]) ++ ++ * eggrc (wnn7-jserver-setup): New function. ++ ++2001-06-28 Yoshiki Hayashi <yoshiki@xemacs.org> (cf. [tamago:00468]) ++ ++ * egg-cnv.el (egg-end-of-conversion-buffer): Replace ++ `next-single-property-change' to `egg-next-single-property-change'. ++ (egg-decide-before-point): Ditto. ++ (egg-exit-conversion): Ditto. ++ (egg-abort-conversion): Ditto. ++ ++ * egg.el (egg-last-method-name): Default to nil. ++ ++ * its-keydef.el: Set the default value of `its-select-func-alist' ++ to nil. ++ ++ * its.el (its-current-language): Default to nil. ++ (its-mode-map): Use `(meta KEY)' instead of `M-KEY'. ++ ++ * egg/canna.el (canna-open): Use `binary' instead of ++ `no-conversion' for the process coding-system. ++ * egg/sj3.el (sj3-open): Ditto. ++ * egg/wnn.el (wnn-open): Ditto. ++ ++ * egg/wnnrpc.el (wnnrpc-with-temp-buffer): Use `binary' instead of ++ `no-conversion'. ++ (wnnrpc-with-write-file): Ditto. ++ ++2001-05-24 KATAYAMA Yoshio <kate@pfu.fujitsu.com> (cf. [tamago:00462]) ++ ++ * its/aynu.el: Require `cl' when compiling. ++ ++2001-05-23 Katsumi Yamaoka <yamaoka@jpl.org> (cf. [tamago:00461]) ++ ++ * egg.el: Require `cl' only when compiling. ++ * its.el: Ditto. ++ ++2001-05-22 KATAYAMA Yoshio <kate@pfu.fujitsu.com> ++ ++ * its.el (its-delete-by-character): New customizable variable. ++ (its-delete-backward-SYL): Delete a character as a unit even if ++ just after input, if its-delete-by-character is non-NIL. ++ ++2001-04-16 KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++ * egg.el (egg-setup-invisibility-spec): New function for setup ++ buffer-invisibilty-spec. ++ ++ * its.el (its-setup-fence-mode): Change the value of invisible ++ property to egg. ++ ++ * egg-cnv.el (egg-convert-region): Change the value of invisible ++ property to egg. ++ ++ * jisx0213.el: Correct JIS X 0213 definition. (suggested by ++ T. Kawabata) ++ +2000-06-02 KATAYAMA Yoshio <kate@pfu.co.jp> + + * egg/wnn.el (wnn): Fix docstring. @@ -129,13 +5065,651 @@ diff -rdu ../tamago-4.0.6.org/ChangeLog ./ChangeLog + + * eggrc: Remove SJ3 stuff. + - 2000-01-17 TOMURA Satoru <tomura@etl.go.jp> - - * Version 4.0.6 released -diff -rdu ../tamago-4.0.6.org/egg/canna.el ./egg/canna.el ---- ../tamago-4.0.6.org/egg/canna.el Tue Jan 4 15:56:14 2000 -+++ ./egg/canna.el Fri Mar 16 14:14:11 2001 -@@ -30,257 +30,861 @@ ++2000-01-17 TOMURA Satoru <tomura@etl.go.jp> ++ ++ * Version 4.0.6 released ++ ++2000-01-17 TOMURA Satoru <tomura@etl.go.jp> ++ ++ * README.ja.text: mentiond about doc/lc99.text ++ ++2000-01-17 KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++ * its.el (its-hiragana, its-katanaka): modified ++ (its-zenkaku, its-hankaku): added ++ (its-put-cursor): bug fixed. ++ (its-set-cursor-status): redefined. ++ (its-search-beginning, its-search-end): created. ++ (its-end-of-input-buffer): modified. ++ (its-kill-line): modified. ++ (its-cancel-input): modified. ++ (its-japanese-hankaku): added. ++ (its-convert): added. ++ * egg.el (egg-redraw-face): bug fixed. ++ ++2000-01-17 SAKAI Kiyotaka <ksakai@kso.netwk.ntt-at.co.jp> ++ ++ * its.el (its-hiragana, its-katakana): re-added. ++ ++2000-01-17 SANETO Takanori <sanewo@ba2.so-net.ne.jp> ++ ++ * Makefile.in: move its-keydefs.el from ITSELS to TOPELS ++ ++2000-01-16 ++ ++ * egg-sim.el: many functions renamed and modified... ++ * doc/code-table: created ++ ++2000-01-15 TOMURA Satoru <tomura@etl.go.jp> ++ ++ * egg-sim.el: rename egg-code.el as egg-sim.el ++ * egg-sim.el (egg-simple-input-method): rename ++ egg-insert-character as egg-simple-input-method ++ * egg.el: rename egg-insert-character as egg-simple-input-method ++ * doc/lc99.txt: added. ++ ++2000-01-14 TOMURA Satoru <tomura@etl.go.jp> ++ * egg-code.el: created ++ * egg.el: Bind egg-insert-character to C-^ in egg-mode ++ * egg.el: Delete the binding for C-_ in egg-mode ++ * Makefile.in: add egg-code to ${SRCS} ++ ++2000-01-13 TOMURA Satoru <tomura@etl.go.jp> ++ ++ * Version 4.0.5 released. ++ ++2000-01-13 Katsumi Yamaoka <yamaoka@jpl.org> ++ ++ * egg/sj3.el (sj3-end-conversion): Restrain from overrunning. ++ ++2000-01-13 Katsumi Yamaoka <yamaoka@jpl.org> ++ * egg/sj3rpc.el (sj3rpc-open): Use `sj3-server-version' instead of ++ 2. ++ (sj3rpc-unpack-mb-string): New macro. ++ (sj3rpc-tanbunsetsu-conversion, sj3rpc-get-bunsetsu-candidates-sub, ++ sj3rpc-begin): Use it instead of `comm-unpack'. ++ ++ (sj3rpc-server-coding-system): New macro. ++ (sj3rpc-kugiri-stdy, sj3rpc-tanbunsetsu-conversion, ++ sj3rpc-get-bunsetsu-candidates, sj3rpc-get-bunsetsu-candidates-sub, ++ sj3rpc-begin, sj3rpc-unpack-mb-string): Use it. ++ ++ (sj3-const): Switch on the value of `sj3-server-version'. ++ (sj3rpc-kugiri-stdy, sj3rpc-tanbunsetsu-conversion, ++ sj3rpc-get-bunsetsu-candidates, sj3rpc-get-bunsetsu-candidates-sub, ++ sj3rpc-begin): Modify for it. ++ ++ * egg/sj3.el (sj3-server-coding-system-list): New user option. ++ (sj3-server-version): Ditto. ++ ++2000-01-13 SAKAI Kiyotaka <ksakai@kso.netwk.ntt-at.co.jp> ++ ++ * its.el: typo ++ * egg.el: typo ++ ++2000-01-13 KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++ * its.el(its-hiragana, its-katakana): does not work. so deleted. ++ ++2000-01-12 NAKAJI Hiroyuki <nakaji@tutrp.tut.ac.jp> ++ ++ * README.ja.txt: typo ++ * Makefile.in: (clean, distclean): modified. ++ ++2000-01-12 TOMURA Satoru <tomura@etl.go.jp> ++ ++ * Version 4.0.4 released. ++ ++2000-01-12 TOMURA Satoru <tomura@etl.go.jp> ++ ++ * REAMDE: removed. ++ ++ * README.ja.txt: created. ++ ++2000-01-12 SAKAI Kiyotaka <ksakai@kso.netwk.ntt-at.co.jp> ++ ++ * Makefile.in: "clean" removes ${ELCS}. ++ ++ * Makefile.in: "distclean" created. ++ ++2000-01-12 Satoru Tomura <tomura@etl.go.jp> ++ ++ * Version 4.0.3 released. ++ ++2000-01-12 Satoru Tomura <tomura@etl.go.jp> ++ ++ * install-sh: copied from automake distribution ++ ++ * configure.in: created ++ ++ * Makefile.in: created ++ ++ * configure: generated by autoconf ++ ++2000-01-11 Satoru Tomura <tomura@etl.go.jp> ++ ++ * leim-list.el: (defgroup sj3) added. ++ ++ * egg/sj3.el (sj3-hosname, sj3-server-port): defcusotm'ed ++ ++2000-01-11 Katsumi Yamaoka <yamaoka@jpl.org> ++ ++ * egg/sj3.el : (require 'egg) added. ++ ++2000-01-11 SAKAI Kiyotaka <ksakai@kso.netwk.ntt-at.co.jp> ++ ++ * its.el (its-hiragana, its-katakana): New functions ++ ++2000-01-07 Tomura Satoru <tomura@etl.go.jp> ++ ++ * COPYING: The file is added. ++ ++ * ChangeLog.1: The original ChangeLog is renamed as. ++ ++ * ChangeLog: Created. ++ ++2000-01-07 Tomura Satoru <tomura@etl.go.jp> ++ ++ * Version 4.0.2 released. ++ ++2000-01-06 Tomura Satoru <tomura@etl.go.jp> ++ ++ * Version 4.0.1 released. ++ ++2000-01-05 Tomura Satoru <tomura@etl.go.jp> ++ ++ * Version 4.0.0 released. ++ ++ +diff -duNrp ../tamago-4.0.6/Makefile.in ./Makefile.in +--- ../tamago-4.0.6/Makefile.in Sun Jan 16 00:39:09 2000 ++++ ./Makefile.in Wed Sep 4 22:59:10 2002 +@@ -8,6 +8,10 @@ + .SUFFIXES: + SHELL = @SHELL@ + ++srcdir = @srcdir@ ++top_srcdir = @top_srcdir@ ++VPATH = @srcdir@ ++ + #------------------------------------------------ + # Configuration parameters + #------------------------------------------------ +@@ -31,7 +35,7 @@ INSTALL_INFO = install-info + # ;; install files into the emacs site-lisp directory + # ;; ex. /usr/local/share/emacs/site-lisp/egg + +-DEPS = -l ./docomp.el ++DEPS = -l $(top_srcdir)/docomp.el -l $(top_srcdir)/jisx0213.el + BATCHFLAGS = -batch -q -no-site-file -no-init-file + + ETCS = Makefile docomp.el \ +@@ -46,9 +50,9 @@ TOPSRCS = \ + egg-edep.el \ + egg-com.el \ + egg-cnv.el \ +- egg-util.el \ + egg-mlh.el \ + egg-sim.el \ ++ egg-x0213.el \ + menudiag.el \ + its.el \ + its-keydef.el \ +@@ -58,12 +62,15 @@ EGGSRCS = \ + egg/cannarpc.el egg/canna.el \ + egg/sj3rpc.el egg/sj3.el \ + egg/wnnrpc.el egg/wnn.el \ ++ egg/anthyipc.el egg/anthy.el + + # + ITSSRCS = \ + its/ascii.el \ ++ its/aynu.el \ + its/bixing.el \ + its/erpin.el \ ++ its/greek.el \ + its/hankata.el \ + its/hira.el \ + its/jeonkak.el \ +@@ -138,9 +145,7 @@ uninstall-site: + egg/sj3rpc.elc: egg-com.elc egg/sj3.elc + egg/wnnrpc.elc: egg-com.elc egg/wnn.elc + +-egg.elc its/ascii.elc its/erpin.elc its/hankata.elc \ +-its/hira.elc its/jeonkak.elc its/pinyin.elc \ ++egg.elc its/ascii.elc its/aynu.elc its/erpin.elc its/greek.elc \ ++its/hankata.elc its/hira.elc its/jeonkak.elc its/pinyin.elc \ + its/hangul.elc its/kata.elc its/quanjiao.elc \ + its/zenkaku.elc its/zhuyin.elc: its-keydef.elc +- +- +diff -duNrp ../tamago-4.0.6/egg/anthy.el ./egg/anthy.el +--- ../tamago-4.0.6/egg/anthy.el Thu Jan 1 09:00:00 1970 ++++ ./egg/anthy.el Thu Aug 8 17:11:22 2002 +@@ -0,0 +1,220 @@ ++;;; egg/anthy.el --- ANTHY Support (high level interface) in Egg ++;;; Input Method Architecture ++ ++;; Copyright (C) 2002 The Free Software Initiative of Japan ++ ++;; Author: NIIBE Yutaka <gniibe@m17n.org> ++ ++;; Maintainer: NIIBE Yutaka <gniibe@m17n.org> ++ ++;; Keywords: mule, multilingual, input method ++ ++;; This file is part of EGG. ++ ++;; EGG is free software; you can redistribute it and/or modify ++;; it under the terms of the GNU General Public License as published by ++;; the Free Software Foundation; either version 2, or (at your option) ++;; any later version. ++ ++;; EGG is distributed in the hope that it will be useful, ++;; but WITHOUT ANY WARRANTY; without even the implied warranty of ++;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ++;; GNU General Public License for more details. ++ ++;; You should have received a copy of the GNU General Public License ++;; along with GNU Emacs; see the file COPYING. If not, write to the ++;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ++;; Boston, MA 02111-1307, USA. ++ ++;;; Commentary: ++ ++ ++;;; Code: ++ ++(require 'egg) ++(require 'egg-edep) ++ ++(defgroup anthy nil ++ "Anthy interface for Tamago 4." ++ :group 'egg) ++ ++(setplist 'anthy-conversion-backend ++ '(egg-start-conversion anthy-convert ++ egg-get-bunsetsu-source anthy-get-bunsetsu-source ++ egg-get-bunsetsu-converted anthy-get-bunsetsu-converted ++ egg-list-candidates anthy-get-candidates ++ egg-decide-candidate anthy-select-candidate ++ egg-change-bunsetsu-length anthy-resize-segment ++ egg-end-conversion anthy-commit ++ ;; ++ egg-get-source-language anthy-get-source-language ++ egg-get-converted-language anthy-get-converted-language)) ++ ++(defconst anthy-backend-alist '((Japanese ((anthy-conversion-backend))))) ++ ++(egg-set-finalize-backend '(anthy-finalize-backend)) ++ ++(defvar anthy-proc nil ++ "Process of ANTHY helper agent.") ++ ++;; <environments> ::= ( <env> ... <env> ) ++;; ++;; <env> ::= <context-descriptor> ++;; <context-descriptor> ::= <integer> ++(defvar anthy-environment-pool nil ++ "Environments for ANTHY kana-kanji conversion, to be used.") ++ ++(defvar anthy-environments-in-use nil ++ "Environments for ANTHY kana-kanji conversion, in use.") ++ ++;; ++;; <anthy-bunsetsu> ::= ++;; [ <env> <source> <converted> <candidates> <candidate-pos> <seg-no> ] ++(defsubst anthy-make-bunsetsu (env source converted seg-no) ++ (egg-bunsetsu-create ++ 'anthy-conversion-backend ++ (vector env source converted nil 0 seg-no))) ++ ++(defsubst anthybunsetsu-get-env (b) ++ (aref (egg-bunsetsu-get-info b) 0)) ++(defsubst anthybunsetsu-get-source (b) ++ (aref (egg-bunsetsu-get-info b) 1)) ++(defsubst anthybunsetsu-get-converted (b) ++ (aref (egg-bunsetsu-get-info b) 2)) ++(defsubst anthybunsetsu-get-candidates (b) ++ (aref (egg-bunsetsu-get-info b) 3)) ++(defsubst anthybunsetsu-set-candidates (b z) ++ (aset (egg-bunsetsu-get-info b) 3 z)) ++(defsubst anthybunsetsu-get-candidate-pos (b) ++ (aref (egg-bunsetsu-get-info b) 4)) ++(defsubst anthybunsetsu-set-candidate-pos (b zp) ++ (aset (egg-bunsetsu-get-info b) 4 zp)) ++(defsubst anthybunsetsu-get-seg-no (b) ++ (aref (egg-bunsetsu-get-info b) 5)) ++ ++(defun anthy-get-bunsetsu-source (b) ++ (anthybunsetsu-get-source b)) ++ ++(defun anthy-get-bunsetsu-converted (b) ++ (let ((cands (anthybunsetsu-get-candidates b))) ++ (if cands ++ (nth (anthybunsetsu-get-candidate-pos b) cands) ++ (anthybunsetsu-get-converted b)))) ++ ++(defun anthy-get-source-language (b) 'Japanese) ++(defun anthy-get-converted-language (b) 'Japanese) ++ ++;; Getting new context-descriptor, and returns environment with 'inuse' bit ++(defun anthy-new-environment () ++ (if (null anthy-proc) ++ (let ((buf (generate-new-buffer " *ANTHY*")) ++ (process-connection-type nil)) ; avoid using pty ++ (setq anthy-proc ++ (start-process "anthy-agent" buf "anthy-agent" "--egg")) ++ (process-kill-without-query anthy-proc) ++ (set-process-coding-system anthy-proc 'euc-jp-dos 'euc-jp-dos) ++ (set-process-sentinel anthy-proc 'anthy-proc-sentinel) ++ (set-marker-insertion-type (process-mark anthy-proc) t) ++ (save-excursion ++ (set-buffer buf) ++ (erase-buffer) ++ (buffer-disable-undo)))) ++ (anthyipc-get-greeting anthy-proc) ++ (anthyipc-new-context anthy-proc)) ++ ++;;; XXX: Don't kill buffer (for now) so that I can debug this program ++(defun anthy-proc-sentinel (proc reason) ++; (kill-buffer (process-buffer proc)) ++ (setq anthy-proc nil ++ anthy-environments-in-use nil ++ anthy-environment-pool nil)) ++ ++;;; anthyipc-release-context ++ ++ ++(defun anthy-get-environment () ++ "Return the ANTHY environment." ++ (if anthy-environment-pool ++ (let ((env (car anthy-environment-pool))) ++ (setq anthy-environment-pool (cdr anthy-environment-pool)) ++ (setq anthy-environments-in-use (cons env anthy-environments-in-use)) ++ env) ++ (let ((env (anthy-new-environment))) ++ (setq anthy-environments-in-use (cons env anthy-environments-in-use)) ++ env))) ++ ++;; ++;; Returns list of bunsetsu ++;; ++(defun anthy-convert (backend yomi &optional context) ++ "Convert YOMI string to kanji, and enter conversion mode. ++Return the list of bunsetsu." ++ (let ((env (anthy-get-environment))) ++ (anthyipc-convert anthy-proc env yomi))) ++ ++;; ++;; ++;; ++(defun anthy-commit (bunsetsu-list abort) ++ (let ((env (anthybunsetsu-get-env (car bunsetsu-list)))) ++ (anthyipc-commit anthy-proc env (if abort 1 0)) ++ (setq anthy-environment-pool (cons env anthy-environment-pool)) ++ (setq anthy-environments-in-use (delq env anthy-environments-in-use)))) ++ ++;; ++;; Returns ( <pos> <candidates> ) ++;; ++(defun anthy-get-candidates (bunsetsu-list prev-bunsetsu next-bunsetsu major) ++ (let ((bunsetsu (car bunsetsu-list))) ++ (if (anthybunsetsu-get-candidates bunsetsu) ++ (cons (anthybunsetsu-get-candidate-pos bunsetsu) ++ (anthybunsetsu-get-candidates bunsetsu)) ++ (let* ((env (anthybunsetsu-get-env bunsetsu)) ++ (seg-no (anthybunsetsu-get-seg-no bunsetsu)) ++ (cands (anthyipc-get-candidates anthy-proc env seg-no))) ++ (cons (anthybunsetsu-set-candidate-pos bunsetsu 0) ++ (anthybunsetsu-set-candidates bunsetsu cands)))))) ++ ++;; Returns list of list of bunsetsu ++(defun anthy-select-candidate (bunsetsu-list candidate-pos prev-b next-b) ++ (let* ((bunsetsu (car bunsetsu-list)) ++ (candidate-list (anthybunsetsu-get-candidates bunsetsu)) ++ (candidate (nth candidate-pos candidate-list)) ++ (env (anthybunsetsu-get-env bunsetsu)) ++ (seg-no (anthybunsetsu-get-seg-no bunsetsu))) ++ (anthybunsetsu-set-candidate-pos bunsetsu candidate-pos) ++ ;; Anthy doesn't have capability of changing another segment ++ ;; at the selection of a segment. ++ ;; So, just ignore the result of "SELECT-CANDIDATE" ++ (anthyipc-select-candidate anthy-proc env seg-no candidate-pos) ++ (list (list bunsetsu)))) ++ ++;; Returns list of list of bunsetsu ++(defun anthy-resize-segment (bunsetsu-list prev-b next-b len major) ++ (let ((bunsetsu (car bunsetsu-list))) ++ (let ((env (anthybunsetsu-get-env bunsetsu)) ++ (seg-no (anthybunsetsu-get-seg-no bunsetsu)) ++ (prevlen (length (anthybunsetsu-get-source bunsetsu)))) ++ (let ((r (anthyipc-resize-segment anthy-proc env seg-no ++ (if (< prevlen len) 0 1)))) ++ ;; XXX: I don't know what this means, ++ ;; but this works. Blame EGG. ++ (list (list (car r)) nil (cdr r)))))) ++ ++(defun anthy-finalize-backend () ++ (if anthy-proc ++ (progn ++ (delete-process anthy-proc) ++ (setq anthy-proc nil)))) ++ ++;;; setup ++ ++(load "egg/anthyipc") ++(run-hooks 'anthy-load-hook) ++ ++;;;###autoload ++(defun egg-activate-anthy (&rest arg) ++ "Activate ANTHY backend of Tamago 4." ++ (apply 'egg-mode (append arg anthy-backend-alist))) ++ ++;;; egg/anthy.el ends here. +diff -duNrp ../tamago-4.0.6/egg/anthyipc.el ./egg/anthyipc.el +--- ../tamago-4.0.6/egg/anthyipc.el Thu Jan 1 09:00:00 1970 ++++ ./egg/anthyipc.el Thu Aug 8 16:28:41 2002 +@@ -0,0 +1,195 @@ ++;;; egg/anthyipc.el --- ANTHY IPC Support (low level interface) in Egg ++;;; Input Method Architecture ++ ++;; Copyright (C) 2002 The Free Software Initiative of Japan ++ ++;; Author: NIIBE Yutaka <gniibe@m17n.org> ++ ++;; Maintainer: NIIBE Yutaka <gniibe@m17n.org> ++ ++;; Keywords: mule, multilingual, input method ++ ++;; This file is part of EGG. ++ ++;; EGG is free software; you can redistribute it and/or modify ++;; it under the terms of the GNU General Public License as published by ++;; the Free Software Foundation; either version 2, or (at your option) ++;; any later version. ++ ++;; EGG is distributed in the hope that it will be useful, ++;; but WITHOUT ANY WARRANTY; without even the implied warranty of ++;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ++;; GNU General Public License for more details. ++ ++;; You should have received a copy of the GNU General Public License ++;; along with GNU Emacs; see the file COPYING. If not, write to the ++;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ++;; Boston, MA 02111-1307, USA. ++ ++;;; Commentary: ++ ++ ++;;; Code: ++ ++(defmacro anthyipc-call-with-proc (proc vlist send-expr &rest receive-exprs) ++ `(let* ((proc ,proc) ++ (buffer (process-buffer proc)) ++ ,@vlist) ++ (if (and (eq (process-status proc) 'run) ++ (buffer-live-p buffer)) ++ (save-excursion ++ (set-buffer buffer) ++ (erase-buffer) ++ ,send-expr ++ (goto-char (point-max)) ++ (process-send-region proc (point-min) (point-max)) ++ ,@receive-exprs) ++ (egg-error "process %s was killed" proc)))) ++ ++(defun anthyipc-wait-line () ++ (let ((start (point))) ++ (while (not (search-forward "\n" nil 1)) ++ (accept-process-output proc 1000) ++ (goto-char start)) ++ (goto-char start))) ++ ++(defun anthyipc-accept-ok () ++ (anthyipc-wait-line) ++ (if (eq (char-after) ?+) ++ ;; "+OK" ++ (goto-char (point-max)) ++ (egg-error "protocol error: %s" (buffer-substring (point) (point-max))))) ++ ++(defun anthyipc-accept-number () ++ (anthyipc-wait-line) ++ (if (eq (char-after) ?+) ++ ;; "+OK <number>" ++ (progn ++ (forward-char 4) ++ (prog1 ++ (read (current-buffer)) ++ (goto-char (point-max)))) ++ (egg-error "protocol error: %s" (buffer-substring (point) (point-max))))) ++ ++(defun anthyipc-read-string () ++ (if (eq (char-after) ?\ ) ++ (forward-char 1)) ++ (let ((start (point))) ++ (while (and (char-after) ++ (not (eq (char-after) ?\ )) ++ (not (eq (char-after) ?\n))) ++ (forward-char 1)) ++ (buffer-substring start (point)))) ++ ++(defun anthyipc-accept-segments (env seg-no-orig) ++ (anthyipc-wait-line) ++ (if (eq (char-after) ?+) ++ (progn ++ (forward-char 1) ++ (if (eq (char-after) ?O) ++ ;; "+OK" ++ (progn ++ (goto-char (point-max)) ++ t) ++ ;; "+DATA <seg-no> <num-segments-removed> <num-segments-inserted>" ++ ;; "<num-candidates> <converted> <yomi>"*N ++ ;; "" ++ ;; ++ (forward-char 5) ++ (let* ((seg-no (read (current-buffer))) ++ (num-segments-removed (read (current-buffer))) ++ (num-segments-inserted (read (current-buffer))) ++ (segment-list nil) ++ (in-loop t) ++ (i seg-no)) ++ (while in-loop ++ (forward-char 1) ++ (anthyipc-wait-line) ++ (if (eq (char-after) ?\n) ++ (setq in-loop nil) ++ (let* ((num-candidates (read (current-buffer))) ++ (converted (anthyipc-read-string)) ++ (source (anthyipc-read-string)) ++ (segment (anthy-make-bunsetsu env source converted i))) ++ (setq i (1+ i)) ++ (setq segment-list (cons segment segment-list))))) ++ ;; XXX check if seg-no == seg-no-orig ++ ;; XXX check inserted and length of segment-list??? ++ (forward-char 1) ++ (cons seg-no (cons num-segments-removed (reverse segment-list)))))) ++ (egg-error "protocol error: %s" (buffer-substring (point) (point-max))))) ++ ++(defun anthyipc-accept-candidates () ++ (anthyipc-wait-line) ++ (if (eq (char-after) ?+) ++ (progn ++ ;; "+DATA <offset> <num-candidates>" ++ ;; "<converted>"*N ++ ;; "" ++ (forward-char 6) ++ (let* ((offset (read (current-buffer))) ++ (num-candidates (read (current-buffer))) ++ (candidate-list nil) ++ (in-loop t)) ++ (while in-loop ++ (forward-char 1) ++ (anthyipc-wait-line) ++ (if (eq (char-after) ?\n) ++ (setq in-loop nil) ++ (let ((candidate (anthyipc-read-string))) ++ (setq candidate-list (cons candidate candidate-list))))) ++ ;; XXX check num-candidates and length of candidate-list??? ++ (forward-char 1) ++ (cons offset (reverse candidate-list)))) ++ (egg-error "protocol error: %s" (buffer-substring (point) (point-max))))) ++ ++(defun anthyipc-get-greeting (proc) ++ (anthyipc-call-with-proc proc () ++ nil ++ (anthyipc-wait-line) ++ (message (buffer-substring (point-min) (1- (point-max)))))) ++ ++(defun anthyipc-new-context (proc) ++ (anthyipc-call-with-proc proc () ++ (insert "NEW-CONTEXT INPUT=#18 OUTPUT=#18\n") ++ (anthyipc-accept-number))) ++ ++(defun anthyipc-release-context (proc cont) ++ (anthyipc-call-with-proc proc () ++ (insert (format "RELEASE-CONTEXT %d\n" cont)) ++ (anthyipc-accept-ok))) ++ ++;; Returns list of bunsetsu ++(defun anthyipc-convert (proc cont yomi) ++ (anthyipc-call-with-proc proc () ++ (insert (format "CONVERT %d %s\n" cont yomi)) ++ (let ((r (anthyipc-accept-segments cont 0))) ++ (cdr (cdr r))))) ++ ++(defun anthyipc-commit (proc cont cancel) ++ (anthyipc-call-with-proc proc () ++ (insert (format "COMMIT %d %d\n" cont cancel)) ++ (anthyipc-accept-ok))) ++ ++;;; Returns list of candidate ++(defconst anthy-max-candidates 9999) ++(defun anthyipc-get-candidates (proc cont seg-no) ++ (anthyipc-call-with-proc proc () ++ (insert ++ (format "GET-CANDIDATES %d %d %d %d\n" cont seg-no 0 anthy-max-candidates)) ++ (let ((r (anthyipc-accept-candidates))) ++ (cdr r)))) ++ ++;;; Returns segments ++(defun anthyipc-select-candidate (proc cont seg-no candidate-no) ++ (anthyipc-call-with-proc proc () ++ (insert (format "SELECT-CANDIDATE %d %d %d\n" cont seg-no candidate-no)) ++ (anthyipc-accept-segments cont seg-no))) ++ ++;;; Returns segments ++(defun anthyipc-resize-segment (proc cont seg-no inc-dec) ++ (anthyipc-call-with-proc proc () ++ (insert (format "RESIZE-SEGMENT %d %d %d\n" cont seg-no inc-dec)) ++ (cddr (anthyipc-accept-segments cont seg-no)))) ++ ++;;; egg/anthyipc.el ends here. +diff -duNrp ../tamago-4.0.6/egg/canna.el ./egg/canna.el +--- ../tamago-4.0.6/egg/canna.el Tue Jan 4 15:56:14 2000 ++++ ./egg/canna.el Mon Jul 22 22:18:56 2002 +@@ -30,257 +30,878 @@ ;;; Code: @@ -168,9 +5742,9 @@ diff -rdu ../tamago-4.0.6.org/egg/canna.el ./egg/canna.el - canna-change-bunsetsu-length - canna-end-conversion - nil -+(defcustom canna-server-port 5680 -+ "Port number of CANNA server" -+ :group 'canna :type 'integer) ++(defcustom canna-server-port "canna" ++ "A service name or a port number (should be a string) of CANNA server" ++ :group 'canna :type 'string) - canna-fini - ]) @@ -480,7 +6054,7 @@ diff -rdu ../tamago-4.0.6.org/egg/canna.el ./egg/canna.el + (canna-arg-type-error canna-define-environment)) + (setq canna-current-envspec (canna-envspec-create env-name + convert-mode nostudy) -+ canna-envspec-list (nconc canna-envspec-list ++ canna-envspec-list (nconc canna-envspec-list + (list canna-current-envspec)))) + +(defun canna-add-dict (dict dict-rw) @@ -525,8 +6099,10 @@ diff -rdu ../tamago-4.0.6.org/egg/canna.el ./egg/canna.el + hostname-list (cdr hostname-list)) + (if (null (string-match ":" hostname)) + (setq port canna-server-port) -+ (setq port (string-to-int (substring hostname (match-end 0))) ++ (setq port (substring hostname (match-end 0)) + hostname (substring hostname 0 (match-beginning 0)))) ++ (if (and (stringp port) (string-match "^[0-9]+$" port)) ++ (setq port (string-to-int port))) + (and (equal hostname "") + (setq hostname (or (getenv "CANNAHOST") "localhost"))) + (let ((inhibit-quit save-inhibit-quit)) @@ -542,7 +6118,7 @@ diff -rdu ../tamago-4.0.6.org/egg/canna.el ./egg/canna.el + ((error quit)))) + (when proc + (process-kill-without-query proc) -+ (set-process-coding-system proc 'no-conversion 'no-conversion) ++ (set-process-coding-system proc 'binary 'binary) + (set-process-sentinel proc 'canna-comm-sentinel) + (set-marker-insertion-type (process-mark proc) t) + (setq result (cannarpc-open proc user-name)) ;; result is context @@ -591,7 +6167,7 @@ diff -rdu ../tamago-4.0.6.org/egg/canna.el ./egg/canna.el - (setq canna-environment env)))) + (let ((env (canna-search-environment backend)) + proc context error) -+ (or env ++ (or env + (unwind-protect + (let* ((language (canna-backend-get-language backend)) + specs) @@ -690,6 +6266,17 @@ diff -rdu ../tamago-4.0.6.org/egg/canna.el ./egg/canna.el ) -(defun canna-start-conversion (yomi lang) ++(defun canna-set-converted-yomi (bunsetsu-pos bunsetsu-list) ++ (let ((bl bunsetsu-list) ++ (i bunsetsu-pos) ++ b) ++ (while bl ++ (setq b (car bl)) ++ (canna-bunsetsu-set-source b (cannarpc-get-bunsetsu-source env i)) ++ (setq i (1+ i) ++ bl (cdr bl))) ++ bunsetsu-list)) ++ +(defun canna-start-conversion (backend yomi &optional context) "Convert YOMI string to kanji, and enter conversion mode. Return the list of bunsetsu." @@ -706,7 +6293,7 @@ diff -rdu ../tamago-4.0.6.org/egg/canna.el ./egg/canna.el + (setq env (canna-get-environment backend)) + (canna-finalize-backend))) + (setq bunsetsu-list (cannarpc-begin-conversion env yomi)))) -+ bunsetsu-list)) ++ (canna-set-converted-yomi 0 bunsetsu-list))) (defun canna-end-conversion (bunsetsu-list abort) - (let* ((env (cannabunsetsu-get-env (car bunsetsu-list))) @@ -853,7 +6440,9 @@ diff -rdu ../tamago-4.0.6.org/egg/canna.el ./egg/canna.el + (bunsetsu-pos (canna-bunsetsu-get-bunsetsu-pos (car bunsetsu))) + new) + (if yomi-length -+ (setq new (cannarpc-set-kugiri-changed env yomi-length bunsetsu-pos)) ++ (setq new (canna-set-converted-yomi ++ bunsetsu-pos ++ (cannarpc-set-kugiri-changed env yomi-length bunsetsu-pos))) + (setq new bunsetsu)) + (list (list (car new)) prev-b (cdr new)))) @@ -915,7 +6504,7 @@ diff -rdu ../tamago-4.0.6.org/egg/canna.el ./egg/canna.el + (if (y-or-n-p (concat "$B!V(B" kanji "$B$J!W$O@5$7$$$G$9$+!#(B")) "#T15" "#T35")) + +(defun canna-hinshi-SAHEN-MEISHI (kanji yomi) -+ (if (y-or-n-p (concat "$B!V(B" kanji "$B$J!W$O@5$7$$$G$9$+!#(B") "#T10" "#T30"))) ++ (if (y-or-n-p (concat "$B!V(B" kanji "$B$J!W$O@5$7$$$G$9$+!#(B")) "#T10" "#T30")) + +(defmacro canna-hinshi-DOUSHI-check-gobi () + '(progn @@ -1048,7 +6637,7 @@ diff -rdu ../tamago-4.0.6.org/egg/canna.el ./egg/canna.el + (intern (concat "canna-hinshi-" (symbol-name key))) + kanji yomi)) + ((stringp key) (cdr (assoc key canna-hinshi-alist)))))) -+ ++ +(defun canna-word-registration (backend kanji yomi) + "Register a word KANJI with a pronunciation YOMI." + (if (or (null (eq (egg-get-language 0 kanji) @@ -1077,6 +6666,8 @@ diff -rdu ../tamago-4.0.6.org/egg/canna.el ./egg/canna.el + +(defun canna-word-delete-regist (backend yomi) + "Delete a word KANJI from dictionary." ++ (if (= (length yomi) 0) ++ (egg-error "Canna word delete registration: null string")) + (let* ((env (canna-get-environment backend)) + (dic (canna-dictionary-select env)) + proc context envd bunsetsu bunsetsu-pos z zpos kouho-list hinshi i @@ -1145,7 +6736,7 @@ diff -rdu ../tamago-4.0.6.org/egg/canna.el ./egg/canna.el + (cannarpc-close-context envd) + (list kanji yomi (canna-hinshi-name hinshi) dic)) + (cannarpc-close-context envd) -+ (egg-error (cannarpc-get-error-message (- result)))) ++ (egg-error "$B:o=|$5$l$^$;$s$G$7$?!#(B")) + )) ;;; setup @@ -1164,9 +6755,9 @@ diff -rdu ../tamago-4.0.6.org/egg/canna.el ./egg/canna.el + (apply 'egg-mode (append arg canna-backend-alist))) ;;; egg/canna.el ends here. -diff -rdu ../tamago-4.0.6.org/egg/cannarpc.el ./egg/cannarpc.el ---- ../tamago-4.0.6.org/egg/cannarpc.el Tue Jan 4 15:48:42 2000 -+++ ./egg/cannarpc.el Fri Mar 16 14:14:12 2001 +diff -duNrp ../tamago-4.0.6/egg/cannarpc.el ./egg/cannarpc.el +--- ../tamago-4.0.6/egg/cannarpc.el Tue Jan 4 15:48:42 2000 ++++ ./egg/cannarpc.el Sun Jan 28 03:53:13 2001 @@ -45,17 +45,31 @@ ((eq c 'GetDirectoryList) 7) ((eq c 'MountDictionary) 8) @@ -1532,9 +7123,9 @@ diff -rdu ../tamago-4.0.6.org/egg/cannarpc.el ./egg/cannarpc.el + result))) ;;; egg/cannarpc.el ends here. -diff -rdu ../tamago-4.0.6.org/egg/sj3.el ./egg/sj3.el ---- ../tamago-4.0.6.org/egg/sj3.el Thu Jan 13 16:09:50 2000 -+++ ./egg/sj3.el Fri Mar 16 14:14:13 2001 +diff -duNrp ../tamago-4.0.6/egg/sj3.el ./egg/sj3.el +--- ../tamago-4.0.6/egg/sj3.el Thu Jan 13 16:09:50 2000 ++++ ./egg/sj3.el Mon Jul 22 22:18:56 2002 @@ -35,33 +35,89 @@ (require 'egg-edep) @@ -1650,7 +7241,25 @@ diff -rdu ../tamago-4.0.6.org/egg/sj3.el ./egg/sj3.el (defconst sj3-backend-alist '((Japanese ((sj3-conversion-backend))))) -@@ -353,7 +410,7 @@ +@@ -90,7 +147,7 @@ + ((error quit) + (egg-error "failed to connect sj3 server"))) + (process-kill-without-query proc) +- (set-process-coding-system proc 'no-conversion 'no-conversion) ++ (set-process-coding-system proc 'binary 'binary) + (set-marker-insertion-type (process-mark proc) t) + (save-excursion + (set-buffer buf) +@@ -141,7 +198,7 @@ + ;; (if proc + ;; (progn + ;; (process-kill-without-query proc) +-;; (set-process-coding-system proc 'no-conversion 'no-conversion) ++;; (set-process-coding-system proc 'binary 'binary) + ;; (set-marker-insertion-type (process-mark proc) t) + ;; ;; Initialize dictionaries + ;; (setq sj3-sys-dict-list nil) +@@ -353,7 +410,7 @@ Return the list of bunsetsu." (list (list candidate)))) (defun sj3-change-bunsetsu-length (bunsetsu prev-b next-b len major) @@ -1659,7 +7268,7 @@ diff -rdu ../tamago-4.0.6.org/egg/sj3.el ./egg/sj3.el (env (sj3bunsetsu-get-env (car bunsetsu))) (old (car bunsetsu)) new yomi1 yomi2) -@@ -361,7 +418,7 @@ +@@ -361,7 +418,7 @@ Return the list of bunsetsu." yomi2 (substring yomi len)) (setq new (sj3rpc-tanbunsetsu-conversion env yomi1)) ;; Only set once (memory original length of the bunsetsu). @@ -1668,7 +7277,7 @@ diff -rdu ../tamago-4.0.6.org/egg/sj3.el ./egg/sj3.el (or (sj3bunsetsu-get-kugiri-changed old) (length (sj3bunsetsu-get-source old)))) (if (> (length yomi2) 0) -@@ -381,6 +438,37 @@ +@@ -381,6 +438,37 @@ Return the list of bunsetsu." (sj3rpc-close proc) (setq sj3-environment nil)))) @@ -1706,7 +7315,7 @@ diff -rdu ../tamago-4.0.6.org/egg/sj3.el ./egg/sj3.el ;;; setup (load "egg/sj3rpc") -@@ -388,7 +476,7 @@ +@@ -388,7 +476,7 @@ Return the list of bunsetsu." ;;;###autoload (defun egg-activate-sj3 (&rest arg) @@ -1715,9 +7324,9 @@ diff -rdu ../tamago-4.0.6.org/egg/sj3.el ./egg/sj3.el (apply 'egg-mode (append arg sj3-backend-alist))) ;;; egg/sj3.el ends here. -diff -rdu ../tamago-4.0.6.org/egg/sj3rpc.el ./egg/sj3rpc.el ---- ../tamago-4.0.6.org/egg/sj3rpc.el Thu Jan 13 12:36:08 2000 -+++ ./egg/sj3rpc.el Fri Mar 16 14:14:13 2001 +diff -duNrp ../tamago-4.0.6/egg/sj3rpc.el ./egg/sj3rpc.el +--- ../tamago-4.0.6/egg/sj3rpc.el Thu Jan 13 12:36:08 2000 ++++ ./egg/sj3rpc.el Sun Jan 28 03:53:13 2001 @@ -31,9 +31,18 @@ ;;; Code: @@ -1969,9 +7578,9 @@ diff -rdu ../tamago-4.0.6.org/egg/sj3rpc.el ./egg/sj3rpc.el + (- result))) ;;; egg/sj3rpc.el ends here. -diff -rdu ../tamago-4.0.6.org/egg/wnn.el ./egg/wnn.el ---- ../tamago-4.0.6.org/egg/wnn.el Tue Jan 4 16:08:04 2000 -+++ ./egg/wnn.el Fri Mar 16 14:14:13 2001 +diff -duNrp ../tamago-4.0.6/egg/wnn.el ./egg/wnn.el +--- ../tamago-4.0.6/egg/wnn.el Tue Jan 4 16:08:04 2000 ++++ ./egg/wnn.el Mon Jul 22 22:18:56 2002 @@ -36,7 +36,7 @@ (require 'egg-edep) @@ -1981,7 +7590,7 @@ diff -rdu ../tamago-4.0.6.org/egg/wnn.el ./egg/wnn.el :group 'egg) (defcustom wnn-auto-save-dictionaries 0 -@@ -114,6 +114,7 @@ +@@ -114,6 +114,7 @@ by ':' and digit N." egg-major-bunsetsu-continue-p wnn-major-bunsetsu-continue-p egg-list-candidates wnn-list-candidates egg-decide-candidate wnn-decide-candidate @@ -1989,14 +7598,41 @@ diff -rdu ../tamago-4.0.6.org/egg/wnn.el ./egg/wnn.el egg-change-bunsetsu-length wnn-change-bunsetsu-length egg-bunsetsu-combinable-p wnn-bunsetsu-combinable-p egg-end-conversion wnn-end-conversion -@@ -657,20 +658,28 @@ +@@ -389,13 +390,12 @@ by ':' and digit N." + + ;; <wnn-bunsetsu> ::= [ <env> + ;; <jirilen> <dic-no> <entry> <freq> <right-now> <hinshi> +-;; <status> <status-backward> <kangovect> <evaluation> +-;; <converted> <yomi> <fuzokugo> +-;; <dai-evaluation> <dai-continue> <change-top> +-;; <zenkouho-info> <freq-down> <fi-rel> <context> ] ++;; <status> <status-backward> <kangovect> <evaluation> ++;; <converted> <yomi> <fuzokugo> ++;; <dai-evaluation> <dai-continue> <change-top> ++;; <zenkouho-info> <freq-down> <fi-rel> <context> ] + ;; + ;; <zenkouho-info> ::= [ <pos> <list> <converted> <dai> <prev-b> <nxet-b> ] +-;; + + (defsubst wnn-bunsetsu-create (env jirilen dic-no entry freq right-now hinshi + status status-backward kangovect evaluation) +@@ -556,7 +556,7 @@ by ':' and digit N." + (copy-sequence (egg-bunsetsu-get-info b)))) + bunsetsu)) + +-(defconst wnn-server-info-list ++(defvar wnn-server-info-list + ;; language server port hostname proc coding-system + '((Japanese jserver wnn-jport wnn-jserver "Wnn" (fixed-euc-jp fixed-euc-jp)) + (Chinese-GB cserver wnn-cport wnn-cserver "cWnn" (fixed-euc-py-cn fixed-euc-zy-cn)) +@@ -657,20 +657,28 @@ Return the list of bunsetsu." (defun wnn-major-bunsetsu-continue-p (bunsetsu) (wnn-bunsetsu-get-dai-continue bunsetsu)) +(defmacro wnn-uniq-hash-string (uniq-level) + `(mapconcat + (lambda (b) -+ (concat ,@(cond ((eq uniq-level 'wnn-uniq) ++ (concat ,@(cond ((eq uniq-level 'wnn-uniq) + '((number-to-string (wnn-bunsetsu-get-hinshi b)))) + ((eq uniq-level 'wnn-uniq-entry) + '((number-to-string (wnn-bunsetsu-get-dic-no b)) @@ -2031,7 +7667,7 @@ diff -rdu ../tamago-4.0.6.org/egg/wnn.el ./egg/wnn.el hash-table)) (defun wnn-uniq-candidates (candidates) -@@ -786,6 +795,68 @@ +@@ -786,6 +794,68 @@ Return the list of bunsetsu." (setq next-b (list (car next-b)))) (list cand prev-b next-b))) @@ -2100,7 +7736,61 @@ diff -rdu ../tamago-4.0.6.org/egg/wnn.el ./egg/wnn.el (defun wnn-change-bunsetsu-length (bunsetsu prev-b next-b len major) (let ((backend (egg-bunsetsu-get-backend (car bunsetsu))) (env (wnn-bunsetsu-get-env (car bunsetsu))) -@@ -2090,7 +2161,7 @@ +@@ -918,7 +988,7 @@ Return the list of bunsetsu." + (wnn-bunsetsu-get-right-now b) + (wnn-bunsetsu-get-freq b)) + context)) +- (wnnrpc-set-frequency env dic-no entry ++ (wnnrpc-set-frequency env dic-no entry + (WNN-const IMA_ON) (WNN-const HINDO_INC))) + (list (car context) (nth 1 context)))) + +@@ -1139,7 +1209,7 @@ Return the list of bunsetsu." + (proc-name (wnn-server-proc-name server-info)) + (msg-form "Wnn: connecting to %S at %s...") + (user-name (user-login-name)) +- buf hostname myname port-off proc result msg) ++ buf hostname myname port-off proc result msg) + (unwind-protect + (progn + (setq buf (generate-new-buffer (wnn-server-buffer-name server-info))) +@@ -1175,7 +1245,7 @@ Return the list of bunsetsu." + ((error quit)))) + (when proc + (process-kill-without-query proc) +- (set-process-coding-system proc 'no-conversion 'no-conversion) ++ (set-process-coding-system proc 'binary 'binary) + (set-process-sentinel proc 'wnn-comm-sentinel) + (set-marker-insertion-type (process-mark proc) t) + (setq result (wnnrpc-open proc myname user-name)) +@@ -1276,7 +1346,7 @@ is non-NIL." + (setq env-name (if reverse (concat env-name "R") env-name) + wnn-current-envspec (wnn-envspec-create env-name tankan stickey) + wnn-current-envspec-reverse reverse +- wnn-envspec-list (nconc wnn-envspec-list ++ wnn-envspec-list (nconc wnn-envspec-list + (list wnn-current-envspec)))) + + (defun wnn-set-fuzokugo (filename) +@@ -1359,7 +1429,7 @@ is non-NIL." + dict freq nil dict-rw freq-rw + dict-passwd freq-passwd nil)) + +-(defun wnn-add-notrans-dict (dict priority dict-rw ++(defun wnn-add-notrans-dict (dict priority dict-rw + &optional dict-passwd &rest reverse) + (wnn-wnn6-env-func wnn-add-notrans-dict) + (wnn-add-dict-param-check wnn-add-notrans-dict +@@ -1705,7 +1775,7 @@ On failure, return negative error code." + (wnn-create-frequency env fi did fname "" fpass)) + (message (egg-get-message 'wnn-re-create-freq) fname) + (and (>= (setq fid (wnn-open-file env fname)) 0) +- (>= (wnnrpc-set-dictionary env ++ (>= (wnnrpc-set-dictionary env + did fid prior drw frw + dpass fpass rev) + 0)))))))) +@@ -2090,7 +2160,7 @@ environment." ;;;###autoload (defun egg-activate-wnn (&rest arg) @@ -2109,9 +7799,20 @@ diff -rdu ../tamago-4.0.6.org/egg/wnn.el ./egg/wnn.el (apply 'egg-mode (append arg wnn-backend-alist))) ;;; egg/wnn.el ends here. -diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el ---- ../tamago-4.0.6.org/egg/wnnrpc.el Tue Jan 4 15:49:24 2000 -+++ ./egg/wnnrpc.el Fri Mar 16 14:14:13 2001 +diff -duNrp ../tamago-4.0.6/egg/wnnrpc.el ./egg/wnnrpc.el +--- ../tamago-4.0.6/egg/wnnrpc.el Tue Jan 4 15:49:24 2000 ++++ ./egg/wnnrpc.el Mon Jul 22 22:18:56 2002 +@@ -162,8 +162,8 @@ + ((eq c 'WNN_NOT_A_FILE) 98) + ((eq c 'WNN_INODE_CHECK_ERROR) 99) + +- ((eq c 'WNN_UD_DICT) 2) +- ((eq c 'WNN_REV_DICT) 3) ++ ((eq c 'WNN_UD_DICT) 2) ++ ((eq c 'WNN_REV_DICT) 3) + ((eq c 'CWNN_REV_DICT) ?\x103) + ((eq c 'BWNN_REV_DICT) ?\x203) + ((eq c 'WNN_COMPACT_DICT) 5) @@ -693,10 +693,10 @@ (defmacro wnnrpc-get-result (&rest body) @@ -2125,7 +7826,25 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el (- result)) ,@(or body '(result))))) -@@ -783,7 +783,7 @@ +@@ -725,7 +725,7 @@ + + (defun wnnrpc-connect (proc envname) + "Establish new `connection' and make an environment. +-Return the identitifation of the environment on success, ++Return the identitifation of the environment on success, + or negative error code on failure." + (comm-call-with-proc proc () + (comm-format (u s) (wnn-const JS_CONNECT) envname) +@@ -739,7 +739,7 @@ Return non-negative file ID on success, + (wnnrpc-get-result))) + + (defun wnnrpc-set-fuzokugo-file (env fid) +- "For PROC, on environment ENV-ID, ++ "For PROC, on environment ENV-ID, + Set Fuzokugo file specified by FID. + Return 0 on success, negate-encoded error code on failure." + (wnnrpc-call-with-environment env () +@@ -783,7 +783,7 @@ error code on faiulure." (comm-format (u u u) (wnn-const JS_GET_AUTOLEARNING_DIC) env-id type) (wnnrpc-get-result @@ -2134,7 +7853,7 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el (1+ result)))) (defun wnnrpc-set-autolearning-dic (env type dic-id) -@@ -798,7 +798,7 @@ +@@ -798,16 +798,16 @@ Return 0 on success, negate-encoded erro "Return the version number of WNN server." (comm-call-with-proc proc (result) (comm-format (u) (wnn-const JS_VERSION)) @@ -2142,8 +7861,10 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el + (comm-unpack (i) result) result)) - (defun wnnrpc-access (env path mode) -@@ -807,7 +807,7 @@ +-(defun wnnrpc-access (env path mode) ++(defun wnnrpc-access (env path mode) + "Check the accessibility of file in the environment ENV. + Return 0 when the remote file (dictionary/frequency) of PATH on server can be accessed in mode MODE. Return Non-zero otherwise." (wnnrpc-call-with-environment env (result) (comm-format (u u u s) (wnn-const JS_ACCESS) env-id mode path) @@ -2152,7 +7873,7 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el result)) (defun wnnrpc-mkdir (env path) -@@ -904,7 +904,7 @@ +@@ -904,7 +904,7 @@ Return positive if loaded, zero if not, hinshi status status-backward kangovect evaluation result source fuzokugo) (while (> n-bunsetsu 0) @@ -2161,7 +7882,7 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el end start jiritsugo-end dic-no entry freq right-now hinshi status status-backward kangovect evaluation) -@@ -929,9 +929,9 @@ +@@ -929,9 +929,9 @@ Return positive if loaded, zero if not, n-bunstsu kanji-length dlist slist end start n-sho evaluation n retval) @@ -2173,7 +7894,7 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el (setq dlist (cons (cons n-sho evaluation) dlist) n-dai (1- n-dai))) (setq dlist (nreverse dlist) -@@ -1010,7 +1010,7 @@ +@@ -1010,7 +1010,7 @@ HINSHI and FUZOKUGO are information of p fi-dic dic entry offset num result) (comm-unpack (i) num) (while (> num 0) @@ -2182,7 +7903,7 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el (setq result (cons (vector fi-dic dic entry offset -2 -4) result) num (1- num))) (nreverse result))) -@@ -1110,7 +1110,7 @@ +@@ -1110,7 +1110,7 @@ HINSHI and FUZOKUGO are information of p "" (comm-call-with-proc proc (result) (comm-format (u s) (wnn-const JS_ENV_EXIST) envname) @@ -2191,7 +7912,7 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el result)) (defun wnnrpc-make-env-sticky (env) -@@ -1156,14 +1156,14 @@ +@@ -1156,14 +1156,14 @@ HINSHI and FUZOKUGO are information of p "" (wnnrpc-call-with-environment env (n-dic) (comm-format (u u) (wnn-const JS_DIC_LIST) env-id) @@ -2208,7 +7929,7 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el (wnnrpc-receive-dictionary-list proc n-dic))) (defun wnnrpc-receive-dictionary-list (proc n-dic) -@@ -1171,7 +1171,7 @@ +@@ -1171,7 +1171,7 @@ HINSHI and FUZOKUGO are information of p rev comment dicname freqname dic-passwd freq-passwd type gosuu dic-local-flag freq-local-flag retval) (while (> n-dic 0) @@ -2217,7 +7938,7 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el entry dic freq dic-mode freq-mode enable-flag nice rev comment dicname freqname dic-passwd freq-passwd type gosuu dic-local-flag freq-local-flag) -@@ -1193,7 +1193,7 @@ +@@ -1193,7 +1193,7 @@ HINSHI and FUZOKUGO are information of p (comm-format (u u i) (wnn-const JS_HINSI_DICTS) env-id -1) (wnnrpc-get-result (while (> result 0) @@ -2226,7 +7947,7 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el (setq dic-list (nconc dic-list (list dic)) result (1- result))) dic-list))) -@@ -1222,7 +1222,7 @@ +@@ -1222,7 +1222,7 @@ HINSHI and FUZOKUGO are information of p p10 p11 p12 p13 p14 p15) (comm-format (u u) (wnn-const JS_PARAM_GET) env-id) (wnnrpc-get-result @@ -2235,7 +7956,7 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el n nsho p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15) (vector n nsho p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15)))) -@@ -1243,7 +1243,7 @@ +@@ -1243,7 +1243,7 @@ HINSHI and FUZOKUGO are information of p "" (comm-call-with-proc proc (result) (comm-format (u s) (wnn-const JS_FILE_LOADED) path) @@ -2244,7 +7965,7 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el result)) (defun wnnrpc-write-file (env fid filename) -@@ -1261,9 +1261,9 @@ +@@ -1261,9 +1261,9 @@ HINSHI and FUZOKUGO are information of p (let ((i 0) flist nfiles fid local ref-count type name) @@ -2256,7 +7977,7 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el (setq flist (nconc flist (list (vector fid local ref-count type name))) nfiles (1- nfiles))) flist)) -@@ -1284,7 +1284,7 @@ +@@ -1284,7 +1284,7 @@ HINSHI and FUZOKUGO are information of p "3: dictionary, 4: hindo file, 5: fuzokugo-file" (wnnrpc-call-with-environment env (result) (comm-format (u u s) (wnn-const JS_FILE_STAT) env-id path) @@ -2265,7 +7986,7 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el result)) (defun wnnrpc-get-file-info (env fid) -@@ -1292,7 +1292,7 @@ +@@ -1292,7 +1292,7 @@ HINSHI and FUZOKUGO are information of p (wnnrpc-call-with-environment env (name local ref-count type) (comm-format (u u u) (wnn-const JS_FILE_INFO) env-id fid) (wnnrpc-get-result @@ -2274,7 +7995,7 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el (vector name local ref-count type)))) (defmacro wnnrpc-receive-vector (n) -@@ -1300,7 +1300,7 @@ +@@ -1300,7 +1300,7 @@ HINSHI and FUZOKUGO are information of p (i 0) j) (while (< i ,n) @@ -2283,7 +8004,7 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el (aset v i j) (setq i (1+ i))) v)) -@@ -1311,7 +1311,7 @@ +@@ -1311,7 +1311,7 @@ HINSHI and FUZOKUGO are information of p (comm-format (u) (wnn-const JS_WHO)) (wnnrpc-get-result (while (> result 0) @@ -2292,7 +8013,7 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el (setq who (nconc who (list (vector socket username hostname (wnnrpc-receive-vector -@@ -1324,7 +1324,7 @@ +@@ -1324,7 +1324,7 @@ HINSHI and FUZOKUGO are information of p (comm-format (u) (wnn-const JS_ENV_LIST)) (wnnrpc-get-result (while (> result 0) @@ -2301,7 +8022,7 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el (setq envs (nconc envs (list (vector id name count fuzokugo dic-max (wnnrpc-receive-vector -@@ -1338,7 +1338,7 @@ +@@ -1338,7 +1338,7 @@ HINSHI and FUZOKUGO are information of p "" (comm-call-with-proc proc (result) (comm-format (u) (wnn-const JS_KILL)) @@ -2310,7 +8031,7 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el result)) (defun wnnrpc-delete-dictionary (env dic) -@@ -1357,7 +1357,7 @@ +@@ -1357,7 +1357,7 @@ HINSHI and FUZOKUGO are information of p "" (wnnrpc-call-with-proc proc (n-dic) (comm-format (u) (wnn-const JS_DIC_LIST_ALL)) @@ -2319,7 +8040,7 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el (wnnrpc-receive-dictionary-list proc n-dic))) (defun wnnrpc-delete-word (env dic entry) -@@ -1369,15 +1369,15 @@ +@@ -1369,15 +1369,15 @@ HINSHI and FUZOKUGO are information of p (defun wnnrpc-receive-word (proc yomi) (let (dic serial hinshi hindo right-now internal-hindo internal-right-now kanji comment l l1) @@ -2338,7 +8059,28 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el (setq l (nreverse l) l1 l) (while l1 -@@ -1492,7 +1492,7 @@ +@@ -1454,16 +1454,16 @@ HINSHI and FUZOKUGO are information of p + + (defmacro wnnrpc-with-temp-buffer (&rest body) + `(with-temp-buffer +- (let ((coding-system-for-read 'no-conversion) +- (coding-system-for-write 'no-conversion)) ++ (let ((coding-system-for-read 'binary) ++ (coding-system-for-write 'binary)) + (set-buffer-multibyte nil) + ,@body))) + + (defmacro wnnrpc-with-write-file (filename error-handler &rest body) + `(condition-case error + (with-temp-file ,filename +- (let ((coding-system-for-read 'no-conversion) +- (coding-system-for-write 'no-conversion)) ++ (let ((coding-system-for-read 'binary) ++ (coding-system-for-write 'binary)) + (set-buffer-multibyte nil) + ,@body)) + (file-error ,error-handler))) +@@ -1492,7 +1492,7 @@ HINSHI and FUZOKUGO are information of p (wnn-const WNN_FILE_STRING))) (progn (goto-char (1+ (wnn-const WNN_FILE_STRING_LEN))) @@ -2347,7 +8089,16 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el type uniq1 (wnn-const WNN_UNIQ_LEN) uniq2 (wnn-const WNN_UNIQ_LEN) -@@ -1534,10 +1534,18 @@ +@@ -1511,7 +1511,7 @@ HINSHI and FUZOKUGO are information of p + (cond ((null header) + (- (wnn-const WNN_NOT_A_FILE))) + ((null (car header)) +- (if (file-exists-p path) ++ (if (file-exists-p path) + (- (wnn-const WNN_OPENF_ERR)) + (- (wnn-const WNN_NO_EXIST)))) + (t +@@ -1534,10 +1534,18 @@ HINSHI and FUZOKUGO are information of p (defun wnnrpc-make-uniq (attributes) (wnnrpc-with-temp-buffer @@ -2370,7 +8121,7 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el (defun wnnrpc-change-file-uniq (header path &optional new) (wnnrpc-with-write-file path -@@ -1558,27 +1566,28 @@ +@@ -1558,27 +1566,28 @@ HINSHI and FUZOKUGO are information of p (defun wnnrpc-check-passwd (proc passwd header) (let ((env-id -1)) (unwind-protect @@ -2420,7 +8171,7 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el (if (>= env-id 0) (wnnrpc-disconnect (wnnenv-create proc env-id)))))) -@@ -1603,7 +1612,7 @@ +@@ -1603,7 +1612,7 @@ HINSHI and FUZOKUGO are information of p (comm-call-with-proc proc (result) (comm-format (u v) (wnn-const JS_FILE_LOADED_LOCAL) (nth 1 header) (wnn-const WNN_UNIQ_LEN)) @@ -2429,7 +8180,16 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el result)))) (defun wnnrpc-file-receive (env fid local-filename) -@@ -1654,7 +1663,7 @@ +@@ -1629,7 +1638,7 @@ HINSHI and FUZOKUGO are information of p + (wnnrpc-terminate-current-command WNN_FILE_WRITE_ERROR)) + (t + (wnnrpc-with-write-file local-filename +- (- (wnn-const WNN_FILE_WRITE_ERROR)) ++ (- (wnn-const WNN_FILE_WRITE_ERROR)) + (comm-call-with-proc proc () + (comm-format (u) (wnn-const WNN_ACK)) + (comm-unpack (B) contents)) +@@ -1654,7 +1663,7 @@ HINSHI and FUZOKUGO are information of p (comm-format (u u v) (wnn-const JS_FILE_SEND) env-id (nth 1 header) (wnn-const WNN_UNIQ_LEN)) @@ -2438,7 +8198,16 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el (if (>= file-id 0) (wnnrpc-get-result (wnnenv-set-client-file env filename) -@@ -1718,9 +1727,9 @@ +@@ -1705,7 +1714,7 @@ HINSHI and FUZOKUGO are information of p + comment passwd hpasswd)) + 0 + (- (wnn-const WNN_FILE_CREATE_ERROR)))) +- ++ + + (defun wnnrpc-hindo-file-create-client (env fi dic-id freqname comment passwd) + (if (and (null (file-exists-p freqname)) +@@ -1718,9 +1727,9 @@ HINSHI and FUZOKUGO are information of p (defun wnnrpc-make-temp-name (env) (let ((n 0) (temp-form "usr/temp")) @@ -2450,9 +8219,24 @@ diff -rdu ../tamago-4.0.6.org/egg/wnnrpc.el ./egg/wnnrpc.el (defun wnnrpc-create-and-move-to-client (env dic-id filename type comment passwd hpasswd) -diff -rdu ../tamago-4.0.6.org/egg-cnv.el ./egg-cnv.el ---- ../tamago-4.0.6.org/egg-cnv.el Tue Jan 11 20:59:10 2000 -+++ ./egg-cnv.el Fri Mar 16 14:13:50 2001 +@@ -1750,7 +1759,7 @@ HINSHI and FUZOKUGO are information of p + (cond + ((null filename) "") + ((null (file-readable-p filename)) (- (wnn-const WNN_FILE_READ_ERROR))) +- (t ++ (t + (wnnrpc-with-temp-buffer + (insert-file-contents filename nil 0 (1- (wnn-const WNN_PASSWD_LEN))) + (goto-char 1) +@@ -1759,4 +1768,4 @@ HINSHI and FUZOKUGO are information of p + (backward-char)) + (buffer-substring 1 (point)))))) + +-;;; egg/wnnrpc.el ends here. ++;;; egg/wnnrpc.el ends here +diff -duNrp ../tamago-4.0.6/egg-cnv.el ./egg-cnv.el +--- ../tamago-4.0.6/egg-cnv.el Tue Jan 11 20:59:10 2000 ++++ ./egg-cnv.el Mon Jul 22 22:18:56 2002 @@ -34,19 +34,29 @@ (require 'egg-edep) @@ -2486,7 +8270,16 @@ diff -rdu ../tamago-4.0.6.org/egg-cnv.el ./egg-cnv.el (defcustom egg-conversion-fence-invisible nil "*Make fence marks invisible, if non-NIL." :group 'egg-conv :type 'boolean) -@@ -207,6 +217,10 @@ +@@ -147,7 +157,7 @@ next/previous-candidate, if positive num + pair (assq lang egg-conversion-backend-alist)) + (cond + ((null pair) +- (setq egg-conversion-backend-alist ++ (setq egg-conversion-backend-alist + (cons (cons lang backend-set) egg-conversion-backend-alist))) + (force + (setcdr pair backend-set)))))) +@@ -207,6 +217,10 @@ next/previous-candidate, if positive num (defsubst egg-bunsetsu-set-info (bunsetsu info) (setcdr bunsetsu info)) @@ -2497,15 +8290,18 @@ diff -rdu ../tamago-4.0.6.org/egg-cnv.el ./egg-cnv.el (defvar egg-finalize-backend-list nil) (defun egg-set-finalize-backend (func-list) -@@ -243,6 +257,7 @@ +@@ -243,8 +257,9 @@ next/previous-candidate, if positive num (egg-major-bunsetsu-continue-p (bunsetsu)) (egg-list-candidates (bunsetsu-list prev-b next-b major)) (egg-decide-candidate (bunsetsu-list candidate-pos prev-b next-b)) + (egg-special-candidate (bunsetsu-list prev-b next-b major type)) (egg-change-bunsetsu-length (bunsetsu-list prev-b next-b length major)) - (egg-bunsetsu-combinable-p (bunsetsu next-b)) +- (egg-bunsetsu-combinable-p (bunsetsu next-b)) ++ (egg-bunsetsu-combinable-p (bunsetsu next-b)) (egg-end-conversion (bunsetsu-list abort)) -@@ -263,7 +278,7 @@ + (egg-word-inspection (bunsetsu)) + (egg-word-registration (backend source converted)))) +@@ -263,7 +278,7 @@ next/previous-candidate, if positive num (defun egg-start-conversion-noconv (backend yomi-string context) (let ((string (copy-sequence yomi-string)) (language (egg-get-language 0 yomi-string))) @@ -2514,7 +8310,31 @@ diff -rdu ../tamago-4.0.6.org/egg-cnv.el ./egg-cnv.el (list (egg-bunsetsu-create backend (vector string language))))) (defun egg-get-bunsetsu-source-noconv (bunsetsu) -@@ -429,7 +444,8 @@ +@@ -288,6 +303,7 @@ next/previous-candidate, if positive num + ;; nothing to do + nil + (delete-region start end) ++ (egg-setup-invisibility-spec) + (let ((inhibit-read-only t)) + (its-define-select-keys egg-conversion-map) + (goto-char start) +@@ -302,13 +318,13 @@ next/previous-candidate, if positive num + (if context + (put-text-property 0 len 'egg-context context s)) + (if egg-conversion-fence-invisible +- (put-text-property 0 len 'invisible t s)) ++ (put-text-property 0 len 'invisible 'egg s)) + (insert s) + (setq s (copy-sequence egg-conversion-fence-close) + len (length s)) + (set-text-properties 0 len '(read-only t rear-nonsticky t egg-end t) s) + (if egg-conversion-fence-invisible +- (put-text-property 0 len 'invisible t s)) ++ (put-text-property 0 len 'invisible 'egg s)) + (insert s) + (goto-char start) + (insert source) +@@ -429,7 +445,8 @@ next/previous-candidate, if positive num (setq last-chinese lang)) (setq j i i (egg-next-single-property-change i 'egg-lang str len)) @@ -2524,7 +8344,7 @@ diff -rdu ../tamago-4.0.6.org/egg-cnv.el ./egg-cnv.el ;;; Should think again the interface to language-info-alist (defun egg-charset-to-language (charset) -@@ -478,7 +494,8 @@ +@@ -478,7 +495,8 @@ next/previous-candidate, if positive num s (substring source i j) lang (egg-get-language 0 s) backend (egg-get-conversion-backend lang n t)) @@ -2534,7 +8354,16 @@ diff -rdu ../tamago-4.0.6.org/egg-cnv.el ./egg-cnv.el (setq retval (nconc retval (list (list backend (list lang) s))) i j)) (prog1 -@@ -536,53 +553,72 @@ +@@ -499,7 +517,7 @@ next/previous-candidate, if positive num + file (and (file-readable-p file) file)) + (while (and (null file) path) + (if (stringp (car path)) +- (setq file (substitute-in-file-name ++ (setq file (substitute-in-file-name + (expand-file-name filename (car path))) + file (and (file-exists-p file) file))) + (setq path (cdr path))) +@@ -536,53 +554,72 @@ next/previous-candidate, if positive num (while (< i 127) (define-key map (vector i) 'egg-exit-conversion-unread-char) (setq i (1+ i))) @@ -2648,7 +8477,7 @@ diff -rdu ../tamago-4.0.6.org/egg-cnv.el ./egg-cnv.el (defun egg-make-bunsetsu (backend bunsetsu last) (let* ((converted (copy-sequence (egg-get-bunsetsu-converted bunsetsu))) -@@ -597,27 +633,30 @@ +@@ -597,27 +634,30 @@ next/previous-candidate, if positive num egg-conversion-minor-separator egg-conversion-major-separator)))) (setq len (length converted)) @@ -2688,7 +8517,23 @@ diff -rdu ../tamago-4.0.6.org/egg-cnv.el ./egg-cnv.el (defun egg-beginning-of-conversion-buffer (n) (interactive "p") -@@ -677,8 +716,7 @@ +@@ -627,13 +667,13 @@ next/previous-candidate, if positive num + ((null (get-text-property (1- (point)) 'egg-start)) + (goto-char (previous-single-property-change (point) 'egg-start))))) + +-(defun egg-end-of-conversion-buffer(n) ++(defun egg-end-of-conversion-buffer (n) + (interactive "p") + (cond + ((<= n 0) + (egg-beginning-of-conversion-buffer 1)) + (t +- (goto-char (next-single-property-change (point) 'egg-end)) ++ (goto-char (egg-next-single-property-change (point) 'egg-end)) + (backward-char)))) + + (defun egg-backward-bunsetsu (n) +@@ -677,8 +717,7 @@ next/previous-candidate, if positive num (egg-get-bunsetsu-info (1- p)))) (defun egg-get-previous-major-bunsetsu (p) @@ -2698,7 +8543,7 @@ diff -rdu ../tamago-4.0.6.org/egg-cnv.el ./egg-cnv.el bunsetsu) (while prev (setq bunsetsu (cons prev bunsetsu) -@@ -702,7 +740,10 @@ +@@ -702,7 +741,10 @@ next/previous-candidate, if positive num (nreverse bunsetsu))) (defsubst egg-get-major-bunsetsu-source (list) @@ -2710,7 +8555,7 @@ diff -rdu ../tamago-4.0.6.org/egg-cnv.el ./egg-cnv.el (defvar egg-inspect-mode nil "*Display clause information on candidate selection, if non-NIL.") -@@ -724,8 +765,8 @@ +@@ -724,8 +766,8 @@ next/previous-candidate, if positive num (defvar egg-candidate-selection-major t) (make-variable-buffer-local 'egg-candidate-selection-major) @@ -2721,7 +8566,7 @@ diff -rdu ../tamago-4.0.6.org/egg-cnv.el ./egg-cnv.el (defsubst egg-candsel-last-bunsetsu () (car egg-candidate-selection-info)) (defsubst egg-candsel-last-prev-b () (nth 1 egg-candidate-selection-info)) -@@ -744,9 +785,8 @@ +@@ -744,9 +786,8 @@ next/previous-candidate, if positive num (defun egg-get-candsel-target-major () (let ((bunsetsu (egg-get-major-bunsetsu (point))) @@ -2733,7 +8578,7 @@ diff -rdu ../tamago-4.0.6.org/egg-cnv.el ./egg-cnv.el (cond ((and (egg-candsel-last-major) (egg-major-bunsetsu-tail-p (egg-candsel-last-prev-b) prev-b) -@@ -755,31 +795,63 @@ +@@ -755,31 +796,63 @@ next/previous-candidate, if positive num bunsetsu)) (setq bunsetsu (egg-candsel-last-bunsetsu) prev-b (egg-candsel-last-prev-b) @@ -2814,7 +8659,7 @@ diff -rdu ../tamago-4.0.6.org/egg-cnv.el ./egg-cnv.el (if egg-inspect-mode (egg-inspect-bunsetsu t)))) -@@ -812,16 +884,19 @@ +@@ -812,16 +885,19 @@ next/previous-candidate, if positive num (apply 'egg-next-candidate-internal (- n) (egg-get-candsel-target-minor))) (defvar egg-candidate-select-counter 1) @@ -2827,7 +8672,7 @@ diff -rdu ../tamago-4.0.6.org/egg-cnv.el ./egg-cnv.el (setq egg-candidate-select-counter 1)) (if (= egg-candidate-select-counter egg-conversion-auto-candidate-menu) - (egg-select-candidate-internal nil b prev-b next-b next major) -+ (egg-select-candidate-internal ++ (egg-select-candidate-internal + nil egg-conversion-auto-candidate-menu-show-all + b prev-b next-b major) (setq this-command (if major 'egg-candidate-major 'egg-candidate-minor)) @@ -2837,7 +8682,7 @@ diff -rdu ../tamago-4.0.6.org/egg-cnv.el ./egg-cnv.el (setq candidates (egg-list-candidates b prev-b next-b major)) (if (null candidates) (setq beep t) -@@ -829,21 +904,18 @@ +@@ -829,21 +905,18 @@ next/previous-candidate, if positive num nitem (length (cdr candidates))) (cond ((< i 0) ; go backward as if it is ring @@ -2850,8 +8695,9 @@ diff -rdu ../tamago-4.0.6.org/egg-cnv.el ./egg-cnv.el (egg-conversion-wrap-select ; go backward as if it is ring - (while (>= i nitem) - (setq i (- i nitem)))) +- (t ; don't go forward + (setq i (% i nitem))) - (t ; don't go forward ++ (t ; don't go forward (setq i (1- nitem) beep t))) - (setq b (egg-decide-candidate b i prev-b next-b) @@ -2866,7 +8712,7 @@ diff -rdu ../tamago-4.0.6.org/egg-cnv.el ./egg-cnv.el (if beep (ding))))) -@@ -851,39 +923,65 @@ +@@ -851,39 +924,65 @@ next/previous-candidate, if positive num (let ((n -1)) (mapcar (lambda (item) (cons item (setq n (1+ n)))) list))) @@ -2957,7 +8803,7 @@ diff -rdu ../tamago-4.0.6.org/egg-cnv.el ./egg-cnv.el (defun egg-separate-characters (str) (let* ((v (egg-string-to-vector str)) -@@ -915,7 +1013,7 @@ +@@ -915,7 +1014,7 @@ next/previous-candidate, if positive num (defun egg-enlarge-bunsetsu-internal (n major) (let ((inhibit-read-only t) @@ -2966,7 +8812,7 @@ diff -rdu ../tamago-4.0.6.org/egg-cnv.el ./egg-cnv.el (if major (setq b (egg-get-major-bunsetsu (point)) prev-b (egg-get-previous-major-bunsetsu (point))) -@@ -938,28 +1036,23 @@ +@@ -938,28 +1037,23 @@ next/previous-candidate, if positive num ((<= n 0) (setq beep t nchar (and (/= s1len 1) (egg-get-char-size 0 s1)))) ((> n s2len) @@ -3007,7 +8853,23 @@ diff -rdu ../tamago-4.0.6.org/egg-cnv.el ./egg-cnv.el (if beep (ding)))) -@@ -1028,9 +1121,7 @@ +@@ -1013,13 +1107,13 @@ next/previous-candidate, if positive num + (previous-single-property-change (point) 'egg-start))) + (end (if (get-text-property (point) 'egg-end) + (point) +- (next-single-property-change (point) 'egg-end))) ++ (egg-next-single-property-change (point) 'egg-end))) + (decided (buffer-substring start (point))) + (undecided (buffer-substring (point) end)) + i len bunsetsu source context) + (delete-region + (previous-single-property-change start 'egg-start nil (point-min)) +- (next-single-property-change end 'egg-end nil (point-max))) ++ (egg-next-single-property-change end 'egg-end nil (point-max))) + (setq i 0 + len (length decided)) + (while (< i len) +@@ -1028,9 +1122,7 @@ next/previous-candidate, if positive num (if (or (= i len) (egg-get-bunsetsu-last (1- i) decided)) (progn @@ -3018,18 +8880,51 @@ diff -rdu ../tamago-4.0.6.org/egg-cnv.el ./egg-cnv.el (setq context (cons (cons (egg-bunsetsu-get-backend (car bunsetsu)) (egg-end-conversion bunsetsu nil)) context) -@@ -1071,7 +1162,7 @@ +@@ -1061,19 +1153,19 @@ next/previous-candidate, if positive num + (previous-single-property-change (point) 'egg-start))) + (end (if (get-text-property (point) 'egg-end) + (point) +- (next-single-property-change (point) 'egg-end))) ++ (egg-next-single-property-change (point) 'egg-end))) + (bunsetsu (egg-get-bunsetsu-info start))) + (delete-region + (previous-single-property-change start 'egg-start nil (point-min)) +- (next-single-property-change end 'egg-end nil (point-max))) ++ (egg-next-single-property-change end 'egg-end nil (point-max))) + (egg-end-conversion (list bunsetsu) nil) + (insert (egg-string-to-char-at (egg-get-bunsetsu-converted bunsetsu) 0)))) (defun egg-exit-conversion () (interactive) - (if (egg-get-bunsetsu-info (point)) + (if (egg-conversion-fence-p) (progn - (goto-char (next-single-property-change (point) 'egg-end)) +- (goto-char (next-single-property-change (point) 'egg-end)) ++ (goto-char (egg-next-single-property-change (point) 'egg-end)) (egg-decide-before-point)))) -diff -rdu ../tamago-4.0.6.org/egg-com.el ./egg-com.el ---- ../tamago-4.0.6.org/egg-com.el Tue Jan 4 15:49:56 2000 -+++ ./egg-com.el Fri Mar 16 14:13:50 2001 + + (defun egg-abort-conversion () +@@ -1087,8 +1179,8 @@ next/previous-candidate, if positive num + 'egg-start nil (point-min))) + (setq source (get-text-property (point) 'egg-source) + context (get-text-property (point) 'egg-context)) +- (delete-region (point) (next-single-property-change +- (next-single-property-change (point) 'egg-end) ++ (delete-region (point) (egg-next-single-property-change ++ (egg-next-single-property-change (point) 'egg-end) + 'egg-end nil (point-max))) + (its-restart source nil nil context))) + +@@ -1156,4 +1248,5 @@ next/previous-candidate, if positive num + (help-setup-xref (cons #'help-xref-mode (current-buffer)) (interactive-p)))) + + (provide 'egg-cnv) +-;;; egg-cnv.el ends here. ++ ++;;; egg-cnv.el ends here +diff -duNrp ../tamago-4.0.6/egg-com.el ./egg-com.el +--- ../tamago-4.0.6/egg-com.el Tue Jan 4 15:49:56 2000 ++++ ./egg-com.el Sun Jan 28 03:53:13 2001 @@ -136,6 +136,7 @@ (cons ccl-decode-fixed-euc-kr ccl-encode-fixed-euc-kr)) @@ -3146,7 +9041,7 @@ diff -rdu ../tamago-4.0.6.org/egg-com.el ./egg-com.el (defun post-read-decode-fixed-euc-china (len type zhuyin) (let ((pos (point)) -@@ -620,7 +628,7 @@ +@@ -620,7 +628,7 @@ Return the length of resulting text." (eval-and-compile (define-ccl-program ccl-decode-egg-binary @@ -3155,7 +9050,7 @@ diff -rdu ../tamago-4.0.6.org/egg-com.el ./egg-com.el ((read r0) (loop (if (r0 == ?\xff) -@@ -628,7 +636,7 @@ +@@ -628,7 +636,7 @@ Return the length of resulting text." (write-read-repeat r0))))) (define-ccl-program ccl-encode-egg-binary @@ -3164,7 +9059,7 @@ diff -rdu ../tamago-4.0.6.org/egg-com.el ./egg-com.el ((read r0) (loop (if (r0 == ?\xff) -@@ -705,6 +713,7 @@ +@@ -705,6 +713,7 @@ U: 32-bit integer. The argument is 2 el u: 32-bit integer. The argument is treat as unsigned integer. (Note: Elisp's integer may be less than 32 bits) i: 32-bit integer. @@ -3172,7 +9067,7 @@ diff -rdu ../tamago-4.0.6.org/egg-com.el ./egg-com.el w: 16-bit integer. b: 8-bit integer. S: 16-bit wide-character EUC string (0x0000 terminated). -@@ -776,6 +785,14 @@ +@@ -776,6 +785,14 @@ V: Fixed length string (0x00 terminated) (+ (lsh (comm-following+forward-char) 8) (comm-following+forward-char))))) @@ -3187,7 +9082,7 @@ diff -rdu ../tamago-4.0.6.org/egg-com.el ./egg-com.el (defun comm-unpack-u32 () (progn (comm-require-process-output 4) -@@ -852,7 +869,7 @@ +@@ -852,7 +869,7 @@ See `comm-format' for FORMAT." (list (cond ((eq f 'U) `(setq ,arg (comm-unpack-u32c))) ((eq f 'u) `(setq ,arg (comm-unpack-u32))) @@ -3196,9 +9091,25 @@ diff -rdu ../tamago-4.0.6.org/egg-com.el ./egg-com.el ((eq f 'w) `(setq ,arg (comm-unpack-u16))) ((eq f 'b) `(setq ,arg (comm-unpack-u8))) ((eq f 'S) `(setq ,arg (comm-unpack-u16-string))) -diff -rdu ../tamago-4.0.6.org/egg-sim-old.el ./egg-sim-old.el ---- ../tamago-4.0.6.org/egg-sim-old.el Mon Jan 17 01:43:15 2000 -+++ ./egg-sim-old.el Fri Mar 16 14:13:50 2001 +diff -duNrp ../tamago-4.0.6/egg-mlh.el ./egg-mlh.el +--- ../tamago-4.0.6/egg-mlh.el Tue Jan 4 15:50:12 2000 ++++ ./egg-mlh.el Wed Sep 4 22:59:10 2002 +@@ -3,10 +3,10 @@ + + ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc + +-;; Author: NIIBE Yutaka <gniibe@chroot.org> ++;; Author: NIIBE Yutaka <gniibe@m17n.org> + ;; KATAYAMA Yoshio <kate@pfu.co.jp> ; Multilingual Enhancement + +-;; Maintainer: TOMURA Satoru <tomura@etl.go.jp> ++;; Maintainer: NIIBE Yutaka <gniibe@m17n.org> + + ;; Keywords: mule, multilingual, input method + +diff -duNrp ../tamago-4.0.6/egg-sim-old.el ./egg-sim-old.el +--- ../tamago-4.0.6/egg-sim-old.el Mon Jan 17 01:43:15 2000 ++++ ./egg-sim-old.el Thu Jan 1 09:00:00 1970 @@ -1,514 +0,0 @@ -;;; egg-sim.el --- EGG Simple Input Method - @@ -3714,9 +9625,9 @@ diff -rdu ../tamago-4.0.6.org/egg-sim-old.el ./egg-sim-old.el - (setq j (1+ j))) - (insert (format "\n"))) - (setq i (1+ i)))))) -diff -rdu ../tamago-4.0.6.org/egg-sim.el ./egg-sim.el ---- ../tamago-4.0.6.org/egg-sim.el Mon Jan 17 01:51:34 2000 -+++ ./egg-sim.el Fri Mar 16 14:13:50 2001 +diff -duNrp ../tamago-4.0.6/egg-sim.el ./egg-sim.el +--- ../tamago-4.0.6/egg-sim.el Mon Jan 17 01:51:34 2000 ++++ ./egg-sim.el Sun Jan 28 03:53:13 2001 @@ -73,7 +73,7 @@ result))))) @@ -3735,15 +9646,9 @@ diff -rdu ../tamago-4.0.6.org/egg-sim.el ./egg-sim.el (interactive) (let ((result (egg-simple-input-menu))) (cond((stringp result) -@@ -545,4 +545,4 @@ - (+ j 32 128))) - (setq j (1+ j))) - (insert (format "\n"))) -- (setq i (1+ i)))))) -+ (setq i (1+ i)))))) -diff -rdu ../tamago-4.0.6.org/egg-simv.el ./egg-simv.el ---- ../tamago-4.0.6.org/egg-simv.el Mon Jan 17 01:42:21 2000 -+++ ./egg-simv.el Fri Mar 16 14:13:50 2001 +diff -duNrp ../tamago-4.0.6/egg-simv.el ./egg-simv.el +--- ../tamago-4.0.6/egg-simv.el Mon Jan 17 01:42:21 2000 ++++ ./egg-simv.el Thu Jan 1 09:00:00 1970 @@ -1,47 +0,0 @@ - - | 0 1 2 3 4 5 6 7 8 9 A B C D E F @@ -3792,11 +9697,201 @@ diff -rdu ../tamago-4.0.6.org/egg-simv.el ./egg-simv.el -"Y" ",2O(B" ",2V(B" ",2[(B" ",2}(B" ",2\(B" - -",2p(B" ",1p(B" -diff -rdu ../tamago-4.0.6.org/egg.el ./egg.el ---- ../tamago-4.0.6.org/egg.el Mon Jan 17 09:36:17 2000 -+++ ./egg.el Fri Mar 16 14:13:50 2001 -@@ -33,10 +33,11 @@ - (require 'cl) +diff -duNrp ../tamago-4.0.6/egg-util.el ./egg-util.el +--- ../tamago-4.0.6/egg-util.el Thu Jan 6 20:49:06 2000 ++++ ./egg-util.el Thu Jan 1 09:00:00 1970 +@@ -1,62 +0,0 @@ +-;;; egg-util.el --- Utilities with Egg +- +-;; Copyright (C) 2000 ElectroTechinical Laboratory, Japan +-;; Copyright (C) 2000 TOMURA Satoru <tomura@etl.go.jp> +- +-;; Author: TOMURA Satoru <tomura@etl.go.jp> +- +-;; Maintainer: TOMURA Satoru <tomura@etl.go.jp> +- +-;; Keywords: mule, multilingual, input method +- +-;; This file is part of EGG. +- +-;; EGG is free software; you can redistribute it and/or modify +-;; it under the terms of the GNU General Public License as published by +-;; the Free Software Foundation; either version 2, or (at your option) +-;; any later version. +- +-;; EGG is distributed in the hope that it will be useful, +-;; but WITHOUT ANY WARRANTY; without even the implied warranty of +-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +-;; GNU General Public License for more details. +- +-;; You should have received a copy of the GNU General Public License +-;; along with GNU Emacs; see the file COPYING. If not, write to the +-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +-;; Boston, MA 02111-1307, USA. +- +-;;; Commentary: +- +-;;; Code: +- +-(provide 'egg-util) +- +-(defun add-directory-to-load-path (dir) +- (let ((dir (expand-file-name dir))) +- (add-to-list 'load-path dir) +- (let ((default-directory dir)) +- (normal-top-level-add-subdirs-to-load-path)))) +- +-(defun locate-libraries (library &optional nosuffix path interactive-call) +- (let ((lpath (or path load-path)) +- (result nil)) +- (while lpath +- (let ((path (locate-library library nosuffix lpath interactive-call))) +- (if path +- (progn +- (setq lpath (cdr-safe +- (member (directory-file-name (file-name-directory path)) +- lpath)) +- result (cons path result))) +- (progn +- (setq lpath nil +- result (reverse result)))))) +- result)) +- +-(defun load-libraries (library &optional path) +- (let ((files (locate-libraries library nil (or path load-path) nil))) +- (while files +- (load-file (car files)) +- (setq files (cdr files))))) +- +diff -duNrp ../tamago-4.0.6/egg-x0213.el ./egg-x0213.el +--- ../tamago-4.0.6/egg-x0213.el Thu Jan 1 09:00:00 1970 ++++ ./egg-x0213.el Sat Dec 1 18:42:24 2001 +@@ -0,0 +1,111 @@ ++;;; jisx0213.el --- Charset Definition for JIS X 0213 ++ ++;; Copyright (C) 1999,2000 PFU LIMITED ++ ++;; Author: KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++;; Maintainer: TOMURA Satoru <tomura@etl.go.jp> ++ ++;; Keywords: mule, multilingual, input method ++ ++;; This file is part of EGG. ++ ++;; EGG is free software; you can redistribute it and/or modify ++;; it under the terms of the GNU General Public License as published by ++;; the Free Software Foundation; either version 2, or (at your option) ++;; any later version. ++ ++;; EGG is distributed in the hope that it will be useful, ++;; but WITHOUT ANY WARRANTY; without even the implied warranty of ++;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ++;; GNU General Public License for more details. ++ ++;; You should have received a copy of the GNU General Public License ++;; along with GNU Emacs; see the file COPYING. If not, write to the ++;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ++;; Boston, MA 02111-1307, USA. ++ ++;;; Commentary: ++ ++;; This module defines JIS X 0213 character sets if these character ++;; sets are not defined. This module also defines fixed-euc-jisx0213 ++;; coding systems if these coding systems are not defined and can be ++;; defined. ++ ++;;; Code: ++ ++(if (not (charsetp 'japanese-jisx0213-1)) ++ (define-charset 151 'japanese-jisx0213-1 ++ [2 94 2 0 ?O 0 "JISX0213-1" "JISX0213-1" "JISX0213-1 (Japanese)"])) ++ ++(if (not (charsetp 'japanese-jisx0213-2)) ++ (define-charset 254 'japanese-jisx0213-2 ++ [2 94 2 0 ?P 0 "JISX0213-2" "JISX0213-2" "JISX0213-2 (Japanese)"])) ++ ++;; Mule-UCS is required to adopt fixed-euc-jisx0213. ++(or ++ noninteractive ;; unnecessary in non-interactive mode. ++ (unless (or (require 'jisx0213) ++ (get 'jisx0213-to-jisx0208/0212 'translation-table)) ++ (message "Mule-UCS not installed.")) ++ (coding-system-p 'fixed-euc-jisx0213) ++ (progn ++ ++ (define-ccl-program ccl-decode-fixed-euc-jisx0213 ++ `(2 ++ ((r3 = ,(charset-id 'katakana-jisx0201)) ++ (loop ;; ascii kana 212 208 ++ (read r0) ;; r0 - 0 0 h h ++ (read r1) ;; r1 - l h l h ++ (if (r0 < ?\x80) ++ ((if (r1 < ?\x80) ++ (write-repeat r1)) ++ (write r3) ++ (write-repeat r1)) ++ ((r0 &= 127) ++ (r0 <<= 7) ++ (if (r1 > ?\x80) ++ ((r1 &= 127) ++ (r2 = ,(charset-id 'japanese-jisx0213-1))) ++ (r2 = ,(charset-id 'japanese-jisx0213-2))) ++ (r0 += r1) ++ (translate-character jisx0213-to-jisx0208/0212 r2 r0) ++ (write-multibyte-character r2 r0) ++ (repeat) ++ )))))) ++ ++ (define-ccl-program ccl-encode-fixed-euc-jisx0213 ++ `(2 ++ ((loop ++ (read-multibyte-character r0 r1) ++ (r6 = (r0 == ,(charset-id 'ascii))) ;G0 ++ (r6 |= (r0 == ,(charset-id 'latin-jisx0201))) ++ (if r6 ++ ((write 0) ++ (write-repeat r1))) ++ (r6 = (r0 == ,(charset-id 'japanese-jisx0208))) ++ (r6 |= (r0 == ,(charset-id 'japanese-jisx0208-1978))) ++ (r6 |= (r0 == ,(charset-id 'japanese-jisx0213-1))) ++ (if r6 ;G1 ++ ((r2 = (r1 >> 7)) ++ (write (r2 | ?\x80)) ++ (write ((r1 & ?\x7f) | ?\x80)) ++ (repeat))) ++ (if (r0 == ,(charset-id 'katakana-jisx0201)) ;G2 ++ ((write 0) ++ (write (r1 | ?\x80)) ++ (repeat))) ++ (r6 = (r0 == ,(charset-id 'japanese-jisx0212))) ;G3 ++ (r6 |= (r0 == ,(charset-id 'japanese-jisx0213-2))) ++ (if r6 ++ ((r2 = (r1 >> 7)) ++ (write (r2 | ?\x80)) ++ (write (r1 & ?\x7f)) ++ (repeat))) ++ (repeat))))) ++ ++ (make-coding-system ++ 'fixed-euc-jisx0213 4 ?W "Coding System for fixed EUC Japanese" ++ (cons ccl-decode-fixed-euc-jisx0213 ccl-encode-fixed-euc-jisx0213)))) ++ ++(provide 'egg-x0213) +diff -duNrp ../tamago-4.0.6/egg.el ./egg.el +--- ../tamago-4.0.6/egg.el Mon Jan 17 09:36:17 2000 ++++ ./egg.el Mon Jul 22 22:18:56 2002 +@@ -30,13 +30,19 @@ + + ;;; Code: + +-(require 'cl) ++(defconst egg-version "4.0.6" ++ "Version number for this version of Tamago.") ++ ++(eval-when-compile ++ (require 'cl)) ++ (require 'egg-edep) -(autoload 'egg-simple-input-method "egg-sim") @@ -3809,7 +9904,12 @@ diff -rdu ../tamago-4.0.6.org/egg.el ./egg.el (defcustom egg-mode-preference t "*Make Egg as modefull input method, if non-NIL." -@@ -48,9 +49,84 @@ +@@ -44,13 +50,89 @@ + + (defvar egg-default-language) + +-(defvar egg-last-method-name) ++(defvar egg-last-method-name nil) (make-variable-buffer-local 'egg-last-method-name) (put 'egg-last-method-name 'permanent-local t) @@ -3883,8 +9983,9 @@ diff -rdu ../tamago-4.0.6.org/egg.el ./egg.el +(defun egg-activate-keymap-after-command () + (while egg-change-major-mode-buffer + (save-excursion -+ (set-buffer (car egg-change-major-mode-buffer)) -+ (egg-activate-keymap) ++ (when (buffer-live-p (car egg-change-major-mode-buffer)) ++ (set-buffer (car egg-change-major-mode-buffer)) ++ (egg-activate-keymap)) + (setq egg-change-major-mode-buffer (cdr egg-change-major-mode-buffer)))) + (remove-hook 'post-command-hook 'egg-activate-keymap-after-command)) + @@ -3897,7 +9998,7 @@ diff -rdu ../tamago-4.0.6.org/egg.el ./egg.el ;;;###autoload (defun egg-mode (&rest arg) -@@ -64,9 +140,9 @@ +@@ -64,9 +146,9 @@ (progn (its-exit-mode) (egg-exit-conversion)) @@ -3910,7 +10011,7 @@ diff -rdu ../tamago-4.0.6.org/egg.el ./egg.el (remove-hook 'input-method-activate-hook 'its-set-mode-line-title t) (force-mode-line-update)) ;; Turn on -@@ -77,11 +153,14 @@ +@@ -77,11 +159,14 @@ (egg-set-conversion-backend (nthcdr 2 arg)) (egg-set-conversion-backend (list (assq its-current-language (nthcdr 2 arg))) t) @@ -3930,7 +10031,7 @@ diff -rdu ../tamago-4.0.6.org/egg.el ./egg.el (setq inactivate-current-input-method-function 'egg-mode) (setq describe-current-input-method-function 'egg-help) (make-local-hook 'input-method-activate-hook) -@@ -95,43 +174,37 @@ +@@ -95,43 +180,44 @@ (if (<= (minibuffer-depth) 1) (remove-hook 'minibuffer-exit-hook 'egg-exit-from-minibuffer))) @@ -3972,6 +10073,13 @@ diff -rdu ../tamago-4.0.6.org/egg.el ./egg.el + (setq prop (cddr prop))) + (setq p (next-property-change p object to))) + (remove-text-properties from to props object))) ++ ++(defun egg-setup-invisibility-spec () ++ (if (listp buffer-invisibility-spec) ++ (unless (condition-case nil (memq 'egg buffer-invisibility-spec) (error)) ++ (setq buffer-invisibility-spec (cons 'egg buffer-invisibility-spec))) ++ (unless (eq buffer-invisibility-spec t) ++ (setq buffer-invisibility-spec (list 'egg buffer-invisibility-spec))))) (defvar egg-mark-list nil) (defvar egg-suppress-marking nil) @@ -3994,17 +10102,119 @@ diff -rdu ../tamago-4.0.6.org/egg.el ./egg.el (defun egg-mark-modification (beg end) (if (and (null egg-suppress-marking) -Only in ../tamago-4.0.6.org/: egg.el.orig -diff -rdu ../tamago-4.0.6.org/eggrc ./eggrc ---- ../tamago-4.0.6.org/eggrc Tue Jan 4 15:50:44 2000 -+++ ./eggrc Fri Mar 16 14:13:50 2001 +@@ -262,7 +348,7 @@ + (funcall auto-fill-function) + (while (and (< fill-column (current-column)) + (< (current-column) ocolumn)) +- (setq ocolumn (current-column)) ++ (setq ocolumn (current-column)) + (funcall auto-fill-function))))) + + (eval-when (eval load) +diff -duNrp ../tamago-4.0.6/eggrc ./eggrc +--- ../tamago-4.0.6/eggrc Tue Jan 4 15:50:44 2000 ++++ ./eggrc Mon Jul 22 22:18:56 2002 @@ -1,4 +1,4 @@ -;;; eggrc --- EGG Input Method Startup File +;;; eggrc --- EGG Input Method Startup File -*- emacs-lisp -*- ;; Copyright (C) 1999, 2000 Free Software Foundation, Inc -@@ -186,11 +186,15 @@ +@@ -107,6 +107,93 @@ + (wnn-add-dict '("ud") "" 15 t t) + (wnn-set-param 2 10 2 45 1 80 5 1 50 -20 400 -10 100 -100 200 0 200)) + ++(defun wnn7-jserver-setup () ++ (wnn-define-environment nil) ++ (wnn-set-fuzokugo "system/kougo.fzk") ++ (wnn-add-fisys-dict "system/fisd" '("fisd.h") t) ++ (wnn-add-fiusr-dict '("fiud") nil t nil) ++ ++ (wnn-add-dict "system/kihon.dic" '("kihon.h") 6 nil t) ++ (wnn-add-dict "system/symbol.dic" '("symbol.h") 1 nil t) ++ (wnn-add-dict "system/symbol_noat.dic" '("symbol_noat.h") 1 nil t) ++ (wnn-add-dict "system/tel.dic" '("tel.h") 1 nil t) ++ (wnn-add-dict "system/zip.dic" '("zip.h") 1 nil t) ++ (wnn-add-dict "system/tankan.dic" nil 1 nil nil) ++ (wnn-add-dict "system/tankan2.dic" nil 1 nil nil) ++ (wnn-add-dict "system/ikeiji.dic" nil 1 nil nil) ++ (wnn-add-dict "system/rensou.dic" nil 1 nil nil) ++ (wnn-add-dict '("ud") nil 15 t t) ++ ++ (wnn-add-dict "option/jinmei.dic" '("jinmei.h") 1 nil t) ++ (wnn-add-dict "option/chimei.dic" '("chimei.h") 1 nil t) ++ (wnn-add-dict "option/address.dic" '("address.h") 1 nil t) ++ (wnn-add-dict "option/station.dic" '("station.h") 1 nil t) ++ (wnn-add-dict "option/kana_english.dic" '("kana_english.h")1 nil t) ++ (wnn-add-dict "option/enterprise.dic" '("enterprise.h") 1 nil t) ++ (wnn-add-dict "option/airport.dic" '("airport.h") 1 nil t) ++ (wnn-add-dict "option/university.dic" '("university.h") 1 nil t) ++ (wnn-add-dict "option/zoo.dic" '("zoo.h") 1 nil t) ++ (wnn-add-dict "option/botanical_garden.dic" '("botanical_garden.h") 1 nil t) ++ (wnn-add-dict "option/aquarium.dic" '("aquarium.h") 1 nil t) ++ (wnn-add-dict "option/conveni.dic" '("conveni.h") 1 nil t) ++ (wnn-add-dict "option/amusement.dic" '("amusement.h") 1 nil t) ++ ++ (wnn-set-param 5 10 2 45 0 80 5 1 20 0 400 -100 400 80 200 2 200) ++ ++ (wnn-add-notrans-dict '("katakana") 15 t) ++ (wnn-add-bmodify-dict '("bunsetsu") 15 t) ++ ++ (wnn-set-last-is-first-mode t) ++ (wnn-set-complex-conv-mode nil) ++ ;; (wnn-set-okuri-flag -1) ++ (wnn-set-prefix-flag 0) ++ ++ (wnn-set-okuri-learn-mode t) ++ (wnn-set-prefix-learn-mode t) ++ (wnn-set-suffix-learn-mode t) ++ (wnn-set-common-learn-mode t) ++ (wnn-set-yuragi-mode nil) ++ ++ (wnn-set-freq-func-mode 4) ++ ++;; (wnn-set-yosoku-learn t) ++;; (wnn-set-yosoku-max-disp 10) ++;; (wnn-set-yosoku-last-is-first t) ++ ++;; (wnn-set-boin-kabusoku t) ++;; (wnn-set-shiin-choka t) ++;; (wnn-set-n-choka t) ++;; (wnn-set-nihongo-kosei t) ++ ++ ;; (wnn-set-numeric-mode -12) ++ ;; (wnn-set-alphabet-mode -30) ++ ;; (wnn-set-symbol-mode -40) ++ ++ (wnn-define-environment t) ++ (wnn-set-fuzokugo "system/kougo.fzk") ++ (wnn-add-dict "system/kihonR.dic" nil 1 nil nil) ++ (wnn-add-dict "system/telR.dic" nil 1 nil nil) ++ (wnn-add-dict "system/zipR.dic" nil 1 nil nil) ++ (wnn-add-dict "system/tankanR.dic" nil 1 nil nil) ++ (wnn-add-dict "system/tankan2R.dic" nil 1 nil nil) ++ ++ (wnn-add-dict "option/jinmeiR.dic" nil 1 nil nil) ++ (wnn-add-dict "option/chimeiR.dic" nil 1 nil nil) ++ (wnn-add-dict "option/addressR.dic" nil 1 nil nil) ++ ;;(wnn-add-dict "option/stationR.dic" nil 1 nil nil) ++ ;;(wnn-add-dict "option/kana_englishR.dic" nil 1 nil nil) ++ ;;(wnn-add-dict "option/enterpriseR.dic" nil 1 nil nil) ++ ;;(wnn-add-dict "option/airportR.dic" nil 1 nil nil) ++ ;;(wnn-add-dict "option/universityR.dic" nil 1 nil nil) ++ ;;(wnn-add-dict "option/zooR.dic" nil 1 nil nil) ++ ;;(wnn-add-dict "option/botanical_gardenR.dic" nil 1 nil nil) ++ ;;(wnn-add-dict "option/aquariumR.dic" nil 1 nil nil) ++ ;;(wnn-add-dict "option/conveniR.dic" nil 1 nil nil) ++ ;;(wnn-add-dict "option/amusementR.dic" nil 1 nil nil) ++ ++ (wnn-add-dict '("ud") nil 15 t t) ++ (wnn-set-param 2 10 2 45 1 80 5 1 50 -20 400 -10 100 -100 200 0 200)) ++ + (cond + ((eq egg-backend-type 'wnn) + (cond +@@ -186,11 +273,15 @@ (wnn-add-dict '("ud") nil 2 t t) (wnn-set-param 2 5 2 45 200 80 5 1 40 0 400 -100 400 80 200 2 200)))) @@ -4026,9 +10236,9 @@ diff -rdu ../tamago-4.0.6.org/eggrc ./eggrc + (canna-define-environment "Bushu" 0 t) + (canna-add-dict "bushu" nil)) + ) -diff -rdu ../tamago-4.0.6.org/its/ascii.el ./its/ascii.el ---- ../tamago-4.0.6.org/its/ascii.el Tue Jan 4 16:08:35 2000 -+++ ./its/ascii.el Fri Mar 16 14:14:19 2001 +diff -duNrp ../tamago-4.0.6/its/ascii.el ./its/ascii.el +--- ../tamago-4.0.6/its/ascii.el Tue Jan 4 16:08:35 2000 ++++ ./its/ascii.el Sun Jan 28 03:53:13 2001 @@ -26,10 +26,7 @@ ;; Boston, MA 02111-1307, USA. @@ -4041,10 +10251,553 @@ diff -rdu ../tamago-4.0.6.org/its/ascii.el ./its/ascii.el ;;; Code: -Only in ./its: aynu.el -diff -rdu ../tamago-4.0.6.org/its/hankata.el ./its/hankata.el ---- ../tamago-4.0.6.org/its/hankata.el Wed Jan 5 13:45:22 2000 -+++ ./its/hankata.el Fri Mar 16 14:14:19 2001 +diff -duNrp ../tamago-4.0.6/its/aynu.el ./its/aynu.el +--- ../tamago-4.0.6/its/aynu.el Thu Jan 1 09:00:00 1970 ++++ ./its/aynu.el Mon Jul 22 22:18:56 2002 +@@ -0,0 +1,285 @@ ++;;; its/aynu.el --- Aynu Katakana Input in Egg Input Method Architecture ++ ++;; Copyright (C) 1999,2000 PFU LIMITED ++ ++;; Author: KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++;; Maintainer: TOMURA Satoru <tomura@etl.go.jp> ++ ++;; Keywords: mule, multilingual, input method ++ ++;; This file is part of EGG. ++ ++;; EGG is free software; you can redistribute it and/or modify ++;; it under the terms of the GNU General Public License as published by ++;; the Free Software Foundation; either version 2, or (at your option) ++;; any later version. ++ ++;; EGG is distributed in the hope that it will be useful, ++;; but WITHOUT ANY WARRANTY; without even the implied warranty of ++;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ++;; GNU General Public License for more details. ++ ++;; You should have received a copy of the GNU General Public License ++;; along with GNU Emacs; see the file COPYING. If not, write to the ++;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ++;; Boston, MA 02111-1307, USA. ++ ++;;; Commentary: ++ ++ ++;;; Code: ++ ++(eval-when-compile ++ (require 'its) ++ (require 'cl)) ++ ++(eval-when (compile) ++ (defconst its-compaction-enable t)) ++ ++(defvar its-aynu-enable-zenkaku-alphabet ++ (if (boundp 'its-enable-fullwidth-alphabet) ++ its-enable-fullwidth-alphabet ++ t) ++ "*Enable Zenkaku alphabet") ++ ++(defvar its-aynu-horizontal "$(O!<(B" "*-") ; "-" "$(O!=(B" ++(defvar its-aynu-period "$(O!#(B " "*.") ; "." "$(O!#(B" ++(defvar its-aynu-comma "$(O!$(B " "*,") ; "," "$(O!$(B" ++(defvar its-aynu-open-bracket "$(O!V(B" "*[") ; "$(O!N(B" ++(defvar its-aynu-close-bracket "$(O!W(B" "*]") ; "$(O!O(B" ++ ++(defvar its-aynu-enable-double-n nil "*Enable \"nn\" input for \"$(O%s(B\"") ++ ++(defvar its-aynu-kick-conversion-on-space nil "*Start conversion on SPACE") ++ ++(eval-when-compile ++ (defun its-define-state-aynu (input i-tail output o-tail otherwise) ++ "Define following rules: ++INPUT + I-TAIL --> OUTPUT + O-TAIL ++INPUT + I-TAIL + ' --> OUTPUT + O-TAIL ++INPUT + I-TAIL + vowel --> (translate INPUT) + I-tail + vowel ++INPUT + I-TAIL + OTHERWISE (see `its-defrule-otherwise')." ++ (let ((out (concat output o-tail)) ++ state) ++ (setq state (its-defrule (concat input i-tail) out)) ++ (its-defrule (concat input i-tail "'") out) ++ (its-defrule-otherwise state nil "[aiueo]" -2) ++ (while otherwise ++ (its-defrule-otherwise state (concat output (caar otherwise)) ++ (nth 1 (car otherwise)) (nth 2 (car otherwise))) ++ (setq otherwise (cdr otherwise))) ++ (setq state (its-defrule (concat input i-tail "y") (concat out "$(O%#(B"))) ++ (its-make-next-state state -1 out -1) ++ (its-defrule-otherwise state out nil -2) ++ (its-defrule-otherwise state nil "[u]" -3) ++)) ++ ++ (defconst its-aynu-tail-alist ++ (let ((common '(("k" "$(O&n(B" (("$(O%C(B" "[k]" -1))) ++ ("s" "$(O&o(B" (("$(O%C(B" "[s]" -1) (nil "[h]" -2))) ++ ("p" "$(O&x(B" (("$(O%C(B" "[p]" -1))) ++ ("m" "$(O&y(B" (("$(O%s(B" "[mp]" -1))) ++ ("t" "$(O%C(B") ("y" "$(O%#(B") ("w" "$(O%%(B")))) ++ `((?a ("h" "$(O&s(B") ("x" "$(O&s(B") ("r" "$(O&z(B") ,@common) ++ (?i ("h" "$(O&t(B") ("x" "$(O&t(B") ("r" "$(O&{(B") ,@common) ++ (?u ("h" "$(O&u(B") ("x" "$(O&u(B") ("r" "$(O&|(B") ,@common) ++ (?e ("h" "$(O&v(B") ("x" "$(O&v(B") ("r" "$(O&}(B") ,@common) ++ (?o ("h" "$(O&w(B") ("x" "$(O&w(B") ("r" "$(O&~(B") ,@common)))) ++ ++ (defun its-defrule-aynu (conso vowel output) ++ (let ((input (concat conso vowel)) ++ (tails (and vowel (cdr (assq (aref vowel 0) its-aynu-tail-alist))))) ++ (its-defrule input output) ++ (while tails ++ (its-define-state-aynu input (caar tails) output (nth 1 (car tails)) ++ (nth 2 (car tails))) ++ (setq tails (cdr tails))))) ++ ++ (defmacro its-define-aynu (&rest rules) ++ (let ((defs (list 'progn)) ++ conso vowels output) ++ (while rules ++ (setq vowels '(nil "a" "i" "u" "e" "o") ++ conso (caar rules) ++ output (cdar rules) ++ rules (cdr rules)) ++ (while output ++ (when (car output) ++ (setq defs (cons `(its-defrule-aynu ,conso ,(car vowels) ++ ,(car output)) ++ defs))) ++ (setq output (cdr output) ++ vowels (cdr vowels)))) ++ (nreverse defs))) ++ ++ (defun its-defrule-aynu-override-yu (conso) ++ (let ((output (its-get-output (its-goto-state conso))) ++ state) ++ (its-defrule (concat conso "yu") ++ (concat (its-get-output (its-goto-state (concat conso "i"))) ++ "$(O%e!<(B")) ++ (setq state (its-goto-state (concat conso "y"))) ++ (its-set-output state (concat output "$(O%#(B")) ++ (its-make-next-state state -1 output -1) ++ (its-defrule-otherwise state output nil -2)))) ++ ++(define-its-state-machine its-aynu-map ++ "roma-aynu-kata" "$(O%"(B" Aynu ++ "Map for Romaji-Aynu-Katakana translation. (Japanese)" ++ ++ (defconst its-zenkaku-escape "Z") ;; Escape character to Zenkaku inputs ++ (defconst its-hankaku-escape "~") ;; Escape character to Hankaku inputs ++ ++ (its-defrule-select-mode-temporally "q" downcase) ++ (its-defrule-select-mode-temporally "Q" zenkaku-downcase) ++ ++ (dolist (small '(("a" "$(O%!(B") ("i" "$(O%#(B") ("u" "$(O%%(B") ("e" "$(O%'(B") ("o" "$(O%)(B") ++ ("ka" "$(O%u(B") ("ku" "$(O&n(B") ("ke" "$(O%v(B") ++ ("si" "$(O&o(B") ("su" "$(O&p(B") ++ ("tu" "$(O%C(B") ("to" "$(O&q(B") ++ ("nu" "$(O&r(B") ++ ("ha" "$(O&s(B") ("hi" "$(O&t(B") ("hu" "$(O&u(B") ("he" "$(O&v(B") ("ho" "$(O&w(B") ++ ("pu" "$(O&x(B") ++ ("mu" "$(O&y(B") ++ ("ya" "$(O%c(B") ("yu" "$(O%e(B") ("yo" "$(O%g(B") ++ ("ra" "$(O&z(B") ("ri" "$(O&{(B") ("ru" "$(O&|(B") ("re" "$(O&}(B") ("ro" "$(O&~(B") ++ ("wa" "$(O%n(B"))) ++ (its-defrule (concat "x" (car small)) (cadr small))) ++ ++ (its-define-aynu ++ ("" nil "$(O%"(B" "$(O%$(B" "$(O%&(B" "$(O%((B" "$(O%*(B") ++ ("k" "$(O&n(B" "$(O%+(B" "$(O%-(B" "$(O%/(B" "$(O%1(B" "$(O%3(B") ++ ("g" "$(O%0(B" "$(O%,(B" "$(O%.(B" "$(O%0(B" "$(O%2(B" "$(O%4(B") ++ ("s" "$(O&p(B" "$(O%5(B" "$(O%7(B" "$(O%9(B" "$(O%;(B" "$(O%=(B") ++ ("z" nil "$(O%6(B" "$(O%8(B" "$(O%:(B" "$(O%<(B" "$(O%>(B") ++ ("vs" nil nil nil nil "$(O%|(B" nil) ++ ("sh" "$(O%7%c(B" "$(O%7%c(B" "$(O%7(B" "$(O%7%e(B" "$(O%7%'(B" "$(O%7%g(B") ++ ("j" nil "$(O%8%c(B" "$(O%8(B" "$(O%8%e(B" "$(O%8%'(B" "$(O%8%g(B") ++ ("t" "$(O%C(B" "$(O%?(B" "$(O%A(B" "$(O%H%%(B" "$(O%F(B" "$(O%H(B") ++ ("vt" nil nil nil "$(O%}(B" nil "$(O%~(B") ++ ("d" nil "$(O%@(B" "$(O%B(B" "$(O%E(B" "$(O%G(B" "$(O%I(B") ++ ("c" "$(O%C(B" "$(O%A%c(B" "$(O%A(B" "$(O%A%e(B" "$(O%A%'(B" "$(O%A%g(B") ++ ("ch" "$(O%C(B" "$(O%A%c(B" "$(O%A(B" "$(O%A%e(B" "$(O%A%'(B" "$(O%A%g(B") ++ ("n" "$(O%s(B" "$(O%J(B" "$(O%K(B" "$(O%L(B" "$(O%M(B" "$(O%N(B") ++ ("h" "$(O&s(B" "$(O%O(B" "$(O%R(B" "$(O%U(B" "$(O%X(B" "$(O%[(B") ++ ("b" nil "$(O%P(B" "$(O%S(B" "$(O%V(B" "$(O%Y(B" "$(O%\(B") ++ ("p" "$(O&x(B" "$(O%Q(B" "$(O%T(B" "$(O%W(B" "$(O%Z(B" "$(O%](B") ++ ("m" "$(O&y(B" "$(O%^(B" "$(O%_(B" "$(O%`(B" "$(O%a(B" "$(O%b(B") ++ ("y" "$(O%#(B" "$(O%d(B" "$(O%#(B" "$(O%f(B" "$(O%$%'(B" "$(O%h(B") ++ ("r" "$(O&|(B" "$(O%i(B" "$(O%j(B" "$(O%k(B" "$(O%l(B" "$(O%m(B") ++ ("w" "$(O%%(B" "$(O%o(B" "$(O%&%#(B" "$(O%%(B" "$(O%&%'(B" "$(O%&%)(B")) ++ ++ (dolist (yu '("k" "g" "s" "z" "sh" "j" "t" "d" ++ "c" "ch" "n" "h" "b" "p" "m" "r")) ++ (its-defrule-aynu-override-yu yu)) ++ ++ (its-defrule "kk" "$(O%C(B" -1) ++ (its-defrule "ss" "$(O%C(B" -1) ++ (its-defrule "pp" "$(O%C(B" -1) ++ (its-defrule "vv" "$(O%C(B" -1) ++ ++;; SYMBOL Input ++ (its-defrule "z1" "$(O!{(B") (its-defrule "z!" "$(O!|(B") ++ (its-defrule "z2" "$(O"&(B") (its-defrule "z@" "$(O"'(B") ++ (its-defrule "z3" "$(O"$(B") (its-defrule "z#" "$(O"%(B") ++ (its-defrule "z4" "$(O""(B") (its-defrule "z$" "$(O"#(B") ++ (its-defrule "z5" "$(O!~(B") (its-defrule "z%" "$(O"!(B") ++ (its-defrule "z6" "$(O!y(B") (its-defrule "z^" "$(O!z(B") ++ (its-defrule "z7" "$(O!}(B") (its-defrule "z&" "$(O!r(B") ++ (its-defrule "z8" "$(O!q(B") (its-defrule "z*" "$(O!_(B") ++ (its-defrule "z9" "$(O!i(B") (its-defrule "z(" "$(O!Z(B") ++ (its-defrule "z0" "$(O!j(B") (its-defrule "z)" "$(O![(B") ++ (its-defrule "z-" "$(O!A(B") (its-defrule "z_" "$(O!h(B") ++ (its-defrule "z=" "$(O!b(B") (its-defrule "z+" "$(O!^(B") ++ (its-defrule "z\\" "$(O!@(B") (its-defrule "z|" "$(O!B(B") ++ (its-defrule "z`" "$(O!-(B") (its-defrule "z~" "$(O!/(B") ++ ++ (its-defrule "zq" "$(O!T(B") (its-defrule "zQ" "$(O!R(B") ++ (its-defrule "zw" "$(O!U(B") (its-defrule "zW" "$(O!S(B") ++ ; e ++ (its-defrule "zr" "$(O!9(B") (its-defrule "zR" "$(O!8(B") ++ (its-defrule "zt" "$(O!:(B") (its-defrule "zT" "$(O!x(B") ++ ; y u i o ++ (its-defrule "zp" "$(O")(B") (its-defrule "zP" "$(O",(B") ++ (its-defrule "z[" "$(O!X(B") (its-defrule "z{" "$(O!L(B") ++ (its-defrule "z]" "$(O!Y(B") (its-defrule "z}" "$(O!M(B") ++ ; a ++ (its-defrule "zs" "$(O!3(B") (its-defrule "zS" "$(O!4(B") ++ (its-defrule "zd" "$(O!5(B") (its-defrule "zD" "$(O!6(B") ++ (its-defrule "zf" "$(O!7(B") (its-defrule "zF" "$(O"*(B") ++ (its-defrule "zg" "$(O!>(B") (its-defrule "zG" "$(O!=(B") ++ (its-defrule "zh" "$(O"+(B") ++ (its-defrule "zj" "$(O"-(B") ++ (its-defrule "zk" "$(O",(B") ++ (its-defrule "zl" "$(O"*(B") ++ (its-defrule "z;" "$(O!+(B") (its-defrule "z:" "$(O!,(B") ++ (its-defrule "z\'" "$(O!F(B") (its-defrule "z\"" "$(O!H(B") ++ ; z ++ (its-defrule "zx" ":-") (its-defrule "zX" ":-)") ++ (its-defrule "zc" "$(O!;(B") (its-defrule "zC" "$(O!n(B") ++ (its-defrule "zv" "$(O"((B") (its-defrule "zV" "$(O!`(B") ++ (its-defrule "zb" "$(O!k(B") (its-defrule "zB" "$(O"+(B") ++ (its-defrule "zn" "$(O!l(B") (its-defrule "zN" "$(O"-(B") ++ (its-defrule "zm" "$(O!m(B") (its-defrule "zM" "$(O".(B") ++ (its-defrule "z," "$(O!E(B") (its-defrule "z<" "$(O!e(B") ++ (its-defrule "z." "$(O!D(B") (its-defrule "z>" "$(O!f(B") ++ (its-defrule "z/" "$(O!&(B") (its-defrule "z?" "$(O!g(B") ++ ) ++ ++(define-its-state-machine-append its-aynu-map ++ (if its-aynu-enable-double-n ++ (its-defrule "nn" "$(O%s(B")) ++ ++ (its-defrule "-" its-aynu-horizontal) ++ (its-defrule "." its-aynu-period) ++ (its-defrule "," its-aynu-comma) ++ (its-defrule "[" its-aynu-open-bracket) ++ (its-defrule "]" its-aynu-close-bracket) ++ ++ (unless its-aynu-kick-conversion-on-space ++ (its-defrule " " " ")) ++ ++ (if its-aynu-enable-zenkaku-alphabet ++ (progn ++ (its-defrule "1" "$(O#1(B") (its-defrule "2" "$(O#2(B") ++ (its-defrule "3" "$(O#3(B") (its-defrule "4" "$(O#4(B") ++ (its-defrule "5" "$(O#5(B") (its-defrule "6" "$(O#6(B") ++ (its-defrule "7" "$(O#7(B") (its-defrule "8" "$(O#8(B") ++ (its-defrule "9" "$(O#9(B") (its-defrule "0" "$(O#0(B") ++ (its-defrule "!" "$(O!*(B") (its-defrule "@" "$(O!w(B") ++ (its-defrule "#" "$(O!t(B") (its-defrule "$" "$(O!p(B") ++ (its-defrule "%" "$(O!s(B") (its-defrule "^" "$(O!0(B") ++ (its-defrule "&" "$(O!u(B") (its-defrule "*" "$(O!v(B") ++ (its-defrule "(" "$(O!J(B") (its-defrule ")" "$(O!K(B") ++ (its-defrule "=" "$(O!a(B") (its-defrule "`" "$(O!.(B") ++ (its-defrule "\\" "$(O!o(B") (its-defrule "|" "$(O!C(B") ++ (its-defrule "_" "$(O!2(B") (its-defrule "+" "$(O!\(B") ++ (its-defrule "{" "$(O!P(B") (its-defrule "}" "$(O!Q(B") ++ (its-defrule ":" "$(O!'(B") (its-defrule ";" "$(O!((B") ++ (its-defrule "\"" "$(O!I(B") (its-defrule "'" "$(O!G(B") ++ (its-defrule "<" "$(O!c(B") (its-defrule ">" "$(O!d(B") ++ (its-defrule "?" "$(O!)(B") (its-defrule "/" "$(O!?(B")) ++ (progn ++ (its-defrule "1" "1") (its-defrule "2" "2") ++ (its-defrule "3" "3") (its-defrule "4" "4") ++ (its-defrule "5" "5") (its-defrule "6" "6") ++ (its-defrule "7" "7") (its-defrule "8" "8") ++ (its-defrule "9" "9") (its-defrule "0" "0") ++ (its-defrule "!" "!") (its-defrule "@" "@") ++ (its-defrule "#" "#") (its-defrule "$" "$") ++ (its-defrule "%" "%") (its-defrule "^" "^") ++ (its-defrule "&" "&") (its-defrule "*" "*") ++ (its-defrule "(" "(") (its-defrule ")" ")") ++ (its-defrule "=" "=") (its-defrule "`" "`") ++ (its-defrule "\\" "\\") (its-defrule "|" "|") ++ (its-defrule "_" "_") (its-defrule "+" "+") ++ (its-defrule "{" "{") (its-defrule "}" "}") ++ (its-defrule ":" ":") (its-defrule ";" ";") ++ (its-defrule "\"" "\"") (its-defrule "'" "'") ++ (its-defrule "<" "<") (its-defrule ">" ">") ++ (its-defrule "?" "?") (its-defrule "/" "/")))) ++ ++(provide 'its/aynu) ++ ++;;; its/aynu.el ends here +diff -duNrp ../tamago-4.0.6/its/greek.el ./its/greek.el +--- ../tamago-4.0.6/its/greek.el Thu Jan 1 09:00:00 1970 ++++ ./its/greek.el Mon Aug 20 19:09:07 2001 +@@ -0,0 +1,251 @@ ++(eval-when-compile ++ (require 'its) ++ (require 'cl)) ++ ++(eval-when (compile) ++ (defconst its-compaction-enable t)) ++ ++(defgroup greek nil ++ "Greek Input Method" ++ :group 'its) ++ ++(define-its-state-machine its-greek-jis-map ++ "greek-jis" "$B&8(B" Greek ++ "$B&%&K&K&G&M&I&J&A(B: Greek keyboard layout (JIS X0208.1983) ++ ++The layout is same as greek, but uses JIS characters. ++Sorry, accents and terminal sigma are not supported in JIS." ++ ++ (its-defrule "1" "$B#1(B") ++ (its-defrule "2" "$B#2(B") ++ (its-defrule "3" "$B#3(B") ++ (its-defrule "4" "$B#4(B") ++ (its-defrule "5" "$B#5(B") ++ (its-defrule "6" "$B#6(B") ++ (its-defrule "7" "$B#7(B") ++ (its-defrule "8" "$B#8(B") ++ (its-defrule "9" "$B#9(B") ++ (its-defrule "0" "$B#0(B") ++ (its-defrule "-" "$B!](B") ++ (its-defrule "=" "$B!a(B") ++ (its-defrule "`" "$B!F(B") ++ (its-defrule "q" "$B!&(B") ++ (its-defrule "w" "$B&R(B") ++ (its-defrule "e" "$B&E(B") ++ (its-defrule "r" "$B&Q(B") ++ (its-defrule "t" "$B&S(B") ++ (its-defrule "y" "$B&T(B") ++ (its-defrule "u" "$B&H(B") ++ (its-defrule "i" "$B&I(B") ++ (its-defrule "o" "$B&O(B") ++ (its-defrule "p" "$B&P(B") ++ (its-defrule "[" "$B!N(B") ++ (its-defrule "]" "$B!O(B") ++ (its-defrule "a" "$B&A(B") ++ (its-defrule "s" "$B&R(B") ++ (its-defrule "d" "$B&D(B") ++ (its-defrule "f" "$B&U(B") ++ (its-defrule "g" "$B&C(B") ++ (its-defrule "h" "$B&G(B") ++ (its-defrule "j" "$B&N(B") ++ (its-defrule "k" "$B&J(B") ++ (its-defrule "l" "$B&K(B") ++ (its-defrule ";" "$B!G(B") ++ (its-defrule "'" "$B!G(B") ++ (its-defrule "\\" "$B!@(B") ++ (its-defrule "z" "$B&F(B") ++ (its-defrule "x" "$B&V(B") ++ (its-defrule "c" "$B&W(B") ++ (its-defrule "v" "$B&X(B") ++ (its-defrule "b" "$B&B(B") ++ (its-defrule "n" "$B&M(B") ++ (its-defrule "m" "$B&L(B") ++ (its-defrule "," ", ") ++ (its-defrule "." ". ") ++ (its-defrule "/" "$B!?(B") ++ ++ (its-defrule "!" "$B!*(B") ++ (its-defrule "@" "$B!w(B") ++ (its-defrule "#" "$B!t(B") ++ (its-defrule "$" "$B!t(B") ++ (its-defrule "%" "$B!s(B") ++ (its-defrule "^" "$B!0(B") ++ (its-defrule "&" "$B!u(B") ++ (its-defrule "*" "$B!v(B") ++ (its-defrule "(" "$B!J(B") ++ (its-defrule ")" "$B!K(B") ++ (its-defrule "_" "$B!2(B") ++ (its-defrule "+" "$B!\(B") ++ (its-defrule "~" "$B!1(B") ++ (its-defrule "Q" "$B!](B") ++ (its-defrule "W" "$B&2(B") ++ (its-defrule "E" "$B&%(B") ++ (its-defrule "R" "$B&1(B") ++ (its-defrule "T" "$B&3(B") ++ (its-defrule "Y" "$B&4(B") ++ (its-defrule "U" "$B&((B") ++ (its-defrule "I" "$B&)(B") ++ (its-defrule "O" "$B&/(B") ++ (its-defrule "P" "$B&1(B") ++ (its-defrule "{" "$B!P(B") ++ (its-defrule "}" "$B!Q(B") ++ (its-defrule "A" "$B&!(B") ++ (its-defrule "S" "$B&2(B") ++ (its-defrule "D" "$B&$(B") ++ (its-defrule "F" "$B&5(B") ++ (its-defrule "G" "$B&#(B") ++ (its-defrule "H" "$B&'(B") ++ (its-defrule "J" "$B&.(B") ++ (its-defrule "K" "$B&*(B") ++ (its-defrule "L" "$B&+(B") ++ (its-defrule ":" "$B!I(B") ++ (its-defrule "\"" "$B!I(B") ++ (its-defrule "|" "$B!C(B") ++ (its-defrule "Z" "$B&&(B") ++ (its-defrule "X" "$B&6(B") ++ (its-defrule "C" "$B&7(B") ++ (its-defrule "V" "$B&8(B") ++ (its-defrule "B" "$B&"(B") ++ (its-defrule "N" "$B&-(B") ++ (its-defrule "M" "$B&,(B") ++ (its-defrule "<" "$B!((B") ++ (its-defrule ">" "$B!'(B") ++ (its-defrule "?" "$B!)(B")) ++ ++(define-its-state-machine its-greek-map ++ "greek" ",FY(B" Greek ++ ",FEkkgmij\(B: Greek keyboard layout (ISO 8859-7) ++-------------- ++ ++In the right of ,Fk(B key is a combination key, where ++ ,F4(B acute ++ ,F((B diaresis ++ ++e.g. ++ ,Fa(B + ,F4(B -> ,F\(B ++ ,Fi(B + ,F((B -> ,Fz(B ++ ,Fi(B + ,F((B + ,F4(B -> ,F@(B" ++ ++;; 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ `~ ++;; ,F7/(B ,FrS(B ,FeE(B ,FqQ(B ,FtT(B ,FuU(B ,FhH(B ,FiI(B ,FoO(B ,FpP(B [{ ]} ++;; ,FaA(B ,FsS(B ,FdD(B ,FvV(B ,FcC(B ,FgG(B ,FnN(B ,FjJ(B ,FkK(B ,F4((B '" \| ++;; ,FfF(B ,FwW(B ,FxX(B ,FyY(B ,FbB(B ,FmM(B ,FlL(B ,; .: /? ++ ++ (its-defrule "1" "1") ++ (its-defrule "2" "2") ++ (its-defrule "3" "3") ++ (its-defrule "4" "4") ++ (its-defrule "5" "5") ++ (its-defrule "6" "6") ++ (its-defrule "7" "7") ++ (its-defrule "8" "8") ++ (its-defrule "9" "9") ++ (its-defrule "0" "0") ++ (its-defrule "-" "-") ++ (its-defrule "=" "=") ++ (its-defrule "`" "`") ++ (its-defrule "q" ",F7(B") ++ (its-defrule "w" ",Fr(B") ++ (its-defrule "e" ",Fe(B") ++ (its-defrule "r" ",Fq(B") ++ (its-defrule "t" ",Ft(B") ++ (its-defrule "y" ",Fu(B") ++ (its-defrule "u" ",Fh(B") ++ (its-defrule "i" ",Fi(B") ++ (its-defrule "o" ",Fo(B") ++ (its-defrule "p" ",Fp(B") ++ (its-defrule "[" "[") ++ (its-defrule "]" "]") ++ (its-defrule "a" ",Fa(B") ++ (its-defrule "s" ",Fs(B") ++ (its-defrule "d" ",Fd(B") ++ (its-defrule "f" ",Fv(B") ++ (its-defrule "g" ",Fc(B") ++ (its-defrule "h" ",Fg(B") ++ (its-defrule "j" ",Fn(B") ++ (its-defrule "k" ",Fj(B") ++ (its-defrule "l" ",Fk(B") ++ (its-defrule ";" ",F4(B") ++ (its-defrule "'" "'") ++ (its-defrule "\\" "\\") ++ (its-defrule "z" ",Ff(B") ++ (its-defrule "x" ",Fw(B") ++ (its-defrule "c" ",Fx(B") ++ (its-defrule "v" ",Fy(B") ++ (its-defrule "b" ",Fb(B") ++ (its-defrule "n" ",Fm(B") ++ (its-defrule "m" ",Fl(B") ++ (its-defrule "," ",") ++ (its-defrule "." ".") ++ (its-defrule "/" "/") ++ ++ (its-defrule "!" "!") ++ (its-defrule "@" "@") ++ (its-defrule "#" "#") ++ (its-defrule "$" "$") ++ (its-defrule "%" "%") ++ (its-defrule "^" "^") ++ (its-defrule "&" "&") ++ (its-defrule "*" "*") ++ (its-defrule "(" "(") ++ (its-defrule ")" ")") ++ (its-defrule "_" "_") ++ (its-defrule "+" "+") ++ (its-defrule "~" "~") ++ (its-defrule "Q" ",F/(B") ++ (its-defrule "W" ",FS(B") ++ (its-defrule "E" ",FE(B") ++ (its-defrule "R" ",FQ(B") ++ (its-defrule "T" ",FT(B") ++ (its-defrule "Y" ",FU(B") ++ (its-defrule "U" ",FH(B") ++ (its-defrule "I" ",FI(B") ++ (its-defrule "O" ",FO(B") ++ (its-defrule "P" ",FP(B") ++ (its-defrule "{" "{") ++ (its-defrule "}" "}") ++ (its-defrule "A" ",FA(B") ++ (its-defrule "S" ",FS(B") ++ (its-defrule "D" ",FD(B") ++ (its-defrule "F" ",FV(B") ++ (its-defrule "G" ",FC(B") ++ (its-defrule "H" ",FG(B") ++ (its-defrule "J" ",FN(B") ++ (its-defrule "K" ",FJ(B") ++ (its-defrule "L" ",FK(B") ++ (its-defrule ":" ",F((B") ++ (its-defrule "\"" "\"") ++ (its-defrule "|" "|") ++ (its-defrule "Z" ",FF(B") ++ (its-defrule "X" ",FW(B") ++ (its-defrule "C" ",FX(B") ++ (its-defrule "V" ",FY(B") ++ (its-defrule "B" ",FB(B") ++ (its-defrule "N" ",FM(B") ++ (its-defrule "M" ",FL(B") ++ (its-defrule "<" ";") ++ (its-defrule ">" ":") ++ (its-defrule "?" "?") ++ ++ (its-defrule "a;" ",F\(B") ++ (its-defrule "e;" ",F](B") ++ (its-defrule "h;" ",F^(B") ++ (its-defrule "i;" ",F_(B") ++ (its-defrule "o;" ",F|(B") ++ (its-defrule "y;" ",F}(B") ++ (its-defrule "v;" ",F~(B") ++ (its-defrule "A;" ",F6(B") ++ (its-defrule "E;" ",F8(B") ++ (its-defrule "H;" ",F9(B") ++ (its-defrule "I;" ",F:(B") ++ (its-defrule "O;" ",F<(B") ++ (its-defrule "Y;" ",F>(B") ++ (its-defrule "V;" ",F?(B") ++ (its-defrule "i:" ",Fz(B") ++ (its-defrule "y:" ",F{(B") ++ (its-defrule "I:" ",FZ(B") ++ (its-defrule "Y:" ",F[(B") ++ (its-defrule "i:;" ",F@(B") ++ (its-defrule "y:;" ",F`(B")) ++ ++(provide 'its/greek) +diff -duNrp ../tamago-4.0.6/its/hankata.el ./its/hankata.el +--- ../tamago-4.0.6/its/hankata.el Wed Jan 5 13:45:22 2000 ++++ ./its/hankata.el Sun Jan 28 03:53:13 2001 @@ -24,10 +24,7 @@ ;; Boston, MA 02111-1307, USA. @@ -4057,9 +10810,9 @@ diff -rdu ../tamago-4.0.6.org/its/hankata.el ./its/hankata.el ;;; Code: -diff -rdu ../tamago-4.0.6.org/its/jeonkak.el ./its/jeonkak.el ---- ../tamago-4.0.6.org/its/jeonkak.el Tue Jan 4 16:09:13 2000 -+++ ./its/jeonkak.el Fri Mar 16 14:14:19 2001 +diff -duNrp ../tamago-4.0.6/its/jeonkak.el ./its/jeonkak.el +--- ../tamago-4.0.6/its/jeonkak.el Tue Jan 4 16:09:13 2000 ++++ ./its/jeonkak.el Sun Jan 28 03:53:13 2001 @@ -26,10 +26,7 @@ ;; Boston, MA 02111-1307, USA. @@ -4072,9 +10825,9 @@ diff -rdu ../tamago-4.0.6.org/its/jeonkak.el ./its/jeonkak.el ;;; Code: -diff -rdu ../tamago-4.0.6.org/its/pinyin.el ./its/pinyin.el ---- ../tamago-4.0.6.org/its/pinyin.el Tue Jan 4 16:09:25 2000 -+++ ./its/pinyin.el Fri Mar 16 14:14:19 2001 +diff -duNrp ../tamago-4.0.6/its/pinyin.el ./its/pinyin.el +--- ../tamago-4.0.6/its/pinyin.el Tue Jan 4 16:09:25 2000 ++++ ./its/pinyin.el Mon Jul 22 22:18:56 2002 @@ -4,7 +4,7 @@ ;; Author: KATAYAMA Yoshio <kate@pfu.co.jp> @@ -4084,9 +10837,27 @@ diff -rdu ../tamago-4.0.6.org/its/pinyin.el ./its/pinyin.el ;; Keywords: mule, multilingual, input method -diff -rdu ../tamago-4.0.6.org/its/quanjiao.el ./its/quanjiao.el ---- ../tamago-4.0.6.org/its/quanjiao.el Tue Jan 4 16:09:32 2000 -+++ ./its/quanjiao.el Fri Mar 16 14:14:19 2001 +@@ -237,7 +237,7 @@ + + (dolist (ascii '(("0" . "$A#0(B") ("1" . "$A#1(B") ("2" . "$A#2(B") ("3" . "$A#3(B") + ("4" . "$A#4(B") ("5" . "$A#5(B") ("6" . "$A#6(B") ("7" . "$A#7(B") +- ("8" . "$A#8(B") ("9" . "$A#9(B") ++ ("8" . "$A#8(B") ("9" . "$A#9(B") + (" " . "$A!!(B") ("!" . "$A#!(B") ("@" . "$A#@(B") ("#" . "$A##(B") + ("$" . "$A!g(B") ("%" . "$A#%(B") ("^" . "$A#^(B") ("&" . "$A#&(B") + ("*" . "$A#*(B") ("(" . "$A#((B") (")" . "$A#)(B") +@@ -311,7 +311,7 @@ + + (dolist (ascii '(("0" . "$(G$!(B") ("1" . "$(G$"(B") ("2" . "$(G$#(B") ("3" . "$(G$$(B") + ("4" . "$(G$%(B") ("5" . "$(G$&(B") ("6" . "$(G$'(B") ("7" . "$(G$((B") +- ("8" . "$(G$)(B") ("9" . "$(G$*(B") ++ ("8" . "$(G$)(B") ("9" . "$(G$*(B") + (" " . "$(G!!(B") ("!" . "$(G!*(B") ("@" . "$(G"i(B") ("#" . "$(G!l(B") + ("$" . "$(G"c(B") ("%" . "$(G"h(B") ("^" . "$(G!T(B") ("&" . "$(G!m(B") + ("*" . "$(G!n(B") ("(" . "$(G!>(B") (")" . "$(G!?(B") +diff -duNrp ../tamago-4.0.6/its/quanjiao.el ./its/quanjiao.el +--- ../tamago-4.0.6/its/quanjiao.el Tue Jan 4 16:09:32 2000 ++++ ./its/quanjiao.el Sun Jan 28 03:53:13 2001 @@ -26,10 +26,7 @@ ;; Boston, MA 02111-1307, USA. @@ -4099,9 +10870,9 @@ diff -rdu ../tamago-4.0.6.org/its/quanjiao.el ./its/quanjiao.el ;;; Code: -diff -rdu ../tamago-4.0.6.org/its/thai.el ./its/thai.el ---- ../tamago-4.0.6.org/its/thai.el Tue Jan 4 16:09:40 2000 -+++ ./its/thai.el Fri Mar 16 14:14:19 2001 +diff -duNrp ../tamago-4.0.6/its/thai.el ./its/thai.el +--- ../tamago-4.0.6/its/thai.el Tue Jan 4 16:09:40 2000 ++++ ./its/thai.el Sun Jan 28 03:53:13 2001 @@ -69,7 +69,7 @@ (setq next-keyseq (concat keyseq (car (car vowel))) next-output (concat output (cdr (car vowel))) @@ -4129,9 +10900,9 @@ diff -rdu ../tamago-4.0.6.org/its/thai.el ./its/thai.el ("8" ",T$(B" consonant) ("*" ",Tu(B") ("9" ",T5(B" consonant) ("(" ",Tv(B") ("0" ",T((B" consonant) (")" ",Tw(B") -diff -rdu ../tamago-4.0.6.org/its/zenkaku.el ./its/zenkaku.el ---- ../tamago-4.0.6.org/its/zenkaku.el Tue Jan 4 16:09:48 2000 -+++ ./its/zenkaku.el Fri Mar 16 14:14:19 2001 +diff -duNrp ../tamago-4.0.6/its/zenkaku.el ./its/zenkaku.el +--- ../tamago-4.0.6/its/zenkaku.el Tue Jan 4 16:09:48 2000 ++++ ./its/zenkaku.el Sun Jan 28 03:53:13 2001 @@ -26,10 +26,7 @@ ;; Boston, MA 02111-1307, USA. @@ -4144,9 +10915,9 @@ diff -rdu ../tamago-4.0.6.org/its/zenkaku.el ./its/zenkaku.el ;;; Code: -diff -rdu ../tamago-4.0.6.org/its/zhuyin.el ./its/zhuyin.el ---- ../tamago-4.0.6.org/its/zhuyin.el Tue Jan 4 16:09:56 2000 -+++ ./its/zhuyin.el Fri Mar 16 14:14:19 2001 +diff -duNrp ../tamago-4.0.6/its/zhuyin.el ./its/zhuyin.el +--- ../tamago-4.0.6/its/zhuyin.el Tue Jan 4 16:09:56 2000 ++++ ./its/zhuyin.el Sun Jan 28 03:53:13 2001 @@ -142,9 +142,9 @@ (mapcar (lambda (s) (its-defoutput (car s) (nth 1 s))) (list B P M F D T N L G K H J Q X)) @@ -4160,10 +10931,18 @@ diff -rdu ../tamago-4.0.6.org/its/zhuyin.el ./its/zhuyin.el (define-its-state-machine its-zhuyin-cn-map "zhuyin-cn" "$AW"(BG" Chinese-GB -diff -rdu ../tamago-4.0.6.org/its-keydef.el ./its-keydef.el ---- ../tamago-4.0.6.org/its-keydef.el Wed Jan 5 13:43:30 2000 -+++ ./its-keydef.el Fri Mar 16 14:13:50 2001 -@@ -70,7 +70,7 @@ +diff -duNrp ../tamago-4.0.6/its-keydef.el ./its-keydef.el +--- ../tamago-4.0.6/its-keydef.el Wed Jan 5 13:43:30 2000 ++++ ./its-keydef.el Mon Jul 22 22:18:56 2002 +@@ -43,6 +43,7 @@ + + (defvar its-select-alist nil) + (make-variable-buffer-local 'its-select-func-alist) ++(setq-default its-select-func-alist nil) + (put 'its-select-alist 'permanent-local t) + + (defvar its-select-func-default-alist nil) +@@ -70,7 +71,7 @@ ((its-in-fence-p) (its-input-end) (its-put-cursor t)) @@ -4172,10 +10951,17 @@ diff -rdu ../tamago-4.0.6.org/its-keydef.el ./its-keydef.el (egg-exit-conversion))) (setq its-current-select-func func its-current-map ',map -diff -rdu ../tamago-4.0.6.org/its.el ./its.el ---- ../tamago-4.0.6.org/its.el Mon Jan 17 09:36:17 2000 -+++ ./its.el Fri Mar 16 14:13:50 2001 -@@ -35,7 +35,7 @@ +diff -duNrp ../tamago-4.0.6/its.el ./its.el +--- ../tamago-4.0.6/its.el Mon Jan 17 09:36:17 2000 ++++ ./its.el Fri Aug 2 11:36:28 2002 +@@ -31,11 +31,13 @@ + + ;;; Code: + +-(require 'cl) ++(eval-when-compile ++ (require 'cl)) ++ (require 'egg-edep) (defgroup its nil @@ -4184,7 +10970,31 @@ diff -rdu ../tamago-4.0.6.org/its.el ./its.el :group 'egg) (defcustom its-enable-fullwidth-alphabet t -@@ -194,8 +194,15 @@ +@@ -47,7 +49,13 @@ + :group 'its :type 'boolean) + + (defcustom its-delete-by-keystroke nil +- "*Delete characters as if cancel input keystroke, if nin-NIL." ++ "*Delete characters as if cancel input keystroke, if nin-NIL. ++This variable is overriden by `its-delete-by-character'." ++ :group 'its :type 'boolean) ++ ++(defcustom its-delete-by-character nil ++ "*Delete a character as a unit even if just after input, if nin-NIL. ++This variable override `its-delete-by-keystroke'." + :group 'its :type 'boolean) + + (defcustom its-fence-invisible nil +@@ -93,7 +101,7 @@ + (make-variable-buffer-local 'its-previous-select-func) + (put 'its-previous-select-func 'permanent-local t) + +-(defvar its-current-language) ++(defvar its-current-language nil) + (make-variable-buffer-local 'its-current-language) + (put 'its-current-language 'permanent-local t) + +@@ -194,8 +202,15 @@ (defsubst its-kst-p (kst/t) (not (or (numberp kst/t) (null kst/t)))) @@ -4202,7 +11012,27 @@ diff -rdu ../tamago-4.0.6.org/its.el ./its.el (defsubst its-set-output (state output) (setcar state output)) -@@ -274,13 +281,26 @@ +@@ -232,7 +247,7 @@ + (if (consp (cdr syl)) + (cons (its-get-output syl) (its-get-keyseq-syl syl)) + syl)) +- ++ + ;; + ;; + +@@ -260,8 +275,8 @@ + (define-key map "\M-y" 'its-yank-pop) + (define-key map [backspace] 'its-delete-backward-SYL) + (define-key map [delete] 'its-delete-backward-SYL) +- (define-key map [M-backspace] 'its-delete-backward-SYL-by-keystroke) +- (define-key map [M-delete] 'its-delete-backward-SYL-by-keystroke) ++ (define-key map [(meta backspace)] 'its-delete-backward-SYL-by-keystroke) ++ (define-key map [(meta delete)] 'its-delete-backward-SYL-by-keystroke) + (define-key map [right] 'its-forward-SYL) + (define-key map [left] 'its-backward-SYL) + (while (< i 127) +@@ -274,13 +289,26 @@ (define-key map "\M-n" 'its-next-map) (define-key map "\M-h" 'its-hiragana) ; hiragana-region for input-buffer (define-key map "\M-k" 'its-katakana) @@ -4232,7 +11062,7 @@ diff -rdu ../tamago-4.0.6.org/its.el ./its.el (defconst its-setup-fence-before-insert-SYL nil) (defun its-get-fence-face (lang) -@@ -290,17 +310,19 @@ +@@ -290,17 +318,19 @@ (assq t its-fence-face))))) (defun its-put-cursor (cursor) @@ -4251,7 +11081,7 @@ diff -rdu ../tamago-4.0.6.org/its.el ./its.el + (let ((p (point)) + (str (copy-sequence "!"))) + (set-text-properties 0 1 (list 'read-only t -+ 'invisible t ++ 'invisible 'egg + 'intangible 'its-part-2 + 'its-cursor cursor + 'point-entered 'egg-enter/leave-fence @@ -4263,7 +11093,24 @@ diff -rdu ../tamago-4.0.6.org/its.el ./its.el (defun its-set-cursor-status (cursor) (delete-region (point) (1+ (point))) -@@ -643,14 +665,14 @@ +@@ -330,6 +360,7 @@ + (error "invalid fence")) + ;; Put open-fence before inhibit-read-only to detect read-only + (insert (if its-context its-fence-continue its-fence-open)) ++ (egg-setup-invisibility-spec) + (let ((inhibit-read-only t)) + (setq p1 (point)) + (add-text-properties p p1 open-props) +@@ -338,7 +369,7 @@ + (insert its-fence-close) + (add-text-properties p1 (point) close-props) + (if its-fence-invisible +- (put-text-property p (point) 'invisible t)) ++ (put-text-property p (point) 'invisible 'egg)) + (put-text-property p (point) 'read-only t) + (goto-char p1) + (its-define-select-keys its-mode-map t) +@@ -643,14 +674,14 @@ (add-hook hook func t) (funcall func) (run-hooks hook) @@ -4280,7 +11127,7 @@ diff -rdu ../tamago-4.0.6.org/its.el ./its.el ;; ;; <node#> ::= integer ; subject to compaction ;; | nil ; not subject to compaction -@@ -683,9 +705,16 @@ +@@ -683,9 +714,16 @@ `(1- (setq its-compaction-list (cons ,node its-compaction-list) its-compaction-counter-2 (1+ its-compaction-counter-2)))) @@ -4298,7 +11145,7 @@ diff -rdu ../tamago-4.0.6.org/its.el ./its.el (if (null (boundp hash)) (car (set hash (list* (its-compaction-new-node) ,parent ,lr))) (setq hash (symbol-value hash)) -@@ -696,7 +725,7 @@ +@@ -696,7 +734,7 @@ (its-compaction-set-lr ,parent ,lr (cdr hash)) (car hash))) `(let ((hash ,(if (eq type 'integer) @@ -4307,7 +11154,7 @@ diff -rdu ../tamago-4.0.6.org/its.el ./its.el `(aref its-compaction-integer-table (+ ,node 10))))) (if (null ,(if (eq type 'integer) '(boundp hash) 'hash)) (setq hash (,@(if (eq type 'integer) -@@ -708,18 +737,24 @@ +@@ -708,18 +746,24 @@ (its-compaction-set-lr ,parent ,lr (cdr hash)) (car hash)))) @@ -4343,7 +11190,16 @@ diff -rdu ../tamago-4.0.6.org/its.el ./its.el (defvar its-map-rebuild-subtrees) -@@ -802,7 +837,7 @@ +@@ -790,7 +834,7 @@ Return last state." + (setq state next-state)) + ((null build-if-none) + (error "No such state (%s)" input)) +- (t ++ (t + (if (not (or brand-new (= i 1) (its-get-kst/t state))) + (its-set-interim-terminal-state state)) + (setq state (its-make-next-state state key +@@ -802,7 +846,7 @@ Return last state." state)) (defun its-set-interim-terminal-state (state &optional output) @@ -4352,7 +11208,25 @@ diff -rdu ../tamago-4.0.6.org/its.el ./its.el (its-defrule-otherwise state output)) (defun its-defoutput (input display) -@@ -1124,10 +1159,14 @@ +@@ -975,7 +1019,7 @@ Return last state." + (cursor (get-text-property (point) 'its-cursor))) + (if (null syl) + (signal 'beginning-of-buffer nil) +- (if (eq cursor t) ++ (if (or (eq cursor t) (and cursor its-delete-by-character)) + (its-delete-backward-SYL-internal n killflag) + (its-delete-backward-within-SYL syl n killflag))))) + +@@ -1038,7 +1082,7 @@ Return last state." + (signal 'beginning-of-buffer nil)) + (delete-region p (point)) + (if (> len n) +- (its-state-machine-keyseq (substring keyseq 0 (- len n)) ++ (its-state-machine-keyseq (substring keyseq 0 (- len n)) + 'its-buffer-ins/del-SYL) + (its-set-cursor-status + (if (or (null its-delete-by-keystroke) +@@ -1124,10 +1168,14 @@ Return last state." (setq i 0) (while (< i len) (setq lang (get-text-property i 'egg-lang source)) @@ -4371,7 +11245,7 @@ diff -rdu ../tamago-4.0.6.org/its.el ./its.el (setq j (+ i (egg-char-bytes (egg-string-to-char-at source i))))) (setq syl (substring no-prop-source i j)) (put-text-property i j 'its-syl (cons syl syl) source) -@@ -1181,7 +1220,7 @@ +@@ -1181,7 +1229,7 @@ Return last state." ;; TODO: handle overwrite-mode, insertion-hook, fill... (defun its-exit-mode-internal (&optional proceed-to-conversion n) @@ -4380,7 +11254,7 @@ diff -rdu ../tamago-4.0.6.org/its.el ./its.el (its-select-previous-mode t) ;; Delete CURSOR (delete-region (point) (1+ (point))) -@@ -1198,9 +1237,10 @@ +@@ -1198,9 +1246,10 @@ Return last state." (egg-convert-region start end context n) ;; Remove all properties (goto-char start) @@ -4394,7 +11268,7 @@ diff -rdu ../tamago-4.0.6.org/its.el ./its.el (egg-do-auto-fill) (run-hooks 'input-method-after-insert-chunk-hook)))) -@@ -1220,7 +1260,8 @@ +@@ -1220,7 +1269,8 @@ Return last state." (its-kick-convert-region n)))) (defun its-in-fence-p () @@ -4404,7 +11278,7 @@ diff -rdu ../tamago-4.0.6.org/its.el ./its.el (defvar its-translation-result "" "") -@@ -1241,7 +1282,7 @@ +@@ -1241,7 +1291,7 @@ Return last state." (defun its-translate-region (start end) (interactive "r") (its-translate-region-internal start end) @@ -4413,7 +11287,7 @@ diff -rdu ../tamago-4.0.6.org/its.el ./its.el (defun its-translate-region-internal (start end) (setq its-translation-result "") -@@ -1300,66 +1341,198 @@ +@@ -1300,66 +1350,198 @@ Return last state." ;;; its-hiragana : hiragana-region for input-buffer (defun its-hiragana () (interactive) @@ -4663,36 +11537,225 @@ diff -rdu ../tamago-4.0.6.org/its.el ./its.el (defun its-mode () "\\{its-mode-map}" -Only in .: jisx0213.el -diff -rdu ../tamago-4.0.6.org/leim-list.el ./leim-list.el ---- ../tamago-4.0.6.org/leim-list.el Tue Jan 11 22:47:31 2000 -+++ ./leim-list.el Fri Mar 16 14:13:50 2001 -@@ -32,8 +32,10 @@ +@@ -1374,5 +1556,31 @@ Return last state." + (princ (documentation 'its-mode)) + (help-setup-xref (cons #'help-xref-mode (current-buffer)) (interactive-p)))) + ++;; The `point-left' hook function will never be called in Emacs 21.2.50 ++;; when the command `next-line' is used in the last line of a buffer ++;; which isn't terminated with a newline or the command `previous-line' ++;; is used in the first line of a buffer. ++(defun its-next-line (&optional arg) ++ "Go to the end of the line if the line isn't terminated with a newline, ++otherwise run `next-line' as usual." ++ (interactive "p") ++ (if (= (line-end-position) (point-max)) ++ (end-of-line) ++ (next-line arg))) ++ ++(defun its-previous-line (&optional arg) ++ "Go to the beginning of the line if it is called in the first line of a ++buffer, otherwise run `previous-line' as usual." ++ (interactive "p") ++ (if (= (line-beginning-position) (point-min)) ++ (beginning-of-line) ++ (previous-line arg))) ++ ++(substitute-key-definition 'next-line 'its-next-line ++ its-mode-map global-map) ++(substitute-key-definition 'previous-line 'its-previous-line ++ its-mode-map global-map) ++ + (provide 'its) +-;;; its.el ends here. ++ ++;;; its.el ends here +diff -duNrp ../tamago-4.0.6/jisx0213.el ./jisx0213.el +--- ../tamago-4.0.6/jisx0213.el Thu Jan 1 09:00:00 1970 ++++ ./jisx0213.el Mon Jul 9 23:46:38 2001 +@@ -0,0 +1,39 @@ ++;;; jisx0213.el --- Charset Definition for JIS X 0213 ++ ++;; Copyright (C) 1999,2000 PFU LIMITED ++ ++;; Author: KATAYAMA Yoshio <kate@pfu.co.jp> ++ ++;; Maintainer: TOMURA Satoru <tomura@etl.go.jp> ++ ++;; Keywords: mule, multilingual, input method ++ ++;; This file is part of EGG. ++ ++;; EGG is free software; you can redistribute it and/or modify ++;; it under the terms of the GNU General Public License as published by ++;; the Free Software Foundation; either version 2, or (at your option) ++;; any later version. ++ ++;; EGG is distributed in the hope that it will be useful, ++;; but WITHOUT ANY WARRANTY; without even the implied warranty of ++;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ++;; GNU General Public License for more details. ++ ++;; You should have received a copy of the GNU General Public License ++;; along with GNU Emacs; see the file COPYING. If not, write to the ++;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ++;; Boston, MA 02111-1307, USA. ++ ++;;; Commentary: ++ ++ ++;;; Code: ++ ++(unless (charsetp 'japanese-jisx0213-1) ++ (define-charset 151 'japanese-jisx0213-1 ++ [2 94 2 0 ?O 0 "JISX0213-1" "JISX0213-1" "JISX0213-1 (Japanese)"])) ++ ++(unless (charsetp 'japanese-jisx0213-2) ++ (define-charset 254 'japanese-jisx0213-2 ++ [2 94 2 0 ?P 0 "JISX0213-2" "JISX0213-2" "JISX0213-2 (Japanese)"])) +diff -duNrp ../tamago-4.0.6/leim-list.el ./leim-list.el +--- ../tamago-4.0.6/leim-list.el Tue Jan 11 22:47:31 2000 ++++ ./leim-list.el Wed Sep 4 22:59:10 2002 +@@ -1,8 +1,8 @@ + ;;; leim-list.el --- Egg setup for leim API + +-;; Copyright (C) 1999, 2000 Free Software Foundation, Inc ++;; Copyright (C) 1999, 2000, 2002 Free Software Foundation, Inc + +-;; Author: NIIBE Yutaka <gniibe@chroot.org> ++;; Author: NIIBE Yutaka <gniibe@m17n.org> + ;; KATAYAMA Yoshio <kate@pfu.co.jp> + ;; TOMURA Satoru <tomura@etl.go.jp> + +@@ -31,61 +31,74 @@ + ;;; Code: - (when site-run-file +-(when site-run-file - (autoload 'egg-activate-wnn "egg/wnn" "Activate Wnn backend of Tamagotchy." t) - (autoload 'egg-activate-sj3 "egg/sj3" "Activate SJ3 backend of Tamagotchy." t) -+ (autoload 'egg-activate-wnn "egg/wnn" "Activate Wnn backend of Tamago 4." t) -+ (autoload 'egg-activate-sj3 "egg/sj3" "Activate SJ3 backend of Tamago 4." t) -+ (autoload 'egg-activate-canna "egg/canna" -+ "Activate CANNA backend of Tamago 4." t) - - (register-input-method - "japanese-egg-wnn" "Japanese" 'egg-activate-wnn -@@ -46,6 +48,11 @@ - 'its-select-hiragana) - - (register-input-method -+ "japanese-egg-canna" "Japanese" 'egg-activate-canna -+ "$B$"(B.." "Romaji -> Hiragana -> Kanji&Kana" -+ 'its-select-hiragana) -+ -+ (register-input-method - "chinese-gb-egg-wnn-py" "Chinese-GB" 'egg-activate-wnn - "$AF4(BG" "Pinyin -> Simplified Hanzi" - 'its-select-pinyin-cn) -@@ -100,6 +107,9 @@ ++(autoload 'egg-activate-anthy "egg/anthy" ++ "Activate ANTHY backend of Tamago 4." t) ++(autoload 'egg-activate-wnn "egg/wnn" "Activate Wnn backend of Tamago 4." t) ++(autoload 'egg-activate-sj3 "egg/sj3" "Activate SJ3 backend of Tamago 4." t) ++(autoload 'egg-activate-canna "egg/canna" ++ "Activate CANNA backend of Tamago 4." t) + +- (register-input-method +- "japanese-egg-wnn" "Japanese" 'egg-activate-wnn +- "$B$"(B.." "Romaji -> Hiragana -> Kanji&Kana" +- 'its-select-hiragana) ++(register-input-method ++ "japanese-egg-anthy" "Japanese" 'egg-activate-anthy ++ "$B$"(B.." "Romaji -> Hiragana -> Kanji&Kana" ++ 'its-select-hiragana) + +- (register-input-method +- "japanese-egg-sj3" "Japanese" 'egg-activate-sj3 +- "$B$"(B.." "Romaji -> Hiragana -> Kanji&Kana" +- 'its-select-hiragana) ++(register-input-method ++ "japanese-egg-wnn" "Japanese" 'egg-activate-wnn ++ "$B$"(B.." "Romaji -> Hiragana -> Kanji&Kana" ++ 'its-select-hiragana) + +- (register-input-method +- "chinese-gb-egg-wnn-py" "Chinese-GB" 'egg-activate-wnn +- "$AF4(BG" "Pinyin -> Simplified Hanzi" +- 'its-select-pinyin-cn) ++(register-input-method ++ "japanese-egg-sj3" "Japanese" 'egg-activate-sj3 ++ "$B$"(B.." "Romaji -> Hiragana -> Kanji&Kana" ++ 'its-select-hiragana) + +- (register-input-method +- "chinese-gb-egg-wnn-zy" "Chinese-GB" 'egg-activate-wnn +- "$AW"(BG" "Zhunyin -> Simplified Hanzi" +- 'its-select-zhuyin-cn) ++(register-input-method ++ "japanese-egg-canna" "Japanese" 'egg-activate-canna ++ "$B$"(B.." "Romaji -> Hiragana -> Kanji&Kana" ++ 'its-select-hiragana) + +- (register-input-method +- "chinese-gb-egg-wnn-qm" "Chinese-GB" 'egg-activate-wnn +- "$AG.(B" "QianMa Simplified Hanzi inputmethod" +- 'its-select-qianma) ++(register-input-method ++ "chinese-gb-egg-wnn-py" "Chinese-GB" 'egg-activate-wnn ++ "$AF4(BG" "Pinyin -> Simplified Hanzi" ++ 'its-select-pinyin-cn) + +- (register-input-method +- "chinese-gb-egg-wnn-wb" "Chinese-GB" 'egg-activate-wnn +- "$ANe(B" "WuBi Simplified Hanzi inputmethod" +- 'its-select-wubi) ++(register-input-method ++ "chinese-gb-egg-wnn-zy" "Chinese-GB" 'egg-activate-wnn ++ "$AW"(BG" "Zhunyin -> Simplified Hanzi" ++ 'its-select-zhuyin-cn) + +- (register-input-method +- "chinese-cns-egg-wnn-py" "Chinese-CNS" 'egg-activate-wnn +- "$(GQ;(BC" "Pinyin -> Traditional Hanzi" +- 'its-select-pinyin-tw) ++(register-input-method ++ "chinese-gb-egg-wnn-qm" "Chinese-GB" 'egg-activate-wnn ++ "$AG.(B" "QianMa Simplified Hanzi inputmethod" ++ 'its-select-qianma) + +- (register-input-method +- "chinese-cns-egg-wnn-zy" "Chinese-CNS" 'egg-activate-wnn +- "$(GNC(BC" "Zhunyin -> Traditional Hanzi" +- 'its-select-zhuyin-tw) ++(register-input-method ++ "chinese-gb-egg-wnn-wb" "Chinese-GB" 'egg-activate-wnn ++ "$ANe(B" "WuBi Simplified Hanzi inputmethod" ++ 'its-select-wubi) + +- (register-input-method +- "korean-egg-wnn" "Korean" 'egg-activate-wnn +- "$(CGQ(B" "Hangul -> Hanja" +- 'its-select-hangul) ++(register-input-method ++ "chinese-cns-egg-wnn-py" "Chinese-CNS" 'egg-activate-wnn ++ "$(GQ;(BC" "Pinyin -> Traditional Hanzi" ++ 'its-select-pinyin-tw) + +- (autoload 'egg-mode "egg" "Toggle EGG mode." t) ++(register-input-method ++ "chinese-cns-egg-wnn-zy" "Chinese-CNS" 'egg-activate-wnn ++ "$(GNC(BC" "Zhunyin -> Traditional Hanzi" ++ 'its-select-zhuyin-tw) + +- (set-language-info "Japanese" 'input-method "japanese-egg-wnn") +- (set-language-info "Chinese-GB" 'input-method "chinese-gb-egg-wnn-py") +- (set-language-info "Chinese-CNS" 'input-method "chinese-cns-egg-wnn-py") +- (set-language-info "Korean" 'input-method "korean-egg-wnn") ++(register-input-method ++ "korean-egg-wnn" "Korean" 'egg-activate-wnn ++ "$(CGQ(B" "Hangul -> Hanja" ++ 'its-select-hangul) ++ ++(autoload 'egg-mode "egg" "Toggle EGG mode." t) ++ ++(set-language-info "Japanese" 'input-method "japanese-egg-wnn") ++(set-language-info "Chinese-GB" 'input-method "chinese-gb-egg-wnn-py") ++(set-language-info "Chinese-CNS" 'input-method "chinese-cns-egg-wnn-py") ++(set-language-info "Korean" 'input-method "korean-egg-wnn") + + (defgroup leim nil + "LEIM stands for Libraries of Emacs Input Methods." +@@ -94,29 +107,22 @@ + (defgroup egg nil "" + :group 'leim :load "egg") + ++(defgroup anthy nil "" ++ :group 'egg :load "egg/anthy") ++ + (defgroup wnn nil "" + :group 'egg :load "egg/wnn") + (defgroup sj3 nil "" :group 'egg :load "egg/sj3") @@ -4702,15 +11765,27 @@ diff -rdu ../tamago-4.0.6.org/leim-list.el ./leim-list.el (defgroup its nil "" :group 'egg :load "its") -@@ -119,4 +129,4 @@ - (message "Finished loading %s \n and load others..." load-file-name) - (load-leim-list-except-this) + (defgroup hira nil "" + :group 'its :load "its/hira") +-;;;; +- +- (require 'egg-util) +- +- (defun load-leim-list-except-this () +- (load-libraries "leim-list" +- (cdr-safe +- (member (directory-file-name (file-name-directory load-file-name)) +- load-path)))) +- +- (message "Finished loading %s \n and load others..." load-file-name) +- (load-leim-list-except-this) +- - ) -+ ) -diff -rdu ../tamago-4.0.6.org/menudiag.el ./menudiag.el ---- ../tamago-4.0.6.org/menudiag.el Tue Jan 4 15:53:49 2000 -+++ ./menudiag.el Fri Mar 16 14:13:50 2001 ++;;; leim-list.el ends here. +diff -duNrp ../tamago-4.0.6/menudiag.el ./menudiag.el +--- ../tamago-4.0.6/menudiag.el Tue Jan 4 15:53:49 2000 ++++ ./menudiag.el Sun Jan 28 03:53:13 2001 @@ -50,7 +50,7 @@ ;; |