home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / fj / editor / emacs / 1166 < prev    next >
Encoding:
Text File  |  1992-11-19  |  3.3 KB  |  100 lines
  1. Path: sparky!uunet!ccut!wnoc-tyo-news!scslwide!socslgw!nntp!fnami
  2. From: fnami@csl.sony.co.jp (FUJINAMI Nobuhisa (JIS 4623 4748 3D67 3557))
  3. Newsgroups: fj.editor.emacs
  4. Subject: Re: EGG with KANA input
  5. Message-ID: <FNAMI.92Nov20143900@fnami.csl.sony.co.jp>
  6. Date: 20 Nov 92 05:39:00 GMT
  7. References: <SEKIMIZU.92Nov19143236@jaga.niigata.fukuda.snet.or.jp>
  8. Sender: news@nntp.csl.sony.co.jp (Usenet News System)
  9. Distribution: fj
  10. Organization: Sony Computer Science Laboratory Inc., Tokyo, Japan.
  11. Lines: 85
  12. In-Reply-To: sekimizu@niigata.fukuda.snet.or.jp's message of 19 Nov 1992 14:32:36 JST
  13. Nntp-Posting-Host: fnami.csl.sony.co.jp
  14.  
  15. $@%=%K!<#C#S#L$NF#GH$G$9!#(J
  16.  
  17. In article <SEKIMIZU.92Nov19143236@jaga.niigata.fukuda.snet.or.jp> sekimizu@niigata.fukuda.snet.or.jp ($@4X?e!w%U(J$@%/%@EE;R$5$s(J) writes:
  18.  >nemacs 3.3.2 + $@!V$?$^$4!W(J2.24$@$G!"(J
  19.  >$@%m!<%^;z%+%JJQ49$G$O$J$/!"%+%JF~NO$r4JC1$K(J$@9T$J$&$K$O(J
  20.  >$@$I$&$7$?$i$$$$$N$G$7$g$&$+!#(J
  21.  >
  22.  >egg-rk.el$@$G(Jdefrule$@$r$$$8$C$F$_$?$N$G$9$,!"ByE@$N=hM}$,(J
  23.  >$@$G$-$^$;$s$G$7$?!#(J
  24.  
  25. $@;d$O<!$N$h$&$K$7$F$$$^$9!J85$O(Jkono@csl.sony.co.jp$@;a$K$h$k!K!#$?$@$7!"(J
  26. JIS$@G[Ns$K(J$@$7$F$$$^$9$N$G(J"@"$@$H(J"["$@$,!V!+!W$H!V!,!W$K$J$C$F$$$^$9!#(J
  27. (defrule "a[" "$@$B(J")$@$G$O!V$A!W$H2!$7$?$@$1$G$O!V(J$@$A!W$,I=<($5$l$:!"<!$N(J
  28. $@J8;z$r2!$7$F$+$iI=<($5$l$?5-21$,$"$j$^$9!#(J
  29.  
  30.                     $@F#GH=g5W(J      fnami@csl.sony.co.jp
  31.                     $@%=%K!<%3%s%T%e!<%?%5%$%(%s%98&5f=j(J
  32.                     TEL 03-3448-4380  FAX 03-3448-4273
  33. ---
  34. (defvar *dakuten-koho* '(
  35.               ( ?\253 . "$@$,(J") ;;  ka
  36.               ( ?\255 . "$@$.(J") ;;  ki
  37.               ( ?\257 . "$@$0(J") ;;  ku
  38.               ( ?\261 . "$@$2(J") ;;  ke
  39.               ( ?\263 . "$@$4(J") ;;  ko
  40.               ( ?\265 . "$@$6(J") ;;  sa
  41.               ( ?\267 . "$@$8(J") ;;  si
  42.               ( ?\271 . "$@$:(J") ;;  su
  43.               ( ?\273 . "$@$<(J") ;;  se
  44.               ( ?\275 . "$@$>(J") ;;  so
  45.               ( ?\277 . "$@$@(J") ;;  ta
  46.               ( ?\301 . "$@$B(J") ;;  ti
  47.               ( ?\304 . "$@$E(J") ;;  tu
  48.               ( ?\306 . "$@$G(J") ;;  te
  49.               ( ?\310 . "$@$I(J") ;;  to
  50.               ( ?\317 . "$@$P(J") ;;  ha
  51.               ( ?\322 . "$@$S(J") ;;  hi
  52.               ( ?\325 . "$@$V(J") ;;  hu
  53.               ( ?\330 . "$@$Y(J") ;;  he
  54.               ( ?\333 . "$@$\(J") ;;  ho
  55.               ( ?\246 . "$@%t(J") ;;  vu
  56.               ))
  57.  
  58. (defvar *handakuten-koho* '(
  59.                  ( ?\317 . "$@$Q(J") ;;  ha
  60.                  ( ?\322 . "$@$T(J") ;;  hi
  61.                  ( ?\325 . "$@$W(J") ;;  hu
  62.                  ( ?\330 . "$@$Z(J") ;;  he
  63.                  ( ?\333 . "$@$](J") ;;  ho
  64.                  ))
  65.  
  66. (defun fence-dakuten ()
  67.   (interactive)
  68.   (if egg:*input-mode*
  69.       (let (
  70.         (ch1 (char-after (- (point) 2)))
  71.         (ch2 (preceding-char))
  72.         (daku))
  73.     (setq daku (cdr (assq ch2 *dakuten-koho*)))
  74.     (if (and (= ?\244 ch1) daku)
  75.         (progn 
  76.           (delete-char -2) 
  77.           (insert daku)) 
  78.       (insert "$@!+(J")))
  79.     (insert ?@)))
  80.  
  81. (defun fence-handakuten ()
  82.   (interactive)
  83.   (if egg:*input-mode*
  84.       (let (
  85.         (ch1 (char-after (- (point) 2)))
  86.         (ch2 (preceding-char))
  87.         (han))
  88.         (setq han (cdr (assq ch2 *handakuten-koho*)))
  89.     (if (and (= ?\244 ch1) han)
  90.         (progn 
  91.           (delete-char -2)                
  92.           (insert han)) 
  93.       (insert "$@!,(J")))
  94.     (insert ?\[)))
  95.  
  96. (define-key fence-mode-map "@" 'fence-dakuten)
  97. (define-key fence-mode-map "[" 'fence-handakuten)
  98. (define-key egg:*minibuffer-local-hiragana-map* "@" 'fence-dakuten)
  99. (define-key egg:*minibuffer-local-hiragana-map* "[" 'fence-handakuten)
  100.