cgit.sxemacs.org Git - packages/blob - mule-packages/egg-its/egg-wnn.el

   1 ;;;  egg-wnn.el --- a inputting method communicating with [jck]server
   2
   3 ;; Author: Satoru Tomura (tomura@etl.go.jp), and
   4 ;;         Toshiaki Shingu (shingu@cpr.canon.co.jp)
   5 ;; Keywords: inputting method
   6
   7 ;; This file is part of Egg on Mule (Multilingual Environment)
   8
   9 ;; Egg is free software; you can redistribute it and/or modify
  10 ;; it under the terms of the GNU General Public License as published by
  11 ;; the Free Software Foundation; either version 2, or (at your option)
  12 ;; any later version.
  13
  14 ;; Egg is distributed in the hope that it will be useful,
  15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 ;; GNU General Public License for more details.
  18
  19 ;; You should have received a copy of the GNU General Public License
  20 ;; along with GNU Emacs; see the file COPYING.  If not, write to
  21 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  22
  23 ;;; Commentary:
  24
  25 ;;;  Modified to provide english strings as well by Jareth Hein (jareth@camelot-soft.com)
  26 ;;;  Modified for Wnn V4 and Wnn6 by Satoru Tomura(tomura@etl.go.jp)
  27 ;;;  Modified for Wnn6 by OMRON
  28 ;;;  Written by Toshiaki Shingu (shingu@cpr.canon.co.jp)
  29 ;;;  Modified for Wnn V4 library on wnn4v3-egg.el
  30
  31 ;;; \e$B$?$^$4!V$?$+$J!W%P!<%8%g%s\e(B
  32 ;;; \e$B!V$?$+$J!W$H$ODR$1J*$N$?$+$J$G$O$"$j$^$;$s!#\e(B
  33 ;;; \e$B!V$?$^$4$h!?$+$7$3$/!?$J!<!<$l!W$NN,$r$H$C$FL?L>$7$^$7$?!#\e(B
  34 ;;; Wnn V4 \e$B$N\e(B jl \e$B%i%$%V%i%j$r;H$$$^$9!#\e(B
  35 ;;; \e$B%i%$%V%i%j$H$N%$%s%?!<%U%'!<%9$O\e(B wnnfns.c \e$B$GDj5A$5$l$F$$$^$9!#\e(B
  36
  37 ;;;  \e$B=$@5%a%b\e(B
  38
  39 ;;;  97/10/27 Help system modification by J.Hein
  40 ;;;  97/2/4   Modified for use with XEmacs by J.Hein <jareth@camelot-soft.com>
  41 ;;;           (mostly changes regarding extents and markers)
  42 ;;;  94/2/3   kWnn support by H.Kuribayashi
  43 ;;;  93/11/24 henkan-select-kouho: bug fixed
  44 ;;;  93/7/22  hinsi-from-menu updated
  45 ;;;  93/5/12  remove-regexp-in-string
  46 ;;;             fixed by Shuji NARAZAKI <narazaki@csce.kyushu-u.ac.jp>
  47 ;;;  93/4/22  set-wnn-host-name, set-cwnn-host-name
  48 ;;;  93/4/5   EGG:open-wnn, close-wnn modified by tsuiki.
  49 ;;;  93/4/2   wnn-param-set
  50 ;;;  93/4/2   modified along with wnn4fns.c
  51 ;;;  93/3/3   edit-dict-item: bug fixed
  52 ;;;  93/1/8   henkan-help-command modified.
  53 ;;;  92/12/1  buffer local 'wnn-server-type' and 'cwnn-zhuyin'
  54 ;;;      so as to support individual its mode with multiple buffers.
  55 ;;;  92/11/26 set-cserver-host-name fixed.
  56 ;;;  92/11/26 its:{previous,next}-mode by <yasutome@ics.osaka-u.ac.jp>
  57 ;;;  92/11/25 set-wnn-host-name was changed to set-{j,c}server-host-name.
  58 ;;;  92/11/25 redefined its:select-mode and its:select-mode-from-menu
  59 ;;;     defined in egg.el to run hook with its mode selection.
  60 ;;;  92/11/20 bug fixed related to henkan mode attribute.
  61 ;;;  92/11/12 get-wnn-host-name and set-wnn-host-name were changed.
  62 ;;;  92/11/10 (set-dict-comment) bug fixed
  63 ;;;  92/10/27 (henkan-region-internal) display message if error occurs.
  64 ;;;  92/9/28 completely modified for chinese translation.
  65 ;;;  92/9/28 diced-{use,hindo-set} bug fixed <tetsuya@rabbit.is.s.u-tokyo.ac.jp>
  66 ;;;  92/9/22 touroku-henkan-mode by <tsuiki@sfc.keio.ac.jp>
  67 ;;;  92/9/18 rewrite wnn-dict-add to support password files.
  68 ;;;  92/9/8  henkan-region-internal was modified.
  69 ;;;  92/9/8  henkan-mode-map " "  'henkan-next-kouho-dai -> 'henkan-next-kouho
  70 ;;;  92/9/7  henkan-mode-map "\C-h" 'help-command -> 'henkan-help-command (Shuji Narazaki)
  71 ;;;  92/9/3  wnn-server-get-msg without wnn-error-code.
  72 ;;;  92/9/3  get-wnn-lang-name was modified.
  73 ;;;  92/8/19 get-wnn-lang-name \e$B$NJQ99\e(B (by T.Matsuzawa)
  74 ;;;  92/8/5  Bug in henkan-kakutei-first-char fixed. (by Y.Kasai)
  75 ;;;  92/7/17 set-egg-henkan-format \e$B$NJQ99\e(B
  76 ;;;  92/7/17 egg:error \e$B$N0z?t$r\e(B format &rest args \e$B$KJQ99\e(B
  77 ;;;  92/7/17 henkan/gyaku-henkan-word \e$B$N=$@5\e(B
  78 ;;;  92/7/17 henkan/gyaku-henkan-paragraph/sentence/word \e$B$G!"\e(B
  79 ;;;          \e$BI=<($,Mp$l$k$N$r=$@5!J\e(Bsave-excursion \e$B$r$O$:$9!K\e(B
  80 ;;;  92.7.14 Unnecessary '*' in comments of variables deleted. (by T.Ito)
  81 ;;;  92/7/10 henkan-kakutei-first-char \e$B$rDI2C!"\e(BC-@ \e$B$K3d$jEv$F!#\e(B(by K.Handa)
  82 ;;;  92/7/8  overwrite-mode \e$B$N%5%]!<%H\e(B(by K. Handa)
  83 ;;;  92/6/30 startup file \e$B<~$j$NJQ99\e(B
  84 ;;;  92/6/30 \e$BJQ49%b!<%I$N%"%H%j%S%e!<%H$K\e(B bold \e$B$rDI2C\e(B
  85 ;;;          (by ITO Toshiyuki <toshi@his.cpl.melco.co.jp>)
  86 ;;;  92/6/22 \e$B6uJ8;zNs$rJQ49$9$k$HMn$A$k%P%0$r=$@5\e(B
  87 ;;;  92/5/20 set-egg-henkan-mode-format \e$B$N\e(B bug fix
  88 ;;;  92/5/20 egg:set-bunsetu-attribute \e$B$,BgJ8@a$G@5$7$/F0$/$h$&$KJQ99\e(B
  89 ;;;  92/5/19 version 0
  90 ;;; ----------------------------------------------------------------
  91
  92 ;;; Code:
  93
  94 (require 'egg)
  95 (make-variable-buffer-local 'wnn-server-type)
  96 (make-variable-buffer-local 'cwnn-zhuyin)
  97
  98 (defvar egg:*sho-bunsetu-face* nil "*\e$B>.J8@aI=<($KMQ$$$k\e(B face \e$B$^$?$O\e(B nil")
  99 (make-variable-buffer-local
 100  (defvar egg:*sho-bunsetu-extent* nil "\e$B>.J8@a$NI=<($K;H$&\e(B extent"))