🚀 go-pugleaf

  $B$3$s$P$s$O!"CfEg!w$"$5$R$M$C$H$H?=$7$^$9!#(B

$B>/$7A0$K(B diclookup-mule.el $B$r(B SKK 9.6 $B$KBP1~$5$;$k:9J,$rN.$7$^$7$?(B
$B$,!"0lEY$b(B SKK $B$NC18lEPO?$r$7$J$$>uBV$G!"(Bdiclookup $B$r;HMQ$9$k$H%_%K(B
$B%P%C%U%!$,(B SKK $B%b!<%I$K$J$i$J$$%P%0$,$"$j$^$7$?$N$G=$@5$7$^$7$?!#(B
diclookup-mule.el $B$N(B od-read-string-with-fep $B4X?t$r2<5-$N$b$N$H:9$7(B
$BBX$($F2<$5$$!#(B

(defun od-read-string-with-fep (prompt initial)
  (cond ((or (not od-input-by-kanji)
 	     (eql od-fep-type 'no-fep))
 	 (read-string prompt (or initial "")))
 	((eql od-fep-type 'egg)
 	 (read-hiragana-string prompt (or initial "")))
 	((eql od-fep-type 'canna)
 	 (if (not canna:*japanese-mode*)
 	     (canna-toggle-japanese-mode))
 	 (read-string prompt (or initial "")))
 	((eql od-fep-type 't-code)
 	 (setq tcode-on-in-minibuffer nil)
 	 (setq unread-command-events od-tcode-toggle-events)
 	 (read-string prompt (or initial "")))
        ((eql od-fep-type 'skk)
         (require 'skk)
         (skk-setup-minibuff-map)
         (read-from-minibuffer prompt (or initial "") skk-minibuff-map) )
 	(t
 	 (let ((its:*current-map* (its:get-mode-map od-fep-type)))
 	   (if its:*current-map*
 	       (read-current-its-string prompt (or initial ""))
 	     (error "Unknown fep-type %s" od-fep-type))))))
 

$BCfEg44IW(B <minakaji@osaka.email.ne.jp>
*** E-mail address $B$,JQ$o$j$^$7$?(B ***
http://www.asahi-net.or.jp/~gy2m-nkjm/