🚀 go-pugleaf

$@%=%K!<#C#S#L$NF#GH$G$9!#(J

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:
 >nemacs 3.3.2 + $@!V$?$^$4!W(J2.24$@$G!"(J
 >$@%m!<%^;z%+%JJQ49$G$O$J$/!"%+%JF~NO$r4JC1$K(J$@9T$J$&$K$O(J
 >$@$I$&$7$?$i$$$$$N$G$7$g$&$+!#(J
 >
 >egg-rk.el$@$G(Jdefrule$@$r$$$8$C$F$_$?$N$G$9$,!"ByE@$N=hM}$,(J
 >$@$G$-$^$;$s$G$7$?!#(J

$@;d$O<!$N$h$&$K$7$F$$$^$9!J85$O(Jkono@csl.sony.co.jp$@;a$K$h$k!K!#$?$@$7!"(J
JIS$@G[Ns$K(J$@$7$F$$$^$9$N$G(J"@"$@$H(J"["$@$,!V!+!W$H!V!,!W$K$J$C$F$$$^$9!#(J
(defrule "a[" "$@$B(J")$@$G$O!V$A!W$H2!$7$?$@$1$G$O!V(J$@$A!W$,I=<($5$l$:!"<!$N(J
$@J8;z$r2!$7$F$+$iI=<($5$l$?5-21$,$"$j$^$9!#(J

					$@F#GH=g5W(J      fnami@csl.sony.co.jp
					$@%=%K!<%3%s%T%e!<%?%5%$%(%s%98&5f=j(J
					TEL 03-3448-4380  FAX 03-3448-4273
---
(defvar *dakuten-koho* '(
			  ( ?\253 . "$@$,(J") ;;  ka
			  ( ?\255 . "$@$.(J") ;;  ki
			  ( ?\257 . "$@$0(J") ;;  ku
			  ( ?\261 . "$@$2(J") ;;  ke
			  ( ?\263 . "$@$4(J") ;;  ko
			  ( ?\265 . "$@$6(J") ;;  sa
			  ( ?\267 . "$@$8(J") ;;  si
			  ( ?\271 . "$@$:(J") ;;  su
			  ( ?\273 . "$@$<(J") ;;  se
			  ( ?\275 . "$@$>(J") ;;  so
			  ( ?\277 . "$@$@(J") ;;  ta
			  ( ?\301 . "$@$B(J") ;;  ti
			  ( ?\304 . "$@$E(J") ;;  tu
			  ( ?\306 . "$@$G(J") ;;  te
			  ( ?\310 . "$@$I(J") ;;  to
			  ( ?\317 . "$@$P(J") ;;  ha
			  ( ?\322 . "$@$S(J") ;;  hi
			  ( ?\325 . "$@$V(J") ;;  hu
			  ( ?\330 . "$@$Y(J") ;;  he
			  ( ?\333 . "$@$\(J") ;;  ho
			  ( ?\246 . "$@%t(J") ;;  vu
			  ))

(defvar *handakuten-koho* '(
			     ( ?\317 . "$@$Q(J") ;;  ha
			     ( ?\322 . "$@$T(J") ;;  hi
			     ( ?\325 . "$@$W(J") ;;  hu
			     ( ?\330 . "$@$Z(J") ;;  he
			     ( ?\333 . "$@$](J") ;;  ho
			     ))

(defun fence-dakuten ()
  (interactive)
  (if egg:*input-mode*
      (let (
	    (ch1 (char-after (- (point) 2)))
	    (ch2 (preceding-char))
	    (daku))
	(setq daku (cdr (assq ch2 *dakuten-koho*)))
	(if (and (= ?\244 ch1) daku)
	    (progn 
	      (delete-char -2) 
	      (insert daku)) 
	  (insert "$@!+(J")))
    (insert ?@)))

(defun fence-handakuten ()
  (interactive)
  (if egg:*input-mode*
      (let (
	    (ch1 (char-after (- (point) 2)))
	    (ch2 (preceding-char))
	    (han))
        (setq han (cdr (assq ch2 *handakuten-koho*)))
	(if (and (= ?\244 ch1) han)
	    (progn 
	      (delete-char -2)				
	      (insert han)) 
	  (insert "$@!,(J")))
    (insert ?\[)))

(define-key fence-mode-map "@" 'fence-dakuten)
(define-key fence-mode-map "[" 'fence-handakuten)
(define-key egg:*minibuffer-local-hiragana-map* "@" 'fence-dakuten)
(define-key egg:*minibuffer-local-hiragana-map* "[" 'fence-handakuten)