;ELC ;;; compiled by nk@redqueen.bytechase.cx on Fri Oct 31 18:20:42 2003 ;;; from file /usr/local/users/nk/pkg-build/test/mule-packages/egg-its/egg-sj3.el ;;; emacs version 21.4 (patch 14) "Reasonable Discussion" XEmacs Lucid. ;;; bytecomp version 2.27 XEmacs; 2000-09-12. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 19. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`egg-sj3.el' was compiled for Emacs 20")) (or (boundp 'current-load-list) (setq current-load-list nil)) (require 'mule) ;;;###coding system: escape-quoted (byte-code "!!!!" [require egg provide egg-sj3 boundp SJ3 egg-sj3-client] 2) (defvar sj3-egg-version "3.00" "\ Version number of this version of Egg. ") (byte-code "B!\"" [current-load-list *KKCP:error-flag* default-boundp set-default t] 3) (defalias 'KKCP:error #[(errorCode &rest form) "\na \" \" \"\na \" \" \"\n:\n@a\nA@\" \nA@\"\nA@\"\n:\n@a\nA@\" \nA@\"\nA\"\n# \n#\n#" [form debug-on-error errorCode :SJ3_SOCK_OPEN_FAIL notify "EGG: %s $(B>e$K(B SJ3SERV $(B$,$"$j$^$;$s!#(B" get-sj3-host-name "local" error "EGG: No SJ3SERV on %s is running." :SJ3_SERVER_DEAD "EGG: %s $(B>e$N(BSJ3SERV $(B$,;`$s$G$$$^$9!#(B" "EGG: SJ3SERV on %s is dead." "EGG: %s $(B>e$N(B SJ3SERV $(B$,;`$s$G$$$^$9!#(B" :SJ3_UNKNOWN_HOST "EGG: $(B%[%9%H(B %s $(B$,$_$D$+$j$^$;$s!#(B" "EGG: Host %s is unknown." :SJ3_UNKNOWN_SERVICE "EGG: Network service %s $(B$,$_$D$+$j$^$;$s!#(B" "EGG: Service %s is unknown." "KKCP: $(B860x(B %s $(B$G(B %s $(B$K<:GT$7$^$7$?!#(B" "KKCP: %s failed because of %s."] 4]) (defalias 'KKCP:server-open #[(hostname loginname) " \n\"  \n$)" [sj3-error-code result loginname hostname sj3-server-open KKCP:error KKCP:server-open] 5]) (defalias 'KKCP:use-dict #[(dict &optional passwd) " \"\n \na \" \n #)" [*KKCP:error-flag* passwd sj3-error-code result dict sj3-server-open-dict :sj3-no-connection EGG:open-sj3 KKCP:use-dict KKCP:error kkcp:use-dict] 4]) (defalias 'KKCP:make-dict #[(dict) " ! \n a !\n #)" [*KKCP:error-flag* sj3-error-code result dict sj3-server-make-dict :sj3-no-connection EGG:open-sj3 KKCP:make-dict KKCP:error kkcp:make-dict] 4]) (defalias 'KKCP:use-stdy #[(stdy) " ! \n a !\n #)" [*KKCP:error-flag* sj3-error-code result stdy sj3-server-open-stdy :sj3-no-connection EGG:open-sj3 KKCP:use-stdy KKCP:error kkcp:use-stdy] 4]) (defalias 'KKCP:make-stdy #[(stdy) " ! \n a !\n #)" [*KKCP:error-flag* sj3-error-code result stdy sj3-server-make-stdy :sj3-no-connection EGG:open-sj3 KKCP:make-stdy KKCP:error kkcp:make-stdy] 4]) (defalias 'KKCP:henkan-begin #[(henkan-string) " ! \n a !\n #)" [*KKCP:error-flag* sj3-error-code result henkan-string sj3-server-henkan-begin :sj3-no-connection EGG:open-sj3 KKCP:henkan-begin KKCP:error] 4]) (defalias 'KKCP:henkan-next #[(bunsetu-no) " ! \n a !\n #)" [*KKCP:error-flag* sj3-error-code result bunsetu-no sj3-server-henkan-next :sj3-no-connection EGG:open-sj3 KKCP:henkan-next KKCP:error] 4]) (defalias 'KKCP:henkan-kakutei #[(bunsetu-no jikouho-no) " \" \n a \"\n $)" [*KKCP:error-flag* sj3-error-code result jikouho-no bunsetu-no sj3-server-henkan-kakutei :sj3-no-connection EGG:open-sj3 KKCP:henkan-kakutei KKCP:error] 5]) (defalias 'KKCP:bunsetu-henkou #[(bunsetu-no bunsetu-length) " \" \n a \"\n $)" [*KKCP:error-flag* sj3-error-code result bunsetu-length bunsetu-no sj3-server-bunsetu-henkou :sj3-no-connection EGG:open-sj3 KKCP:bunsetu-henkou KKCP:error kkcp:bunsetu-henkou] 5]) (defalias 'KKCP:henkan-quit #[nil "  \n a \n \")" [*KKCP:error-flag* sj3-error-code result sj3-server-henkan-quit :sj3-no-connection EGG:open-sj3 KKCP:henkan-quit KKCP:error] 3]) (defalias 'KKCP:henkan-end #[(&optional bunsetuno) " !\n \na ! \n\")" [*KKCP:error-flag* bunsetuno sj3-error-code result sj3-server-henkan-end :sj3-no-connection EGG:open-sj3 KKCP:henkan-end KKCP:error] 3]) (defalias 'KKCP:dict-add #[(dictno kanji yomi bunpo) " \n$ a \n$  \n&)" [sj3-error-code result bunpo yomi kanji dictno sj3-server-dict-add :sj3-no-connection EGG:open-sj3 KKCP:dict-add KKCP:error *KKCP:error-flag*] 7]) (defalias 'KKCP:dict-delete #[(dictno kanji yomi bunpo) " \n$ a \n$  \n&)" [sj3-error-code result bunpo yomi kanji dictno sj3-server-dict-delete :sj3-no-connection EGG:open-sj3 KKCP:dict-delete KKCP:error *KKCP:error-flag*] 7]) (defalias 'KKCP:dict-info #[(dictno) " ! \n a !\n #)" [*KKCP:error-flag* sj3-error-code result dictno sj3-server-dict-info :sj3-no-connection EGG:open-sj3 KKCP:dict-info KKCP:error] 4]) (defalias 'KKCP:make-directory #[(pathname) " ! \n a !\n #)" [*KKCP:error-flag* sj3-error-code result pathname sj3-server-make-directory :sj3-no-connection EGG:open-sj3 KKCP:make-directory KKCP:error kkcp:make-directory] 4]) (defalias 'KKCP:file-access #[(pathname mode) " \" \nUǪ a \"\n $)" [*KKCP:error-flag* sj3-error-code result mode pathname sj3-server-file-access 0 t :sj3-no-connection EGG:open-sj3 KKCP:file-access KKCP:error kkcp:file-access] 5]) (defalias 'KKCP:server-close #[nil "  \n\n \")" [*KKCP:error-flag* sj3-error-code result sj3-server-close KKCP:error KKCP:server-close] 3]) (byte-code "B!!ƪ\"" [current-load-list *default-sys-dic-directory* default-boundp set-default file-directory-p "/usr/sony/dict" "/usr/sony/dict/sj3" "/usr/local/lib/sj3/dict"] 4) (defalias 'set-default-sys-dic-directory #[(pathname) " ! ! \" \"! !!" [*default-sys-dic-directory* pathname substitute-in-file-name file-name-absolute-p KKCP:file-access 0 error format "System Default directory(%s) $(B$,$"$j$^$;$s!#(B" file-name-as-directory "Default directory must be absolute pathname"] 4 "\ $(B%7%9%F%`<-=q$NI8=`(Bdirectory PATHNAME$(B$r;XDj$9$k!#(B PATHNAME$(B$O4D6-JQ?t$r4^$s$G$h$$!#(B"]) (byte-code "B!!ƪ\"" [current-load-list *default-usr-dic-directory* default-boundp set-default file-directory-p "/usr/sony/dict/sj3/user" "/usr/sony/dict/sj3/user/$USER" "/usr/local/lib/sj3/dict/user/$USER"] 4) (defalias 'set-default-usr-dic-directory #[(pathname) "\n!!\n!\n\"\nO! \"\n\"!\n\"!\n!!\n\")\n!" [*default-usr-dic-directory* updir pathname file-name-as-directory substitute-in-file-name file-name-absolute-p KKCP:file-access 0 file-name-directory -1 error format "User Default directory(%s) $(B$,$"$j$^$;$s!#(B" yes-or-no-p "User Default directory(%s) $(B$r:n$j$^$9$+!)(B" KKCP:make-directory directory-file-name notify "User Default directory(%s) $(B$r:n$j$^$7$?!#(B" "Default directory must be absolute pathname"] 4 "\ $(BMxMQ$N%7%9%F%`<-=q(B %s $(B$,EPO?$5$l$F$$$^$9!#(B" KKCP:file-access 0 "$(B%7%9%F%`<-=q(B %s $(B$,$"$j$^$;$s!#(B" nil KKCP:use-dict error "EGG: setsysdict failed. :%s"] 5]) (byte-code "B!\"B!\"ć" [current-load-list egg:*usr-dict* default-boundp set-default nil egg:*dict-menu*] 3) (defalias 'push-end '(macro . #[(val loc) " DE" [loc val push-end-internal quote] 4])) (defalias 'push-end-internal #[(val loc) " ! !BBL" [val loc eval nil] 4]) (defalias 'egg:setusrdict #[(dict) " ! \" !\" \" \" \"! ! \" \" B\nB ! B\" \"* \") \" B\nB ! B\" ! B B \"*" [*KKCP:error-flag* egg:*dict-list* egg:*usr-dict* dict-no dict assoc file-name-nondirectory beep notify "$(B4{$KF1L>$NMxMQe$K(B egg-startup-file $(B$,$"$j$^$;$s!#(B" egg-default-startup-file load-path] 4]) (defalias 'disconnect-sj3 #[nil " " [KKCP:server-close] 1 nil nil]) (defalias 'close-sj3 #[nil " " [KKCP:server-close] 1 nil nil]) (byte-code "B!\"B!\"ć" [current-load-list egg:*kanji-kanabuff* default-boundp set-default nil *bunsetu-number*] 3) (defalias 'bunsetu-su #[nil " " [sj3-bunsetu-suu] 1]) (defalias 'bunsetu-length #[(number) "!" [number sj3-bunsetu-yomi-moji-suu] 2]) (defalias 'kanji-moji-suu #[(str) "G" [str] 1 "\ Do Not Call This."]) (defalias 'bunsetu-position #[(number) "\n W !\\G\\ Tj *" [egg:*bunsetu-kugiri* number egg:*region-start* pos i 0 bunsetu-kanji-length] 4]) (defalias 'bunsetu-kanji-length #[(bunsetu-no) "!" [bunsetu-no sj3-bunsetu-kanji-length] 2]) (defalias 'bunsetu-kanji #[(number) "!" [number sj3-bunsetu-kanji] 2]) (defalias 'bunsetu-kanji-insert #[(bunsetu-no) "p\"" [bunsetu-no sj3-bunsetu-kanji] 3]) (defalias 'bunsetu-set-kanji #[(bunsetu-no kouho-no) " \"" [kouho-no bunsetu-no sj3-server-henkan-kakutei] 3]) (defalias 'bunsetu-yomi #[(number) "!" [number sj3-bunsetu-yomi] 2]) (defalias 'bunsetu-yomi-insert #[(bunsetu-no) "p\"" [bunsetu-no sj3-bunsetu-yomi] 3]) (defalias 'bunsetu-yomi-equal #[(number yomi) " \"" [yomi number sj3-bunsetu-yomi-equal] 3]) (defalias 'bunsetu-kouho-suu #[(bunsetu-no) " !W ! !)" [no bunsetu-no sj3-bunsetu-kouho-suu 1 KKCP:henkan-next] 2]) (defalias 'bunsetu-kouho-list #[(number) " !U ! !)" [no number bunsetu-kouho-suu 1 KKCP:henkan-next sj3-bunsetu-kouho-list] 3]) (defalias 'bunsetu-kouho-number #[(bunsetu-no) "!" [bunsetu-no sj3-bunsetu-kouho-number] 2]) (defconst egg:*bunsetu-face* nil "\ *$(BJ8@aI=<($KMQ$$$k(B face $(B$^$?$O(B nil") (byte-code "B#!\"!" [current-load-list make-variable-buffer-local egg:*bunsetu-extent* put variable-documentation "$(BJ8@a$NI=<($K;H$&(B extent" default-boundp set-default nil] 5) (defconst egg:*bunsetu-kugiri* " " "\ *$(BJ8@a$N6h@Z$j$r<($9J8;zNs(B") (defconst egg:*henkan-face* nil "\ *$(BJQ49NN0h$rI=<($9$k(B face $(B$^$?$O(B nil") (byte-code "B#!\"!" [current-load-list make-variable-buffer-local egg:*henkan-extent* put variable-documentation "$(BJQ49NN0h$NI=<($K;H$&(B extent" default-boundp set-default nil] 5) (defconst egg:*henkan-open* "|" "\ *$(BJQ49$N;OE@$r<($9J8;zNs(B") (defconst egg:*henkan-close* "|" "\ *$(BJQ49$N=*E@$r<($9J8;zNs(B") (byte-code "B#!\"!" [current-load-list make-variable-buffer-local egg:henkan-mode-in-use put variable-documentation "buffer $(B$,JQ49Cf$N;~(B t" default-boundp set-default nil] 5) (defalias 'egg:henkan-face-on #[nil "\n ! # \"\" \n\"" [egg:*region-end* egg:*region-start* egg:*henkan-face* egg:*henkan-extent* extentp set-extent-endpoints make-extent mapcar #[(prop) " #" [prop egg:*henkan-extent* set-extent-property nil] 4] (start-open end-open detachable) set-extent-face] 4]) (defalias 'egg:henkan-face-off #[nil " ! !" [egg:*henkan-face* egg:*henkan-extent* extentp detach-extent] 2]) (defalias 'henkan-region #[(start end) "t`! \"" [end start set-mark henkan-region-internal] 3 nil "r"]) (byte-code "B!\"" [current-load-list henkan-mode-indicator default-boundp set-default "$(B4A(B"] 3) (defalias 'henkan-region-internal #[(start end) " ǎ \n\"!! b !  ! \" ! b \n| c `Ɠc Ɠ b GZ | G\\| bc `Ɠ b`c Ɠ) b \n|! !!)ȉ*" [finished egg:henkan-mode-in-use end egg:*region-end* start egg:*region-start* nil ((byte-code " ‡" [egg:henkan-mode-in-use finished nil] 1)) t buffer-substring-no-properties 0 KKCP:henkan-begin mode-line-egg-mode-update markerp make-marker set-marker-insertion-type marker-position suspend-undo egg:fence-face-off henkan-insert-kouho egg:henkan-face-on egg:bunsetu-face-on henkan-goto-bunsetu egg:*kanji-kanabuff* *bunsetu-number* egg:*henkan-open* egg:*henkan-close* point result henkan-mode-indicator egg:*fence-open* egg:*fence-close*] 4 "\ region$(B$r$+$J4A;zJQ49$9$k!#(B"]) (defalias 'henkan-paragraph #[nil " ` `\"*" [end forward-paragraph backward-paragraph henkan-region-internal] 3 "\ Kana-kanji henkan paragraph at or after point." nil]) (defalias 'henkan-sentence #[nil " ` `\"*" [end forward-sentence backward-sentence henkan-region-internal] 3 "\ Kana-kanji henkan sentence at or after point." nil]) (defalias 'henkan-word #[nil "#`#`\"*" [start re-search-backward "\\b\\w" nil t re-search-forward "\\w\\b" henkan-region-internal] 4 "\ Kana-kanji henkan word at or after point." nil]) (defalias 'set-egg-henkan-mode-format #[(open close kugiri &optional henkan-face bunsetu-face) " ; ; \n;\n s s  \n  !#!#ˇ \n &" [egg:*henkan-face* bunsetu-face kugiri close open henkan-face face-list "" extentp set-extent-property face t error "Wrong type of arguments: %1 %2 %3 %4 %5" egg:*bunsetu-face* egg:*henkan-extent* egg:*bunsetu-extent* egg:*henkan-open* egg:*henkan-close* egg:*bunsetu-kugiri*] 7 "\ $(BJQ49(B mode $(B$NI=<(J}K!$r@_Dj$9$k!#(BOPEN $(B$OJQ49$N;OE@$r<($9J8;zNs$^$?$O(B nil$(B!#(B CLOSE$(B$OJQ49$N=*E@$r<($9J8;zNs$^$?$O(B nil$(B!#(B KUGIRI$(B$OJ8@a$N6h@Z$j$rI=<($9$kJ8;zNs$^$?$O(B nil$(B!#(B HENKAN-FACE $(B$,;XDj$5$l$F(B nil $(B$G$J$1$l$P!"JQ496h4V$rI=<($9$k(B face $(B$H$7$F;H$o$l$k!#(B BUNSETU-FACE $(B$,;XDj$5$l$F(B nil $(B$G$J$1$l$P!"CmL\$7$F$$$kJ8@a$rI=<($9$k(B face $(B$H$7$F;H$o$l$k(B" (list (read-string "$(BJQ493+;OJ8;zNs(B: ") (read-string "$(BJQ49=*N;J8;zNs(B: ") (read-string "$(BJ8@a6h@Z$jJ8;zNs(B: ") (cdr (assoc (completing-read "$(BJQ496h4VI=<(B0@-(B: " egg:*face-alist*) egg:*face-alist*)) (cdr (assoc (completing-read "$(BJ8@a6h4VI=<(B0@-(B: " egg:*face-alist*) egg:*face-alist*)))]) (defalias 'henkan-insert-kouho #[(bunsetu-no) "  \nW !c To \nWG[!*" [egg:*bunsetu-kugiri* bunsetu-no max i bunsetu-su bunsetu-kanji-insert delete-char] 3]) (defalias 'henkan-kakutei #[nil " ȉ GZ | | G\\| b \nW ! Tk* " [egg:*in-fence-mode* egg:henkan-mode-in-use max egg:*region-end* i egg:*region-start* egg:bunsetu-face-off egg:henkan-face-off nil resume-undo-list 0 bunsetu-su bunsetu-kanji-insert undo-boundary KKCP:henkan-end egg:quit-egg-mode egg:*henkan-open* egg:*henkan-close* overwrite-mode] 4 nil nil]) (defalias 'henkan-kakutei-before-point #[nil " | b\nW ! Tk*! GZ |c `̓ G\\| b`c ̓) b `  \nW ! Tr b+ " [*bunsetu-number* point max egg:*region-end* egg:*region-start* i egg:bunsetu-face-off egg:henkan-face-off 0 bunsetu-kanji-insert undo-boundary KKCP:henkan-end nil egg:fence-face-on bunsetu-su bunsetu-yomi-insert t egg:mode-line-display overwrite-mode egg:*henkan-open* egg:*fence-open* egg:*henkan-close* egg:*fence-close* egg:*mode-on* egg:henkan-mode-in-use] 4 nil nil]) (defalias 'egg:set-bunsetu-face #[(no face switch) " !ɉ# \n# a !T) ! SU T!GZp$" [point face egg:*bunsetu-face* switch no egg:*bunsetu-extent* egg:bunsetu-face-off extentp make-extent 1 nil set-extent-property set-extent-endpoints modeline bunsetu-position bunsetu-su egg:*region-end* egg:*bunsetu-kugiri*] 6]) (defalias 'egg:bunsetu-face-on #[(no) " #" [egg:*bunsetu-face* no egg:set-bunsetu-face t] 4]) (defalias 'egg:bunsetu-face-off #[nil "!!" [egg:*bunsetu-extent* extentp detach-extent] 2]) (defalias 'henkan-goto-bunsetu #[(number) " S# !b !" [number *bunsetu-number* check-number-range 0 bunsetu-su bunsetu-position egg:bunsetu-face-on] 4]) (defalias 'henkan-forward-bunsetu #[nil "T!" [*bunsetu-number* henkan-goto-bunsetu] 2 nil nil]) (defalias 'henkan-backward-bunsetu #[nil "S!" [*bunsetu-number* henkan-goto-bunsetu] 2 nil nil]) (defalias 'henkan-first-bunsetu #[nil "!" [henkan-goto-bunsetu 0] 2 nil nil]) (defalias 'henkan-last-bunsetu #[nil " S!" [henkan-goto-bunsetu bunsetu-su] 2 nil nil]) (defalias 'check-number-range #[(i min max) "\n W\nW \n" [max min i] 2]) (defalias 'henkan-hiragana #[nil "!S!" [*bunsetu-number* henkan-goto-kouho bunsetu-kouho-suu] 3 nil nil]) (defalias 'henkan-katakana #[nil "!Z!" [*bunsetu-number* henkan-goto-kouho bunsetu-kouho-suu 2] 3 nil nil]) (defalias 'henkan-next-kouho #[nil "!T!" [*bunsetu-number* henkan-goto-kouho bunsetu-kouho-number] 3 nil nil]) (defalias 'henkan-previous-kouho #[nil "!S!" [*bunsetu-number* henkan-goto-kouho bunsetu-kouho-number] 3 nil nil]) (defalias 'henkan-goto-kouho #[(kouho-number) "` !  !S# \nW \" ! !\\|b \" !) TUb, !" [point yomi max kouho-number *bunsetu-number* i bunsetu-yomi bunsetu-su check-number-range 0 bunsetu-kouho-suu bunsetu-yomi-equal bunsetu-position bunsetu-kanji-length bunsetu-set-kanji bunsetu-kanji-insert egg:bunsetu-face-on p1] 6]) (defalias 'henkan-bunsetu-chijime #[nil "!U!S!" [*bunsetu-number* bunsetu-length 1 bunsetu-length-henko] 3 nil nil]) (defalias 'henkan-bunsetu-nobasi #[nil "T U?!T!" [*bunsetu-number* bunsetu-su bunsetu-length-henko bunsetu-length] 3 nil nil]) (defalias 'henkan-saishou-bunsetu #[nil "!" [bunsetu-length-henko 1] 2 nil nil]) (defalias 'henkan-saichou-bunsetu #[nil "  W\n !\\ Tp\n!+" [*bunsetu-number* max l i bunsetu-su 0 bunsetu-length bunsetu-length-henko] 4 nil nil]) (defalias 'bunsetu-length-henko #[(length) " \n\" !| !b ! ! !)" [egg:*region-end* r length *bunsetu-number* KKCP:bunsetu-henkou bunsetu-position henkan-insert-kouho henkan-goto-bunsetu egg:bunsetu-face-on] 4]) (defalias 'henkan-quit #[nil " \nGZ | | G\\| bc `ȓ c`c ȓ) b  " [egg:*fence-open* egg:*henkan-close* egg:*henkan-open* point egg:*region-end* egg:*region-start* egg:bunsetu-face-off egg:henkan-face-off nil egg:fence-face-on KKCP:henkan-quit t egg:mode-line-display egg:*kanji-kanabuff* egg:*fence-close* egg:*mode-on* egg:henkan-mode-in-use egg:*in-fence-mode*] 3 nil nil]) (defalias 'henkan-select-kouho #[nil " a ! @ B B T Ap !+E\n !\"!* " [kouho-list *bunsetu-number* menu l r i selected-window minibuffer-window bunsetu-kouho-list nil "$(B" henkan-saichou-bunsetu " " henkan-next-kouho "" "" henkan-first-bunsetu "" henkan-backward-bunsetu "" henkan-quit "" henkan-last-bunsetu "" henkan-forward-bunsetu "" "" henkan-help-command " " " " henkan-kakutei-before-point " " henkan-kakutei " " "" "" "" henkan-previous-kouho "" [backspace] [clear] [delete] [down] [help] [kp-enter] [kp-down] [kp-left] [kp-right] [kp-up] [left] [next] [prior] [return] [right] [up] egg:henkan-mode-in-use] 6) (defalias 'henkan-help-command #[nil "!! " [henkan-mode-document-string "*Help*" princ substitute-command-keys print-help-return-message] 4 "\ Display documentation fo henkan-mode." nil]) (byte-code "B!\"" [current-load-list henkan-mode-document-string default-boundp set-default "$(B4A;zJQ49%b!<%I(B:\n$(BJ8@a0\F0(B\n \\[henkan-first-bunsetu] $(B@hF,J8@a(B \\[henkan-last-bunsetu] $(B8eHxJ8@a(B \n \\[henkan-backward-bunsetu] $(BD>A0J8@a(B \\[henkan-forward-bunsetu] $(BD>8eJ8@a(B\n$(BJQ49JQ99(B\n $(BA0J8@a$^$G3NDj(B \\[henkan-kakutei-before-point]\n$(BJQ49Cf;_(B \\[henkan-quit]\n"] 3) (defalias 'remove-regexp-in-string #[(regexp string) " \" ȉȕ \nOP # Ȕȕ \nOPh ," [regexp ostart oend nstart str string string-match nil 0] 5]) (defalias 'toroku-region #[(start end) "{\" \"!!E! \n$\nA@\n8 A Q Q %." [*sj3-bunpo-code* dict-no type yomi gobi kanji remove-regexp-in-string "[-]" read-hiragana-string format "$(B<-=qEPO?!X(B%s$(B!Y(B $(BFI$_(B :" menu:select-from-menu menu "$(BEPO?<-=qL>(B:" KKCP:dict-add 2 notify "$(B<-=q9`L\!X(B%s$(B!Y(B(%s: %s)$(B$r(B%s$(B$KEPO?$7$^$7$?!#(B" " " dict-name hinshi start end *sj3-bunpo-menu* egg:*dict-menu* egg:*usr-dict*] 6 nil "r"]) (byte-code "B!\"B!\"B!\"B!\"B!\"ȇ" [current-load-list *sj3-bunpo-menu* default-boundp set-default (menu "$(BIJ;l(B:" (("$(BL>;l(B" menu "$(BIJ;l(B:$(BL>;l(B:" (("$(BL>;l(B" . 1) ("$(BL>;l(B($(B$*!D(B)" . 2) ("$(BL>;l(B($(B$4!D(B)" . 3) ("$(BL>;l(B($(B!DE*(B/$(B2=(B)" . 4) ("$(BL>;l(B($(B$*!D$9$k(B)" . 5) ("$(BL>;l(B($(B!D$9$k(B)" . 6) ("$(BL>;l(B($(B$4!D$9$k(B)" . 7) ("$(BL>;l(B($(B!D$J(B/$(B$K(B)" . 8) ("$(BL>;l(B($(B$*!D$J(B/$(B$K(B)" . 9) ("$(BL>;l(B($(B$4!D$J(B/$(B$K(B)" . 10) ("$(BL>;l(B($(BI{;l(B)" . 11))) ("$(BBeL>;l(B" . 12) ("$(BID;z(B" . 21) ("$(BL>A0(B" . 22) ("$(BCOL>(B" . 24) ("$(B8)(B/$(B6hL>(B" . 25) ("$(BF0;l(B" menu "$(BIJ;l(B:$(BF0;l(B:" (("$(B%5JQ8l44(B" . 80) ("$(B%6JQ8l44(B" . 81) ("$(B0lCJITJQ2=It(B" . 90) ("$(B%+9T8^CJ8l44(B" . 91) ("$(B%,9T8^CJ8l44(B" . 92) ("$(B%59T8^CJ8l44(B" . 93) ("$(B%?9T8^CJ8l44(B" . 94) ("$(B%J9T8^CJ8l44(B" . 95) ("$(B%P9T8^CJ8l44(B" . 96) ("$(B%^9T8^CJ8l44(B" . 97) ("$(B%i9T8^CJ8l44(B" . 98) ("$(B%o9T8^CJ8l44(B" . 99))) ("$(BO"BN;l(B" . 26) ("$(B@\B3;l(B" . 27) ("$(B=u?t;l(B" . 29) ("$(B?t;l(B" . 30) ("$(B@\F,8l(B" . 31) ("$(B@\Hx8l(B" . 36) ("$(BI{;l(B" . 45) ("$(BI{;l(B2" . 46) ("$(B7AMF;l8l44(B" . 60) ("$(B7AMFF0;l8l44(B" . 71) ("$(BC14A;z(B" . 189))) *sj3-bunpo-code* ((1 "$(BL>;l(B") (2 "$(BL>;l(B($(B$*!D(B)") (3 "$(BL>;l(B($(B$4!D(B)") (4 "$(BL>;l(B($(B!DE*(B/$(B2=(B)" "$(BE*(B" nil) (5 "$(BL>;l(B($(B$*!D$9$k(B)" "$(B$9$k(B" nil) (6 "$(BL>;l(B($(B!D$9$k(B)" "$(B$9$k(B" nil) (7 "$(BL>;l(B($(B$4!D$9$k(B)" "$(B$9$k(B" nil) (8 "$(BL>;l(B($(B!D$J(B/$(B$K(B)" "$(B$J(B/$(B$K(B" nil) (9 "$(BL>;l(B($(B$*!D$J(B/$(B$K(B)" "$(B$J(B/$(B$K(B" nil) (10 "$(BL>;l(B($(B$4!D$J(B/$(B$K(B)" "$(B$J(B/$(B$K(B" nil) (11 "$(BL>;l(B($(BI{;l(B)") (12 "$(BBeL>;l(B") (21 "$(BID;z(B") (22 "$(BL>A0(B") (24 "$(BCOL>(B") (25 "$(B8)(B/$(B6hL>(B") (26 "$(BO"BN;l(B") (27 "$(B@\B3;l(B") (29 "$(B=u?t;l(B") (30 "$(B?t;l(B") (31 "$(B@\F,8l(B") (36 "$(B@\Hx8l(B") (45 "$(BI{;l(B") (46 "$(BI{;l(B2") (60 "$(B7AMF;l8l44(B" "$(B$$(B" ("" "" "" "" "")) (71 "$(B7AMFF0;l8l44(B" "$(B$K(B" ("" "" "" "" "")) (80 "$(B%5JQ8l44(B" "$(B$9$k(B" ("" "" "" "" "")) (81 "$(B%6JQ8l44(B" "$(B$:$k(B" ("" "" "" "" "")) (90 "$(B0lCJITJQ2=It(B" "$(B$k(B" ("" "" "" "" "")) (91 "$(B%+9T8^CJ8l44(B" "$(B$/(B" ("$(B$+$J$$(B" "$(B$-$^$9(B" "$(B$/(B" "$(B$/$H$-(B" "$(B$1(B")) (92 "$(B%,9T8^CJ8l44(B" "$(B$0(B" ("$(B$,$J$$(B" "$(B$.$^$9(B" "" "" "")) (93 "$(B%59T8^CJ8l44(B" "$(B$9(B" ("" "" "" "" "")) (94 "$(B%?9T8^CJ8l44(B" "$(B$D(B" ("" "" "" "" "")) (95 "$(B%J9T8^CJ8l44(B" "$(B$L(B" ("" "" "" "" "")) (96 "$(B%P9T8^CJ8l44(B" "$(B$V(B" ("" "" "" "" "")) (97 "$(B%^9T8^CJ8l44(B" "$(B$`(B" ("" "" "" "" "")) (98 "$(B%i9T8^CJ8l44(B" "$(B$k(B" ("" "" "" "" "")) (99 "$(B%o9T8^CJ8l44(B" "$(B$&(B" ("" "" "" "" "")) (189 "$(BC14A;z(B") (190 "$(BITDj(B") (1000 "$(B$=$NB>(B")) *diced-window-configuration* nil *diced-dict-info* *diced-dno*] 3) (defalias 'edit-dict #[nil "\nE! A! ! \"  ! !Z]\"Q!! !+" [*diced-dno* egg:*usr-dict* egg:*dict-menu* dict-info dict-name dict-no menu:select-from-menu menu "$(B<-=qL>(B:" file-name-nondirectory KKCP:dict-info message "$(B<-=q(B: %s $(B$KEPO?$5$l$F$$$k9`L\$O$"$j$^$;$s!#(B" current-window-configuration pop-to-buffer "*Nihongo Dictionary Information*" diced-mode "Diced" "DictEd: " make-string 0 17 string-width ?\ sit-for use-local-map diced-display *diced-window-configuration* major-mode mode-name mode-line-buffer-identification diced-mode-map] 8 nil nil]) (defalias 'diced-redisplay #[nil "\n!\nA!\" !)" [egg:*usr-dict* dict-info *diced-dno* KKCP:dict-info message "$(B<-=q(B: %s $(B$KEPO?$5$l$F$$$k9`L\$O$"$j$^$;$s!#(B" file-name-nondirectory diced-quit diced-display] 6]) (defalias 'diced-display #[(dict-info) "  \"\" \"\" @@ @A@ @8 8 A@  \\ !Z !TZ\"\nc \\\n!Z !TZ\"ձ A-eb*։" [buffer-read-only bunpo kanji yomi gobi dict-info nil erase-buffer apply max mapcar #[(l) "@!" [l string-width] 2] #[(l) "A@!" [l string-width] 2] 2 " " " " insert-char ?\ 10 string-width 0 ?\n t l-kanji l-yomi *sj3-bunpo-code* hinshi *diced-dict-info*] 6]) (defalias 'diced-add #[nil "!!!!\n8\nA@ Q  Q A !% \n$ % ." [item hinshi bunpo yomi kanji gobi diced-execute t read-kanji-string "$(B4A;z!'(B" read-hiragana-string "$(BFI$_!'(B" menu:select-from-menu 2 " " notify-yes-or-no-p "$(B<-=q9`L\!X(B%s$(B!Y(B(%s: %s)$(B$r(B%s$(B$KEPO?$7$^$9!#(B" file-name-nondirectory KKCP:dict-add notify "$(B<-=q9`L\!X(B%s$(B!Y(B(%s: %s)$(B$r(B%s$(B$KEPO?$7$^$7$?!#(B" diced-redisplay item-yomi dict-name *sj3-bunpo-code* *diced-dno* *sj3-bunpo-menu* egg:*usr-dict*] 7 nil nil]) (defalias 'diced-delete #[nil "yfa!cu)" [buffer-read-only 0 nil ?\ delete-char 1 "D" -1] 2 nil nil]) (defalias 'diced-undelete #[nil "yfa!cu) " [buffer-read-only 0 nil ?D delete-char 1 " " -1 beep] 2 nil nil]) (defalias 'diced-quit #[nil " !!!" [*diced-window-configuration* buffer-read-only nil erase-buffer t bury-buffer get-buffer "*Nihongo Dictionary Information*" set-window-configuration] 3 nil nil]) (defalias 'diced-execute #[(&optional display) "ebmfa 8@A@8 8 A@A \n Q\n Q !%\n $%. Ty )y? " [dict-item bunpo kanji yomi no gobi 0 nil ?D 2 " " notify-yes-or-no-p "$(B<-=q9`L\!X(B%s$(B!Y(B(%s: %s)$(B$r(B%s$(B$+$i:o=|$7$^$9!#(B" file-name-nondirectory KKCP:dict-delete notify "$(B<-=q9`L\!X(B%s$(B!Y(B(%s: %s)$(B$r(B%s$(B$+$i:o=|$7$^$7$?!#(B" 1 -1 diced-redisplay hinshi dict-name item item-yomi *sj3-bunpo-code* *diced-dno* *diced-dict-info* egg:*usr-dict* display] 8 nil nil]) (defalias 'diced-next-line #[nil "yym y" [0 1 beep -1] 1 nil nil]) (defalias 'diced-end-of-buffer #[nil " y" [end-of-buffer -1] 1 nil nil]) (defalias 'diced-scroll-down #[nil " my" [scroll-down -1] 1 nil nil]) (defalias 'diced-mode #[nil "" ["Mode for \"editing\" dictionaries.\nIn diced, you are \"editing\" a list of the entries in dictionaries.\nYou can move using the usual cursor motion commands.\nLetters no longer insert themselves. Instead, \n\nType a to Add new entry.\nType d to flag an entry for Deletion.\nType n to move cursor to Next entry.\nType p to move cursor to Previous entry.\nType q to Quit from DicEd.\nType u to Unflag an entry (remove its D flag).\nType x to eXecute the deletions requested.\n"] 1 "\ Mode for \"editing\" dictionaries. In diced, you are \"editing\" a list of the entries in dictionaries. You can move using the usual cursor motion commands. Letters no longer insert themselves. Instead, Type a to Add new entry. Type d to flag an entry for Deletion. Type n to move cursor to Next entry. Type p to move cursor to Previous entry. Type q to Quit from DicEd. Type u to Unflag an entry (remove its D flag). Type x to eXecute the deletions requested. "]) (byte-code "B! \" \" # # # # # # # # # # # # # # # # # # #" [current-load-list diced-mode-map default-boundp set-default make-sparse-keymap set-keymap-default-binding undefined define-key "a" diced-add "d" diced-delete "n" diced-next-line "p" previous-line "q" diced-quit "u" diced-undelete "x" diced-execute "" help-command "" "" "" scroll-up "<" beginning-of-buffer ">" diced-end-of-buffer "v" diced-scroll-down [down] [help] [next] [prior] [up]] 4)