;ELC ;;; compiled by handa@mule on Thu Oct 22 11:09:17 1998 ;;; from file /net/mulelab/export/dist/mule-2.3-19.34/lisp/egg.el ;;; emacs version 19.34. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`egg.el' was compiled for Emacs 19.29 or later")) #@41 Version number of this version of Egg.  (defvar egg-version "3.09" (#$ . 468)) (byte-code " M" [user-full-name "Satoru Tomura" egg-version-update #[(arg) "p!Qeb!`!!`{!`| X2c T!c! c* P !)" [buffer-name "wnn-egg.el" re-search-forward "(defvar egg-version \"[0-9]+\\." nil minor point search-forward "\"" backward-char 1 string-to-int 8 "0" int-to-string "Egg last modified date: " kill-line current-time-string save-buffer arg byte-compile-file buffer-file-name] 3 nil "P"]] 2) (defalias 'characterp #[(form) "" [form] 1]) (defalias 'coerce-string #[(form) ";!!" [form characterp char-to-string] 2]) (defalias 'coerce-internal-string #[(form) ";!U!!" [form chars-in-string 1 string-to-char characterp] 2]) (byte-code "####" [put egg:*input-mode* permanent-local t egg:*mode-on* its:*current-map* mode-line-egg-mode] 4) (defalias 'jis-code-input #[nil "!" [insert-jis-code-from-minibuffer "JIS (16ʒɽ): "] 2 nil nil]) (defalias 'insert-jis-code-from-minibuffer #[(prompt) " !\f! \f\" @ A#c*" [read-from-minibuffer prompt nil val str read-jis-code-from-string beep make-character lc-jp] 4]) (defalias 'hexadigit-value #[(ch) " X X Z X\" X\" Z\\ X3 X3 Z\\" [48 ch 57 97 102 10 65 70] 2]) (defalias 'read-jis-code-from-string #[(str) "GUFH!XFH!FH!XFH!FH!_H!\\H!_H!\\B" [str 4 2 hexadigit-value 0 1 3 16] 5]) (byte-code "\nB" [" *Notification* " *notification-window* current-load-list] 2) (defalias 'notify #[(str &rest args) " \fB\"!" [notify-internal apply format str args] 5]) (defalias 'notify-internal #[(message &optional noerase) " !qdb O ʱ\n! \"?2!!*" [get-buffer-create *notification-window* notify-buff nil buffer-read-only current-time-string 4 19 ":: " message 10 t bury-buffer "%s" noerase sleep-for 1 ""] 5]) (defalias 'notify-yes-or-no-p #[(str &rest args) " \fB\"!" [notify-yes-or-no-p-internal apply format str args] 5]) (defalias 'notify-yes-or-no-p-internal #[(message) "" [((byte-code " !db Oɱ!" [pop-to-buffer *notification-window* nil buffer-read-only current-time-string 4 19 ":: " message 10 t yes-or-no-p "ǒ"] 4))] 1]) (defalias 'notify-y-or-n-p #[(str &rest args) " \fB\"!" [notify-y-or-n-p-internal apply format str args] 5]) (defalias 'notify-y-or-n-p-internal #[(message) "" [((byte-code " !db Oɱ!" [pop-to-buffer *notification-window* nil buffer-read-only current-time-string 4 19 ":: " message 10 t y-or-n-p "ǒ"] 4))] 1]) (defalias 'select-notification #[nil " !‰" [pop-to-buffer *notification-window* t buffer-read-only] 2 nil nil]) (byte-code "! B! B!  B!- B!: B!G B!T B!b \n B\n#\n#\n#\n#\n#\n#\n#\n#\n#\n#\n#\n#\n#\n#\n#\n#\n#\n#" [boundp menu:*select-items* nil current-load-list menu:*select-menus* menu:*select-item-no* menu:*select-menu-no* menu:*select-menu-stack* menu:*select-start* menu:*select-positions* menu-mode-map make-keymap define-key "" menu:begining-of-menu "" menu:end-of-menu "" menu:next-item "" menu:previous-item "" menu:next-item-old "" menu:quit "" menu:previous-item-old "\f" menu:refresh " " menu:select [return] [left] [right] [up] [down] [kp-left] [kp-right] [kp-up] [kp-down]] 4) (defalias 'menu:select-from-menu #[(menu &optional initial position) "! ! \n ̋-" [0 t get-buffer-create " *menu*" window-buffer minibuffer-window nil value minibuffer menubuffer inhibit-quit echo-keystrokes ((byte-code "! !\" \" ! !qed| A@c !\n ` 8\n A@!Z\"qXq 8GWq!0<)@)@X)@ 8GW)@!A#8!#<#@=# B B ed| A@c` 8\n A@!Z\"@@X@ 8GW@!!0! ;  ! =J!7 =[GS!7 =p =p =v 7 = = = 7 = = =T!7 = @0A0@0A@080808 Aed| A@c`!!)7 7 =  =  =)S!7 =8!7 b Xb Xb GS\\Xb Z!7  X X \\GS\\X Z\\!7  X X \\GS\\X Z\\!7 = @=28! B<,@=, B ed| A@c` 8\n A@!Z\"!7 7A )0*ed| B\"V!CaB" [fboundp redirect-frame-focus selected-frame window-frame minibuffer-window set-window-buffer menubuffer set-minibuffer-window select-window menu window-width selected-window nil finished menu:*select-menu-stack* menu:*select-positions* menu:*select-start* menu:make-selection-list 2 string-width menu:*select-menus* initial 0 menu:select-goto-item-position menu:item-value menu:*select-item-no* menu:*select-items* value menu:select-item-position menu:*select-menu-no* menu:select-goto-menu read-event ch quit-flag 1 menu:select-goto-item 5 6 right kp-right menu:select-next-item left kp-left menu:select-previous-item 14 down kp-down 7 save 3 4 t 16 up kp-up 12 48 57 97 122 10 65 90 13 return beep minibuffer position] 5))] 5]) (defalias 'menu:select-item-position #[nil " W\n \f8G\\ T\n \\*" [0 m p menu:*select-menu-no* menu:*select-menus* menu:*select-item-no*] 4]) (defalias 'menu:select-goto-item-position #[(pos) " \f8G\\ X \f8G\\ T Z !+" [0 p i m menu:*select-menus* pos menu:*select-item-no* menu:select-goto-menu] 3]) (defalias 'menu:select-goto-menu #[(no) " GS# 8!d| G X\" GS b \n  ^\nX@\n\"I\nZ\\\" @! A \nT\n,* !" [check-number-range no 0 menu:*select-menus* menu:*select-menu-no* menu:*select-items* message nil menu:*select-start* menu:*select-item-no* i l 9 format " %d." " %c." 10 97 menu:item-string menu:select-goto-item] 5]) (defalias 'menu:select-goto-item #[(no) " GS# \\\fW. 8!G\\\\Tb*" [check-number-range no 0 menu:*select-items* menu:*select-item-no* menu:*select-start* 2 i p menu:item-string 4] 5]) (defalias 'menu:select-next-item #[nil " GSW T! T!" [menu:*select-item-no* menu:*select-items* menu:select-goto-item 0 menu:select-goto-menu menu:*select-menu-no*] 2]) (defalias 'menu:select-previous-item #[nil " W S! S!" [0 menu:*select-item-no* menu:select-goto-item 1000 menu:select-goto-menu menu:*select-menu-no*] 2]) (byte-code "! B‡" [boundp menu:*display-item-value* nil current-load-list] 2) (defalias 'menu:item-string #[(item) ";!:N\n8@;&@4@3@!4A#@;A@@L@!ŇŇ" [item char-to-string menu:*display-item-value* format "%s [%s]" ""] 4]) (defalias 'menu:item-value #[(item) ";A" [item] 1]) (defalias 'menu:make-selection-list #[(items width) " Q\n @!!\\\\X: + !\fB @C\fB A @ B\n @!!\\\\ A\n _ʉ !\fB!b\f!+" [nil 0 size line whole items width string-width menu:item-string 4 reverse] 6]) (byte-code "! B! B!! B!. B!;\n B!H\f B!U B!b B!o B!| B! B! B! B! B! B! B!\" B!$ B!& B!( B! * B!, B!, . B" [boundp ascii-char "[ -~]" current-load-list ascii-space "[ ]" ascii-symbols "[ -/:-@[-`{-~]" ascii-numeric "[0-9]" ascii-English-Upper "[A-Z]" ascii-English-Lower "[a-z]" ascii-alphanumeric "[0-9A-Za-z]" kanji-char "\\cj" kanji-space "" kanji-symbols "\\cS" kanji-numeric "[-]" kanji-English-Upper "[-]" kanji-English-Lower "[-]" kanji-hiragana "\\cH" kanji-katakana "\\cK" kanji-Greek-Upper "[-]" kanji-Greek-Lower "[-]" kanji-Russian-Upper "[-]" kanji-Russian-Lower "[-]" kanji-Kanji-1st-Level "[-]" kanji-Kanji-2nd-Level "[С-]" kanji-kanji-char "\\(\\cH\\|\\cK\\|\\cC\\)" aletter "\\(" "\\|" "\\)"] 5) (defalias 'hiragana-region #[(start end) "b\n #&hX\"! \f\"#c)" [start re-search-forward kanji-katakana end ch 54003 delete-char -1 make-character lc-jp 164 char-component 2] 7 nil "r"]) #@40 hiragana paragraph at or after point. (defalias 'hiragana-paragraph #[nil " ` ` \"*" [forward-paragraph end backward-paragraph hiragana-region] 3 (#$ . 8957) nil]) #@39 hiragana sentence at or after point. (defalias 'hiragana-sentence #[nil " ` ` \"*" [forward-sentence end backward-sentence hiragana-region] 3 (#$ . 9136) nil]) (defalias 'katakana-region #[(start end) "` b \f#$h\"! #c))" [point start re-search-forward kanji-hiragana end char-component 2 ch delete-char -1 make-character lc-jp 165] 4 nil "r"]) #@40 katakana paragraph at or after point. (defalias 'katakana-paragraph #[nil " ` ` \"*" [forward-paragraph end backward-paragraph katakana-region] 3 (#$ . 9518) nil]) #@39 katakana sentence at or after point. (defalias 'katakana-sentence #[nil " ` ` \"*" [forward-sentence end backward-sentence katakana-region] 3 (#$ . 9697) nil]) (defalias 'hankaku-region #[(start end) " }ebdd#Rh\f\"\f\" U=  A\f9!\fc)NUN! Zc+)" [start end re-search-forward "\\cS\\|\\cA" ch char-component 1 ch1 2 ch2 161 *hankaku-alist* val delete-char -1 163 128] 5 nil "r"]) #@39 hankaku paragraph at or after point. (defalias 'hankaku-paragraph #[nil " ` ` \"*" [forward-paragraph end backward-paragraph hankaku-region] 3 (#$ . 10138) nil]) #@38 hankaku sentence at or after point. (defalias 'hankaku-sentence #[nil " ` ` \"*" [forward-sentence end backward-sentence hankaku-region] 3 (#$ . 10315) nil]) (defalias 'hankaku-word #[(arg) "` v`\")" [start arg hankaku-region] 3 nil "p"]) (byte-code "! B" [boundp *hankaku-alist* ((161 . 32) (170 . 33) (201 . 34) (244 . 35) (240 . 36) (243 . 37) (245 . 38) (199 . 39) (202 . 40) (203 . 41) (246 . 42) (220 . 43) (164 . 44) (221 . 45) (165 . 46) (191 . 47) (167 . 58) (168 . 59) (227 . 60) (225 . 61) (228 . 62) (169 . 63) (247 . 64) (206 . 91) (239 . 92) (207 . 93) (176 . 94) (178 . 95) (208 . 123) (195 . 124) (209 . 125) (177 . 126) (198 . 96)) current-load-list] 2) (defalias 'zenkaku-region #[(start end) " }ebdd#Ch\fX?\fX?!\f A\n4\nc>\f\f\\#c)))" [start end re-search-forward "[ -~]" ch 32 126 delete-char -1 *zenkaku-alist* zen make-character lc-jp 163 128] 6 nil "r"]) #@39 zenkaku paragraph at or after point. (defalias 'zenkaku-paragraph #[nil " ` ` \"*" [forward-paragraph end backward-paragraph zenkaku-region] 3 (#$ . 11261) nil]) #@38 zenkaku sentence at or after point. (defalias 'zenkaku-sentence #[nil " ` ` \"*" [forward-sentence end backward-sentence zenkaku-region] 3 (#$ . 11438) nil]) (defalias 'zenkaku-word #[(arg) "` v`\")" [start arg zenkaku-region] 3 nil "p"]) (byte-code "! B" [boundp *zenkaku-alist* ((32 . "") (33 . "") (34 . "") (35 . "") (36 . "") (37 . "") (38 . "") (39 . "") (40 . "") (41 . "") (42 . "") (43 . "") (44 . "") (45 . "") (46 . "") (47 . "") (58 . "") (59 . "") (60 . "") (61 . "") (62 . "") (63 . "") (64 . "") (91 . "") (92 . "") (93 . "") (94 . "") (95 . "") (123 . "") (124 . "") (125 . "") (126 . "") (96 . "")) current-load-list] 2) (defalias 'roma-kana-region #[(start end) " \n!$" [its:translate-region start end nil its:get-mode-map "roma-kana"] 6 nil "r"]) #@41 roma-kana paragraph at or after point. (defalias 'roma-kana-paragraph #[nil " ` ` \"*" [forward-paragraph end backward-paragraph roma-kana-region] 3 (#$ . 12339) nil]) #@40 roma-kana sentence at or after point. (defalias 'roma-kana-sentence #[nil " ` ` \"*" [forward-sentence end backward-sentence roma-kana-region] 3 (#$ . 12522) nil]) #@35 roma-kana word at or after point. (defalias 'roma-kana-word #[nil "#`#\f`\"*" [re-search-backward "\\b\\w" nil t start re-search-forward "\\w\\b" roma-kana-region] 4 (#$ . 12701) nil]) (defalias 'roma-kanji-region #[(start end) " \n\" `}eb\"db) `\"" [roma-kana-region start end replace-regexp "\\(\\| \\)" "" henkan-region-internal] 3 nil "r"]) #@42 roma-kanji paragraph at or after point. (defalias 'roma-kanji-paragraph #[nil " ` ` \"*" [forward-paragraph end backward-paragraph roma-kanji-region] 3 (#$ . 13081) nil]) #@41 roma-kanji sentence at or after point. (defalias 'roma-kanji-sentence #[nil " ` ` \"*" [forward-sentence end backward-sentence roma-kanji-region] 3 (#$ . 13267) nil]) #@36 roma-kanji word at or after point. (defalias 'roma-kanji-word #[nil "#`#\f`\"*" [re-search-backward "\\b\\w" nil t start re-search-forward "\\w\\b" roma-kanji-region] 4 (#$ . 13449) nil]) (defalias 'egg:member #[(elt list) " @A" [list elt] 3]) (byte-code "! B! B‡" [boundp its:*mode-alist* nil current-load-list its:*internal-mode-alist*] 2) (defalias 'its:get-mode-map #[(name) " \n\"A \"A" [assoc name its:*mode-alist* its:*internal-mode-alist*] 3]) (defalias 'its:set-mode-map #[(name map &optional internalp) " \n\n \f\"% A@A)? B\n8 C\"?\f C\")" [assoc name internalp its:*internal-mode-alist* its:*mode-alist* place mapplace map append] 4]) (defalias 'its:get-mode-indicator #[(name) " !\n! )" [its:get-mode-map name map map-indicator] 3]) (defalias 'its:set-mode-indicator #[(name indicator) " !\n\f\" \f\")" [its:get-mode-map name map map-set-indicator indicator its-define-mode] 4]) (byte-code "! B‡" [boundp its:*processing-map* nil current-load-list] 2) #@506 its-mode NAME ꒵򒤹뒡¾ its-mode 򒤵쒤뒤ޒǒ its-defrule ʒɒ NAME ˒Вƒ§ɒÒ뒡INDICATOR non-nil Β˒ its-mode NAME 򒤹뒤 mode-line ˒ɽ쒤뒡RESET non-nil Β˒ its-mode Β꒵˒ʒ뒡SUPERS ϒ咰̒ its-mode ̾꒥Ȓǒؒ꒤뒡INTERNALP mode name ̾Ȓ뒡 its-defrule, its-defrule-conditional, defule-select-mode-temporally  (defalias 'its-define-mode #[(name &optional indicator reset supers internalp) " !!\f \"$  #P !\f0\f\" A\"\"P\"\"Ç" [its:get-mode-map name make-map nil indicator mapcar supers its:*processing-map* its:set-mode-map internalp map-set-indicator reset map-set-state map-set-alist map-set-supers] 7 (#$ . 14549)]) (put (quote for-each) (quote lisp-indent-hook) 1) #@212 (for-each ((VAR1 LIST1) ... (VARn LISTn)) . BODY) ϒђ VAR1 Β ꒥ LIST1 Βגǒ˒«ђ VARn Β͒꒥ LISTn Β ǒ˒« BODY ’Ԓ뒡 (defalias 'for-each '(macro . #[(vars &rest body) " B\"" [for-each* vars progn body] 4 (#$ . 15477)])) (defalias 'for-each* #[(vars body) " !@@@A@\fD D DEA \"DEE+" [vars body make-symbol "temp" val var tvar let while setq car for-each* cdr] 10]) (put (quote dolist) (quote lisp-indent-hook) 1) #@105 (dolist (VAR LISTFORM) . BODY) VAR ˒璼 LISTFORM Βגǒ« BODY ’Ԓ (defalias 'dolist '(macro . #[(pair &rest body) " C B\"" [for-each* pair progn body] 4 (#$ . 16027)])) #@59 OUTPUT NEXT 钤ʒ standard-action 뒡 (defalias 'its:make-standard-action #[(output next) ";   ; ( $‡ D:3B D 9 D" [output "" nil next 0] 2 (#$ . 16243)]) #@69 ACITION standard-action ǒ뒤ɒȽ꒤뒡 (defalias 'its:standard-actionp #[(action) ";.:.@;#@:@@#@?.A@?.A@;" [action] 1 (#$ . 16463)]) #@166 üΒ֒ǒΒɽ뒴ؒؒ꒤. ؒ map input action state ȒƒƒВ쒡֒ɽΒʸ֒ (defvar its:make-terminal-state (quote its:default-make-terminal-state) (#$ . 16657)) (defalias 'its:default-make-terminal-state #[(map input action state) " " [state input] 1]) (defalias 'its:make-terminal-state-hangul #[(map input action state) " !\n !Ç" [its:standard-actionp action action-output nil] 2]) #@155 󒽪üΒ֒ǒΒɽ뒴ؒؒ꒤뒡ؒ map input ȒƒƒВ쒡֒ɽΒʸ֒ (defvar its:make-non-terminal-state (quote its:default-make-standard-non-terminal-state) (#$ . 17151)) #@7 **** (defalias 'its:default-make-standard-non-terminal-state #[(map input) " ! GSH!P" [map-state-string map char-to-string input] 4 (#$ . 17413)]) #@721 INPUT ϒ쒤뒤 OUTPUT ˒ђ뒡NEXT nil ǒʒȒϒ 咤 NEXT ϒ쒤蒤˒ђ³뒡INPUTϒ쒤 ǒђΒ꒤ƒʒ STATE Ւ󒥹咤˒ɽ뒡ђΒ꒤ ƒʒ˒ɽʸϒђ its:make-terminal-state 蒤 ђ its:make-non-terminal-state ˒ؒ쒤ؒ˒蒤Òƒ쒤뒡ђ § MAP ǒؒ꒤쒤ђɽ˒ВϿ쒤뒡MAP nil Β쒹璤ϒ⒤ÒȒⒺ ᒤ its-define-mode 쒤ђɽ˒ВϿ쒤뒡ʒ OUTPUT nil Β 璤 INPUT ˒Вђ§쒤뒡 (defalias 'its-defrule #[(input output &optional next state map) " \f\" ;$" [its-defrule* input its:make-standard-action output next state map its:*processing-map*] 5 (#$ . 17572)]) #@186 (its-defrule-conditional INPUT ((COND1 OUTPUT1) ... (CONDn OUTPUTn))) INPUT ϒ쒤˒ CONDi 璼ĴْΩ˒ OUTPUTi Вϒ뒡 (defalias 'its-defrule-conditional '(macro . #[(input &rest conds) " \fBDE" [its-defrule* input quote cond conds] 5 (#$ . 18497)])) #@223 (its-defrule-conditional INPUT STATE MAP ((COND1 OUTPUT1) ... (CONDn OUTPUTn))) INPUT ϒ쒤˒ STATE ɽ CONDi 璼ĴْΩ˒ OUTPUTi Вϒ뒡 (defalias 'its-defrule-conditional* '(macro . #[(input state map &rest conds) " \fBD " [its-defrule* input quote cond conds state map] 5 (#$ . 18825)])) #@82 INPUT ϒ쒤뒤 temporally-mode Ȓ NAME 򒤵쒤뒡 (defalias 'its-defrule-select-mode-temporally #[(input name) " \fDD\"" [its-defrule* input quote its:select-mode-temporally name] 5 (#$ . 19214)]) (defalias 'its-defrule* #[(input action &optional state map) " G!\n;\n!\n\f\n \n%\n" [its:resize input map its:get-mode-map its:*processing-map* its-defrule** 0 action state] 6]) #@52 nilΒ쒹, its-defrule Βْޒ (defvar its:*defrule-verbose* t (#$ . 19655)) (defalias 'its-defrule** #[(i input action state map) "G UL $!\"7 !7/#7 !#?@ !? \"  \"\"g   \"!\\O\"!  \"  \"!\\%#) !? !? " [input i map-set-state map coerce-internal-string its:make-terminal-state action state its:*defrule-verbose* map-action notify "(its-defrule \"%s\" \"%s\" ) ƒ꒵ޒ" "(its-defrule \"%s\" \"%s\" )ޒ" map-terminalp map-set-action get-next-map-locally sref make-map its:make-non-terminal-state 0 char-bytes newmap set-next-map its-defrule**] 10]) (defalias 'make-map #[(&optional state action alist supers) " \n F" [state action alist supers] 4]) (defalias 'map-topmap-p #[(map) " !?" [map-state map] 2]) (defalias 'map-supers #[(map) " 8" [3 map] 2]) (defalias 'map-set-supers #[(map val) " \n" [3 map val] 2]) (defalias 'map-terminalp #[(map) " !?" [map-alist map] 2]) (defalias 'map-state #[(map) "@" [map] 1]) (defalias 'map-state-string #[(map) "\n!!" [coerce-string map-state map] 3]) (defalias 'map-set-state #[(map val) " " [map val] 2]) (defalias 'map-indicator #[(map) " !" [map-action map] 2]) (defalias 'map-set-indicator #[(map indicator) " \n\"" [map-set-action map indicator] 3]) (defalias 'map-action #[(map) "A@" [map] 1]) (defalias 'map-set-action #[(map val) "A " [map val] 2]) (defalias 'map-alist #[(map) " 8" [2 map] 2]) (defalias 'map-set-alist #[(map alist) "AA " [map alist] 2]) (defalias 'get-action #[(map) "#!\n!\n\"\n9Ə\"ȏ)" [map map-action action its:standard-actionp nil (funcall action) ((error)) (eval action) ((error))] 3]) (defalias 'action-output #[(action) ";@" [action] 1]) (defalias 'action-next #[(action) ";A@" [action nil] 1]) (defalias 'get-next-map #[(map ch) "\n!A:\n!:\n!7@\".ʼnA*" [ch map-alist map map-topmap-p map-supers nil result supers get-next-map] 4]) (defalias 'get-next-map-locally #[(map ch) "\n!A" [ch map-alist map] 3]) (defalias 'set-next-map #[(map ch val) "\n! \f \f2\n \n!\"\"2\f1\n\fB\n!B\"2\f)" [ch map-alist map place val map-set-alist delq] 7]) (defalias 'its:simple-actionp #[(action) ";" [action] 1]) (defalias 'collect-simple-action #[(map) " ! !!7 !C !4@A!\"A*" [map-terminalp map its:simple-actionp map-action map-alist nil result alist append collect-simple-action] 4]) (defalias 'its:simulate-input #[(i j input map) " X \"\" \"!\\ " [i j get-next-map map sref input char-bytes] 6]) (byte-code "!  B!  B\f\"!( B!9\" B!J\"\f B![\" B!h Bˇ" [boundp its:*buff-s* make-marker current-load-list its:*buff-e* set-marker-insertion-type t its:*maxlevel* 10 its:*maps* make-vector nil its:*actions* its:*inputs* 0 its:*level*] 3) (defalias 'its:resize #[(size) " X  \" \" \"" [its:*maxlevel* size make-vector nil its:*maps* its:*actions* 0 its:*inputs*] 3]) (defalias 'its:reset-maps #[(&optional init) "\n\n \nI" [0 its:*level* init its:*maps*] 3]) (defalias 'its:current-map #[nil " H" [its:*maps* its:*level*] 2]) (defalias 'its:previous-map #[nil "\nS]H" [its:*maps* 0 its:*level*] 3]) (defalias 'its:level #[nil "" [its:*level*] 1]) (defalias 'its:enter-newlevel #[(map ch output) "T \nI \fI I" [its:*level* its:*maps* map its:*inputs* ch its:*actions* output] 3]) (byte-code "! B! B‡" [boundp its:*char-from-buff* nil current-load-list its:*interactive* t] 2) (defalias 'its:reset-input #[nil "" [nil its:*char-from-buff*] 2]) (defalias 'its:flush-input-before-point #[(from) " X H!T)" [from its:*level* its:insert-char its:*inputs*] 4]) (defalias 'its:peek-char #[nil "`U  Cg" [its:*buff-e* its:*interactive* read-event unread-command-events] 2]) (defalias 'its:read-char #[nil "`U  g! )" [its:*buff-e* nil its:*char-from-buff* its:*interactive* read-event ch t delete-char 1] 2]) (defalias 'its:push-char #[(ch) "\n\n!)\n\nC" [its:*char-from-buff* its:insert-char ch unread-command-events] 2]) (defalias 'its:insert-char #[(ch) "c" [ch] 1]) (defalias 'its:ordinal-charp #[(ch) "X !\"=" [ch 127 lookup-key fence-mode-map char-to-string fence-self-insert-command] 4]) (defalias 'its:delete-charp #[(ch) "X !\"=" [ch 127 lookup-key fence-mode-map char-to-string fence-backward-delete-char] 4]) (defalias 'fence-self-insert-command #[nil " \n \" c c`S`#" [egg:*input-mode* get-next-map its:*current-map* last-command-event its:translate-region t] 4 nil nil]) #@106 A variation of all-completions. Arguments are STRING, ALIST and optional PRED. ALIST must be no obarray. (defalias 'its:all-completions #[(string alist &optional pred) " I @@ A ;EG GXE GOE<=<\f!E\f\nB*\n*" [alist nil allmatches tail elt eltstring string 0 pred commandp] 5 (#$ . 24483)]) (defalias 'its:temp-echo-area-contents #[(message) "d b\nc b\"`d|%C *" [inhibit-quit point-max message t sit-for 2 nil quit-flag 7 unread-command-events] 3]) (defalias 'car-string-lessp #[(item1 item2) "@ @" [item1 item2] 2]) #@76 Display a list of possible completions of the current minibuffer contents. (defalias 'its:minibuffer-completion-help #[nil "! # !'ː \"!)" [nil completions message "Making completion list..." its:all-completions buffer-string minibuffer-completion-table minibuffer-completion-predicate beep its:temp-echo-area-contents " [No completions]" " *Completions*" display-completion-list sort car-string-lessp] 6 (#$ . 25076) nil]) (byte-code " ! B\n#\n#! B # #KMKM" [copy-keymap minibuffer-local-completion-map its:minibuffer-local-completion-map current-load-list define-key "?" its:minibuffer-completion-help " " minibuffer-local-must-match-map its:minibuffer-local-must-match-map si:all-completions all-completions si:minibuffer-completion-help minibuffer-completion-help] 4) #@21 See completing-read (defalias 'its:completing-read #[(prompt table &optional predicate require-match initial-input) "   %+" [its:minibuffer-local-completion-map its:minibuffer-local-must-match-map nil completion-auto-help minibuffer-local-must-match-map minibuffer-local-completion-map completing-read prompt table predicate t initial-input] 6 (#$ . 25919)]) (byte-code "! B" [boundp its:*completing-input-menu* (menu "Which?" nil) current-load-list] 2) (defalias 'its:completing-input #[(map) " ! !GU !@A!5AA !#\n:4 !))" [get-action map action map-alist 1 its:completing-input its:*completing-input-menu* menu:select-from-menu 0 t values] 5]) (byte-code "! B‡" [boundp its:*make-menu-from-map-result* nil current-load-list] 2) (defalias 'its:make-menu-from-map #[(map) " \" !E)" [nil its:*make-menu-from-map-result* its:make-menu-from-map* map "" menu "Which?" reverse] 4]) (defalias 'its:make-menu-from-map* #[(map string) " ! \n!#B ! 6 @A  @@!P\" A *" [get-action map action format "%s[%s]" string action-output its:*make-menu-from-map-result* map-alist alist its:make-menu-from-map* char-to-string nil] 6]) (byte-code "! B‡" [boundp its:*make-alist-from-map-result* nil current-load-list] 2) (defalias 'its:make-alist-from-map #[(map &optional string) " \f \" !)" [nil its:*make-alist-from-map-result* its:make-alist-from-map* map string "" reverse] 3]) (defalias 'its:make-alist-from-map* #[(map string) " !7 \n!:#\f@#\f@\fA8\"0\f;,\f0\f\")DB !\nY\n@A \n@@!P\"\nA\n@*" [get-action map action string action-output format "%s..." "%s" its:*make-alist-from-map-result* map-alist alist its:make-alist-from-map* char-to-string nil] 6]) (byte-code "! B" [boundp its:*select-alternative-output-menu* (menu "Which?" nil) current-load-list] 2) (defalias 'its:select-alternative-output #[(action-output) "`A\n=@ 8DZ =,@T G\"y\n=H@U@ GSC@Sy\n=p AA  @#:lA@)y\n=y \f`|@ 8!@ 8c+" [action-output 0 ch output point 12 "<" ">" read-event 14 mod 16 13 its:*select-alternative-output-menu* menu:select-from-menu t values beep its:*insert-output-string*] 5]) (byte-code "! B! B‡" [boundp its:*insert-output-string* nil current-load-list its:*display-status-string*] 2) (defalias 'its:translate-region #[(start end its:*interactive* &optional topmap) " “ \f“ b‰\n \f ! ` \"  !U`|XHcTl)!`{%`|c) )6  !!`|Uȉ 8UH!ȉ 8T!S $$!!6!c6&T''IWX&X(HPT'$P&S*&W&(Hy&Sa)&S`|(&H!(&H!++:+@+A8++;,,+!+c+:+! )`“!&T!(&H!(&H!c)(&H95!(&H !`“!(&H!!`“Ut!fn! W`|H!`“!!+ȉ 8 6 `“6 ! #`|‰S5&W&(HT$55!&S&!!+5+:5+@+A8++;UN,N,+!i+ci+:c+!i )!` U !`“ !c)`“ 9 !`“!!`“$$!!!c+62`|$$ !!# !c #6 #`|W$W$!!6!c6‰ ‰zzC7." [its:*buff-s* start nil its:*buff-e* end its:reset-input topmap its:*current-map* t 0 echo-keystrokes its-quit-flag inhibit-quit newmap action ch map its:reset-maps its:read-char get-next-map get-action its:*interactive* its:*char-from-buff* 1 i its:*level* its:*inputs* its:completing-read "ITS:>" its:make-alist-from-map inputs map-terminalp its:delete-charp its:insert-char its:flush-input-before-point its:current-map its:*display-status-string* map-state output newlevel its:*actions* its:simulate-input its:standard-actionp action-output its:*insert-output-string* its:select-alternative-output beep its:push-char action-next eval its:ordinal-charp 2 its:enter-newlevel m its:peek-char unread-command-events] 9]) #@11 Obsolete. (defalias 'dump-its-mode-map #[(name filename) "!" [message "This function is obsolete in the current version of Mule."] 2 (#$ . 30321) nil]) #@22 T if egg mode is on. (defvar egg:*mode-on* nil (#$ . 30482)) (byte-code "!\"" [make-variable-buffer-local egg:*mode-on* set-default nil] 3) #@25 T if egg map is active. (defvar egg:*input-mode* t (#$ . 30635)) (byte-code "!\"" [make-variable-buffer-local egg:*input-mode* set-default t] 3) #@21 T if in fence mode. (defvar egg:*in-fence-mode* nil (#$ . 30793)) (byte-code "!\"!B!!$B!\" B!" [make-variable-buffer-local egg:*in-fence-mode* set-default nil boundp its:*current-map* current-load-list its:*previous-map* "--" mode-line-egg-mode] 3) #@17 global variable (defvar mode-line-egg-mode-in-minibuffer "--" (#$ . 31099)) (defalias 'egg:find-symbol-in-tree #[(item tree) ":\n@\"\nA\"\n" [tree egg:find-symbol-in-tree item] 3]) (byte-code "\nB!\nBŇ" [t display-minibuffer-mode-in-minibuffer current-load-list boundp minibuffer-window-selected nil] 2) (defalias 'egg:select-window-hook #[(old new) " ='\n =' !q!!! )\n =3ʉ ĉ " [old minibuffer-window new window-buffer nil minibuffer-preprompt default-value egg:*mode-on* egg:*input-mode* egg:*in-fence-mode* t minibuffer-window-selected] 2]) (defalias 'egg:minibuffer-setup-function #[nil "" [t minibuffer-window-selected] 2]) (add-hook (quote minibuffer-setup-hook) (quote egg:minibuffer-setup-function)) (defalias 'egg:minibuffer-exit-function #[nil "!!!" [nil minibuffer-preprompt minibuffer-window-selected default-value egg:*mode-on* egg:*input-mode* egg:*in-fence-mode*] 2]) (byte-code "\"! B\fA\"\"REEEEEEEEEFEDB\"BŇ" [add-hook minibuffer-exit-hook egg:minibuffer-exit-function boundp its:*reset-mode-line-format* nil current-load-list set-default mode-line-format egg:find-symbol-in-tree mode-line-egg-mode mc-flag display-minibuffer-mode-in-minibuffer its:*previous-map* "<" "[" ">" "]" minibuffer-window-selected display-minibuffer-mode "m" " " mode-line-egg-mode-in-minibuffer ("[" nil "]") egg:minibuffer-preprompt] 11) (defalias 'mode-line-egg-mode-update #[(str) "p !=@\n6 @ ƂI A 8 -ʂ.I \fGG !" [window-buffer minibuffer-window display-minibuffer-mode-in-minibuffer egg:minibuffer-preprompt 0 its:*previous-map* 60 91 str 2 62 93 minibuffer-preprompt t display-minibuffer-mode mode-line-egg-mode-in-minibuffer nil mode-line-egg-mode set-buffer-modified-p buffer-modified-p] 3]) (byte-code " !!\f B! B" [mode-line-egg-mode-update mode-line-egg-mode boundp alphabet-mode-indicator "aA" current-load-list transparent-mode-indicator "--"] 2) (defalias 'egg:mode-line-display #[nil " \n \f\n!!" [mode-line-egg-mode-update egg:*in-fence-mode* egg:*input-mode* alphabet-mode-indicator egg:*mode-on* map-indicator its:*current-map* transparent-mode-indicator] 3]) (defalias 'egg:toggle-egg-mode-on-off #[nil "? " [egg:*mode-on* egg:mode-line-display] 1 nil nil]) (defalias 'its:select-mode #[(name) " ! ! " [its:get-mode-map name its:*current-map* egg:mode-line-display beep] 2 nil (list (completing-read "ITS mode: " its:*mode-alist*))]) (byte-code "! B" [boundp its:*select-mode-menu* (menu "Mode:" nil) current-load-list] 2) (defalias 'its:select-mode-from-menu #[nil "AA ! " [its:*select-mode-menu* its:*mode-alist* menu:select-from-menu its:*current-map* egg:mode-line-display] 2 nil nil]) #@35 List of standard mode-map of EGG. (defvar its:*standard-modes* nil (#$ . 33987)) (defalias 'its:find #[(map list) "\n \n@=\nA T\n )" [0 n list map] 2]) (defalias 'its:next-mode #[nil " \n\"T\nG\n8 )" [its:find its:*current-map* its:*standard-modes* pos egg:mode-line-display] 4 nil nil]) (defalias 'its:previous-mode #[nil " \n\"U\nG S\n8 )" [its:find its:*current-map* its:*standard-modes* pos 0 egg:mode-line-display] 4 nil nil]) (defalias 'its:select-hiragana #[nil "!" [its:select-mode "roma-kana"] 2 nil nil]) (defalias 'its:select-katakana #[nil "!" [its:select-mode "roma-kata"] 2 nil nil]) (defalias 'its:select-downcase #[nil "!" [its:select-mode "downcase"] 2 nil nil]) (defalias 'its:select-upcase #[nil "!" [its:select-mode "upcase"] 2 nil nil]) (defalias 'its:select-zenkaku-downcase #[nil "!" [its:select-mode "zenkaku-downcase"] 2 nil nil]) (defalias 'its:select-zenkaku-upcase #[nil "!" [its:select-mode "zenkaku-upcase"] 2 nil nil]) (defalias 'its:select-mode-temporally #[(name) " ! \f\n  )" [its:get-mode-map name map its:*previous-map* its:*current-map* egg:mode-line-display beep] 3 nil (list (completing-read "ITS mode: " its:*mode-alist*))]) (defalias 'its:select-previous-mode #[nil "  " [its:*previous-map* beep its:*current-map* nil egg:mode-line-display] 1 nil nil]) (defalias 'toggle-egg-mode #[nil "  " [mc-flag egg:*mode-on* fence-toggle-egg-mode t egg:mode-line-display] 1 nil nil]) (defalias 'fence-toggle-egg-mode #[nil "\n ? " [its:*current-map* egg:*input-mode* egg:mode-line-display beep] 1 nil nil]) (byte-code "!\n !\fBW) !#T) # ##########" [boundp si:*global-map* copy-keymap global-map current-load-list 32 ch 127 define-key char-to-string egg-self-insert-command "" toggle-egg-mode " " henkan-region mule-keymap "m" its:select-mode-from-menu ">" its:next-mode "<" its:previous-mode "h" its:select-hiragana "k" its:select-katakana "q" its:select-downcase "Q" its:select-upcase "z" its:select-zenkaku-downcase "Z" its:select-zenkaku-upcase] 5) (defalias 'egg:do-auto-fill #[nil ") ?)i\nV)i \niW(i W(i )" [auto-fill-function buffer-read-only fill-column ocolumn] 2]) #@42 *Ւ󒥹Βϒ򒼨ʸ (defconst egg:*fence-open* "|" (#$ . -36319)) #@42 *Ւ󒥹Β򒼨ʸ (defconst egg:*fence-close* "|" (#$ . -36412)) #@52 *Ւ󒥹ɽ˒ђ face ޒ nil (defconst egg:*fence-face* nil (#$ . -36506)) (byte-code "! \fB#!!\fBÇ" [make-variable-buffer-local boundp egg:*fence-overlay* nil current-load-list put variable-documentation "Ւ󒥹ɽ overlay" egg:*face-alist* (("nil") ("highlight" . highlight) ("modeline" . modeline) ("inverse" . modeline) ("underline" . underline) ("bold" . bold) ("region" . region))] 5) #@279 fence mode Βɽˡߒ꒤뒡OPEN ϒՒ󒥹Βϒ򒼨ʸޒ nil CLOSEϒՒ󒥹Β򒼨ʸޒ nil 3 FACE ؒ꒤쒤 nil ǒʒ쒤ВՒ󒥹蒴֒Βɽ˒쒤Ȓ (defalias 'set-egg-fence-mode-format #[(open close &optional face) "; > ; >\n\n >>\" (\n !< #ˇ \n$" [open close face face-list "" egg:*fence-open* egg:*fence-close* egg:*fence-face* overlayp egg:*fence-overlay* overlay-put t error "Wrong type of argument: %s %s %s"] 5 (#$ . 36965) (list (read-string "Ւ󒥹ϒʸ: ") (read-string "Ւ󒥹λʸ: ") (cdr (assoc (completing-read "Ւ󒥹ɽ°: " egg:*face-alist*) egg:*face-alist*)))]) (byte-code "! B! B!!\"\"!3 B!@ B‡" [boundp egg:*region-start* nil current-load-list egg:*region-end* make-variable-buffer-local set-default egg:*global-map-backup* egg:*local-map-backup*] 3) #@56 counter to hold repetition of egg-self-insert-command. (defvar egg:*self-insert-non-undo-count* 0 (#$ . 38013)) (defalias 'egg-self-insert-command #[(arg) " \n \f U =+\nY1\n9 \nT\n!G!\\Xd`Z`\" Ud " [buffer-read-only mc-flag egg:*mode-on* egg:*input-mode* egg:*in-fence-mode* last-command-event 32 egg:enter-fence-mode-and-self-insert last-command egg-self-insert-command egg:*self-insert-non-undo-count* 20 1 cancel-undo-boundary self-insert-command arg egg-insert-after-hook run-hooks self-insert-after-hook egg:do-auto-fill] 3 nil "p"]) (byte-code "! B! B!  B‡" [boundp egg:*fence-open-backup* nil current-load-list egg:*fence-close-backup* egg:*fence-face-backup*] 2) #@37 *Β꒾֒ǒ *fence-open* (defconst egg:*fence-open-in-cont* "+" (#$ . -38786)) #@38 *Β꒾֒ǒ *fence-close* (defconst egg:*fence-close-in-cont* t (#$ . -38882)) #@37 *Β꒾֒ǒ *fence-face* (defconst egg:*fence-face-in-cont* t (#$ . -38978)) #@377 Β꒾֒ǒ fence mode Βɽˡߒ꒤뒡OPEN ϒՒ󒥹Βϒ򒼨ʸ 󒡢t ޒ nil CLOSEϒՒ󒥹Β򒼨ʸ󒡢t ޒ nil FACE nil ǒʒ쒤ВՒ󒥹蒴֒Βɽ˒쒤Ȓ 쒤쒤Β͒ t Β쒹璡̒ egg:*fence-open* Β͒ђ (defalias 'set-egg-fence-mode-format-in-cont #[(open close face) ";=Q\n;\n=\nQ / =/ >Q4\n; \n!O\n\f#\n $" [open t close face face-list "" egg:*fence-open-in-cont* egg:*fence-close-in-cont* egg:*fence-face-in-cont* overlayp egg:*fence-overlay* overlay-put egg:*fence-face* error "Wrong type of argument: %s %s %s"] 5 (#$ . 39073) (list (read-string "Ւ󒥹ϒʸ: ") (read-string "Ւ󒥹λʸ: ") (cdr (assoc (completing-read "Ւ󒥹ɽ°: " egg:*face -alist*) egg:*face-alist*)))]) #@62 ľ˒ђľ咤Βϒɒ򒼨 (defvar *in-cont-flag* nil (#$ . 40039)) (byte-code "! B‡" [boundp *in-cont-backup-flag* nil current-load-list] 2) (defalias 'egg:check-fence-in-cont #[nil "/   = \n=#\n =/ " [*in-cont-flag* t *in-cont-backup-flag* egg:*fence-open* egg:*fence-open-backup* egg:*fence-close* egg:*fence-close-backup* egg:*fence-face* egg:*fence-face-backup* egg:*fence-open-in-cont* egg:*fence-close-in-cont* egg:*fence-face-in-cont*] 2]) #@48 Restore egg:*fence-open* and egg:*fence-close* (defalias 'egg:restore-fence-in-cont #[nil "   lj" [*in-cont-backup-flag* egg:*fence-open-backup* egg:*fence-open* egg:*fence-close-backup* egg:*fence-close* egg:*fence-face-backup* egg:*fence-face* nil] 2 (#$ . 40571)]) (defalias 'egg:enter-fence-mode-and-self-insert #[nil "> \fC" [last-command (henkan-kakutei henkan-kakutei-and-self-insert) *in-cont-flag* enter-fence-mode last-command-event unread-command-events] 2]) (defalias 'egg:fence-face-on #[nil "#\n!ĉʼn%\n#\n\n #" [egg:*fence-face* overlayp egg:*fence-overlay* make-overlay 1 nil t overlay-put face move-overlay egg:*region-start* egg:*region-end*] 6]) (defalias 'egg:fence-face-off #[nil " \n! \n!" [egg:*fence-face* overlayp egg:*fence-overlay* delete-overlay] 2]) (defalias 'enter-fence-mode #[nil "! ! \nc\f!( \f\f`Γc!C \"\fΓ \fb" [boundp disable-undo t egg:*in-fence-mode* egg:mode-line-display current-local-map egg:*local-map-backup* use-local-map fence-mode-map egg:check-fence-in-cont egg:*fence-open* markerp egg:*region-start* make-marker nil egg:*fence-close* egg:*region-end* set-marker-insertion-type egg:fence-face-on] 3]) (defalias 'henkan-fence-region-or-single-space #[nil " c" [egg:*input-mode* henkan-fence-region 32] 1 nil nil]) (byte-code "! B‡" [boundp egg:*henkan-fence-mode* nil current-load-list] 2) (defalias 'henkan-fence-region #[nil " \f \"" [t egg:*henkan-fence-mode* egg:fence-face-off henkan-region-internal egg:*region-start* egg:*region-end*] 3 nil nil]) (defalias 'fence-katakana #[nil " \n\"" [katakana-region egg:*region-start* egg:*region-end*] 3 nil nil]) (defalias 'fence-hiragana #[nil " \n\"" [hiragana-region egg:*region-start* egg:*region-end*] 3 nil nil]) (defalias 'fence-hankaku #[nil " \n\"" [hankaku-region egg:*region-start* egg:*region-end*] 3 nil nil]) (defalias 'fence-zenkaku #[nil " \n\"" [zenkaku-region egg:*region-start* egg:*region-end*] 3 nil nil]) (defalias 'fence-backward-char #[nil "`W " [egg:*region-start* backward-char beep] 2 nil nil]) (defalias 'fence-forward-char #[nil "`W u " [egg:*region-end* nil beep] 2 nil nil]) (defalias 'fence-beginning-of-line #[nil "b" [egg:*region-start*] 1 nil nil]) (defalias 'fence-end-of-line #[nil "b" [egg:*region-end*] 1 nil nil]) (defalias 'fence-transpose-chars #[(arg) "`W` W ! " [egg:*region-start* egg:*region-end* transpose-chars arg beep] 2 nil "P"]) (defalias 'egg:exit-if-empty-region #[nil " U " [egg:*region-start* egg:*region-end* fence-exit-mode] 2]) (defalias 'fence-delete-char #[nil "`W ! " [egg:*region-end* delete-char 1 egg:exit-if-empty-region beep] 2 nil nil]) (defalias 'fence-backward-delete-char #[nil "`W ! " [egg:*region-start* delete-char -1 egg:exit-if-empty-region beep] 2 nil nil]) (defalias 'fence-kill-line #[nil "`| " [egg:*region-end* egg:exit-if-empty-region] 2 nil nil]) (defalias 'fence-exit-mode #[nil " GZ|\n G\\|   " [egg:*region-start* egg:*fence-open* egg:*region-end* egg:*fence-close* egg:fence-face-off its:*previous-map* its:*current-map* nil egg:quit-egg-mode] 3 nil nil]) (byte-code "! B!" [boundp egg-insert-after-hook nil current-load-list make-variable-buffer-local] 2) #@105 Hook to run when egg exits. Should take two arguments START and END correspoding to character position. (defvar egg-exit-hook nil (#$ . 43946)) (defalias 'egg:quit-egg-mode #[nil " ! {i!\\\") \f 5 \"PE\"PUP ‰‰!em!" [use-local-map egg:*local-map-backup* nil egg:*in-fence-mode* egg:mode-line-display overwrite-mode egg:*region-end* egg:*region-start* str delete-text-in-column string-width egg:restore-fence-in-cont egg:*henkan-fence-mode* self-insert-after-hook egg-exit-hook egg:do-auto-fill boundp disable-undo egg-insert-after-hook run-hooks] 5]) (defalias 'fence-cancel-input #[nil " | " [egg:*region-start* egg:*region-end* fence-exit-mode] 2 nil nil]) #@39 Display documentation for fence-mode. (defalias 'fence-mode-help-command #[nil " !p=  !! )" ["*Help*" buf get-buffer henkan-quit princ substitute-command-keys "The keys that are defined for the fence mode here are:\\{fence-mode-map}" print-help-return-message] 4 (#$ . 44696) nil]) (byte-code "!  B!  B #\f#\nXJ \n!#\f\n!#\nT\n*)\nWf \n!#\nT\nO) \f# \f# # # # # # # # # # # # # # # # # # # # # # # # # # @# AB# C# DE# FG# HI# JK# LK# MK# N# O# P# Q#R!ST!RR B\nWRUV\n\"#\nT\n)" [boundp fence-mode-map make-keymap current-load-list fence-mode-esc-map define-key [t] undefined [t] 0 ch 127 char-to-string 32 fence-self-insert-command "" [escape] "h" fence-hiragana "k" fence-katakana "<" fence-hankaku ">" fence-zenkaku "" its:select-hiragana " " its:select-katakana "q" its:select-downcase "Q" its:select-upcase "z" its:select-zenkaku-downcase "Z" its:select-zenkaku-upcase " " henkan-fence-region-or-single-space "" henkan-fence-region [67108896] "" fence-beginning-of-line "" fence-backward-char "" fence-cancel-input "" fence-delete-char "" fence-end-of-line "" fence-forward-char "" "" fence-mode-help-command " " fence-kill-line "\f" fence-exit-mode " " [return] "" its:select-previous-mode "" fence-transpose-chars "" "" eval-expression "" fence-toggle-egg-mode "" jis-code-input "" fence-backward-delete-char [delete] [backspace] [right] [left] [kp-right] [kp-left] egg:*minibuffer-local-hiragana-map* copy-keymap minibuffer-local-map make-string 1] 6) (defalias 'read-hiragana-string #[(prompt &optional initial-input) " !q!!!*\f #" [window-buffer minibuffer-window minibuff t egg:*input-mode* egg:*mode-on* its:get-mode-map "roma-kana" its:*current-map* mode-line-egg-mode-update its:get-mode-indicator read-from-minibuffer prompt initial-input egg:*minibuffer-local-hiragana-map*] 5]) (defalias 'read-kanji-string #[(prompt &optional initial-input) " !q!!!*\f \"" [window-buffer minibuffer-window minibuff t egg:*input-mode* egg:*mode-on* its:get-mode-map "roma-kana" its:*current-map* mode-line-egg-mode-update its:get-mode-indicator read-from-minibuffer prompt initial-input] 4]) (byte-code "\nB!\nBŇ" [read-kanji-string isearch:read-kanji-string current-load-list boundp special-symbol-input-point nil] 2) (defalias 'special-symbol-input #[nil "! \f#<@A;(c2:2!*" [require egg-jsymbol menu:select-from-menu *symbol-input-menu* special-symbol-input-point t code item eval] 5 nil nil]) (byte-code " #$$!" [define-key global-map "" special-symbol-input autoload busyu-input "busyu" nil t kakusuu-input provide egg] 5)