;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.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.el' was compiled for Emacs 20")) (or (boundp 'current-load-list) (setq current-load-list nil)) (require 'mule) ;;;###coding system: escape-quoted (defvar egg-version "3.10 xemacs" "\ Version number of this version of Egg. ") (defalias 'egg-read-event #[nil " ʼn ! ! ! \" !a !\n !a\n!\n!Z!\n!Z! ! C C +" [unread-command-events ch key event make-event nil next-command-event event-key key-press-event-p event-matches-key-specifier-p backspace event-modifier-bits 0 event-to-character 1 characterp int-to-char char-to-int 96 64] 3 "\ FSFmacs event emulator that shoves non key events into unread-command-events to facilitate translation from Mule-2.3"]) (defalias 'coerce-string #[(form) ";!!" [form characterp char-to-string] 2]) (defalias 'coerce-internal-string #[(form) ";GU!!" [form 1 string-to-char characterp] 2]) (byte-code "####B!\"!B!\"!" [current-load-list put egg:*input-mode* permanent-local t egg:*mode-on* its:*current-map* mode-line-egg-mode make-variable-buffer-local egg-buffer-undo-list default-boundp set-default nil egg-buffer-modified-flag] 4) (defalias 'suspend-undo #[nil "\n " [egg-buffer-modified-flag egg-buffer-undo-list buffer-undo-list buffer-modified-p] 2]) (defalias 'resume-undo-list #[nil " ? a\nB B)" [egg-buffer-modified-flag egg-buffer-undo-list time buffer-undo-list visited-file-modtime 0 (0 . 0) t] 3]) (defalias 'jis-code-input #[nil "!" [insert-jis-code-from-minibuffer "JIS $(B4A;z%3!<%I(B(16$(B?J?tI=8=(B): "] 2 nil nil]) (defalias 'insert-jis-code-from-minibuffer #[(prompt) "! !  \"o!\n@\nA#c*" [prompt str val read-from-minibuffer nil read-jis-code-from-string beep make-char find-charset japanese-jisx0208] 4]) (defalias 'hexadigit-value #[(ch) "XXZXXZ\\XXZ\\" [ch ?0 ?9 ?a ?f 10 ?A ?F] 2]) (defalias 'read-jis-code-from-string #[(str) "GUH!XH!H!XH!H!_H!\\H!_H!\\B" [str 4 2 hexadigit-value 0 1 3 16] 5]) (byte-code " B" [*notification-window* current-load-list " *Notification* "] 2) (defalias 'notify #[(str &rest args) " B\"!" [args str notify-internal apply format] 5]) (defalias 'notify-internal #[(message &optional noerase) "\n!qdb O ˱͋) \" ?!)!" [focus-follows-mouse noerase *notification-window* message buffer-read-only get-buffer-create nil current-time-string 4 19 ":: " ?\n t ((byte-code "p!" [bury-buffer] 2)) "%s" sleep-for 1 ""] 4]) (defalias 'notify-yes-or-no-p #[(str &rest args) " B\"!" [args str notify-yes-or-no-p-internal apply format] 5]) (defalias 'notify-yes-or-no-p-internal #[(message) "" [((byte-code " !db Oɱ!" [message *notification-window* buffer-read-only pop-to-buffer nil current-time-string 4 19 ":: " ?\n t yes-or-no-p "$(B$$$$$G$9$+!)(B"] 4))] 1]) (defalias 'notify-y-or-n-p #[(str &rest args) " B\"!" [args str notify-y-or-n-p-internal apply format] 5]) (defalias 'notify-y-or-n-p-internal #[(message) "" [((byte-code " !db Oɱ!" [message *notification-window* buffer-read-only pop-to-buffer nil current-time-string 4 19 ":: " ?\n t y-or-n-p "$(B$$$$$G$9$+!)(B"] 4))] 1]) (defalias 'select-notification #[nil " !É" [buffer-read-only *notification-window* pop-to-buffer t] 2 nil nil]) (defvar menu:*display-item-value* nil "\ *Non-nil means values of items are displayed in minibuffer menu") (byte-code " B! \"\"\"\"֯\n\"" [minibuffer-local-menu-map current-load-list default-boundp set-default make-sparse-keymap set-keymap-default-binding undefined mapcar #[(elem) " @ A\"!#" [minibuffer-local-menu-map elem define-key intern format "menu:%s"] 7] ((" " . next-element) ("" . beginning-of-selection) ("" . previous-element) ("" . previous-element) ("" . end-of-selection) ("" . next-element) ("" . quit) ("" . previous-element) (" " . next-element) ("\n" . select) (" " . refresh) (" " . select) ("" . next-selection) ("" . previous-selection) ([backspace] . previous-element) ([clear] . quit) ([delete] . previous-element) ([down] . next-selection) ([kp-down] . next-selection) ([kp-enter] . select) ([kp-left] . previous-element) ([kp-right] . next-element) ([kp-tab] . next-element) ([kp-up] . previous-selection) ([left] . previous-element) ([next] . next-selection) ([prior] . previous-selection) ([return] . select) ([right] . next-element) ([tab] . next-element) ([up] . previous-selection)) #[(char) " !#" [char minibuffer-local-menu-map define-key char-to-string menu:goto-nth-element] 4] "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" #[(key) " #" [key minibuffer-local-menu-map define-key menu:goto-nth-element] 4] [kp-0] [kp-1] [kp-2] [kp-3] [kp-4] [kp-5] [kp-6] [kp-7] [kp-8] [kp-9]] 12) (defalias 'menu:menup #[(value) "<@a" [value menu] 2]) (defalias 'menu:menu-prompt #[(&optional menu) " A@" [menu:*cur-menu* menu] 1]) (defalias 'menu:menu-items #[(&optional menu) " AA@" [menu:*cur-menu* menu] 1]) (defalias 'menu:menu-nth-item #[(n &optional menu) " !8" [menu n menu:menu-items] 3]) (defalias 'menu:item-string #[(item) "\n;\n\n!\n!\n:\n@;\n@\n@!\n@! \nA# )Ň" [menu:*display-item-value* str item characterp char-to-string "" format "%s [%s]"] 4]) (defalias 'menu:item-value #[(item) ";!!:AÇ" [item characterp char-to-string ""] 2]) (defalias 'menu:select-submenu #[(submenu) " \n   B" [menu:*cur-selection-no* menu:*cur-element-no* menu:*cur-selections* menu:*cur-selection* menu:*menu-stack* menu:*cur-menu* menu:*cur-element-points* submenu] 6 "\ Save the current selection state, and select a new menu."]) (defalias 'menu:select-saved-menu #[nil " @ A @ A@ 8 8 8\n 8 )" [menu:*cur-selection-no* menu:*cur-element-no* menu:*cur-selections* menu:*cur-selection* menu:*menu-stack* save 2 3 4 5 menu:*cur-menu* menu:*cur-element-points*] 2 "\ Restore the most recently stored selection state."]) (defalias 'menu:make-selection #[(pos elements) " B" [elements pos] 2]) (byte-code "Ns\"#" [menu:make-selection byte-optimizer (nil byte-compile-inline-expand) error "%s already has a byte-optimizer, can't make it inline" put byte-compile-inline-expand] 4) (defalias 'menu:selection-pos #[(&optional selection) " @" [menu:*cur-selection* selection] 1]) (byte-code "Ns\"#" [menu:selection-pos byte-optimizer (nil byte-compile-inline-expand) error "%s already has a byte-optimizer, can't make it inline" put byte-compile-inline-expand] 4) (defalias 'menu:selection-elements #[(&optional selection) " A" [menu:*cur-selection* selection] 1]) (byte-code "Ns\"#" [menu:selection-elements byte-optimizer (nil byte-compile-inline-expand) error "%s already has a byte-optimizer, can't make it inline" put byte-compile-inline-expand] 4) (defalias 'menu:selection-nth-element #[(&optional n selection) "\n A)8" [menu:*cur-selection* menu:*cur-element-no* n selection] 3]) (byte-code "Ns\"#" [menu:selection-nth-element byte-optimizer (nil byte-compile-inline-expand) error "%s already has a byte-optimizer, can't make it inline" put byte-compile-inline-expand] 4) (defalias 'menu:selection-element-length #[(&optional selection) " A)G" [menu:*cur-selection* selection] 2]) (byte-code "Ns\"#" [menu:selection-element-length byte-optimizer (nil byte-compile-inline-expand) error "%s already has a byte-optimizer, can't make it inline" put byte-compile-inline-expand] 4) (defalias 'menu:make-selections #[(items width) "Ɖlj  \n\n@!  !  \\\\X   *B B  M\nA \\\\X  B  *B B  \nA T  B \\\\\nA T ." [item-width revselections items size revelems pos 0 nil menu:item-string string-width 4 item-string headpos elements width] 8 "\ Make selection list from ITEMS so that each selection can fit with WIDTH."]) (defalias 'menu:setup-selections #[(window-width initpos) "  !Z\" \n A A@@) W T Af @@)Z )" [menu:*cur-selection* selection menu:*cur-selections* menu:*cur-selection-no* initpos selections menu:make-selections menu:menu-items string-width menu:menu-prompt 0 window-width menu:*cur-element-no*] 6]) (defalias 'menu:check-number-range #[(i min max) "\na \na\nW \nW\n" [min max i] 2]) (defalias 'menu:select-from-menu #[(menu &optional initial position) " !ȉȉ C A @!! ! @\" ! @ B A\\ @ \n\"\"Ҏ%)\n \n\n!! ! !MՉI @ A A 5 Չ.! B . " [menu:*window-width* finished pos value initial menu:*select-positions* window-width minibuffer-window nil 0 menu:item-value menu:menu-nth-item menu:menup menu:setup-selections menu:select-submenu add-hook minibuffer-setup-hook menu:minibuffer-setup ((byte-code "\" ʼnŇ" [pos quit-flag remove-hook minibuffer-setup-hook menu:minibuffer-setup nil] 4)) read-from-minibuffer "" t menu:select-saved-menu menu:*menu-stack* menu menu:*cur-element-points* menu:*cur-selection-no* menu:*cur-element-no* menu:*cur-selections* menu:*cur-selection* menu:*cur-menu* minibuffer-local-menu-map quit-flag position] 13 "\ Display menu in minibuffer and return the selected value. If INITIAL is non-nil integer list, it behaves as menu is selected using the path specified by INITIAL in advance. If POSITION is non-nil value, return value is a pair of the selected value and the chosen path (represented by an integer list)."]) (defalias 'menu:minibuffer-setup 'menu:goto-selection) (defalias 'menu:goto-selection #[(&optional sel-no elem-no) "\n GS# 8 cA) `\\ B X \" Z\\\" @ A TW +!" [menu:*cur-selection* menu:*cur-selections* menu:*cur-selection-no* revpoints elements i menu:check-number-range 0 erase-buffer menu:menu-prompt nil 2 9 format " %d." " %c." 10 ?a menu:goto-element sel-no selection menu:*cur-element-points* elem-no] 5]) (defalias 'menu:goto-element #[(&optional elem-no) "\n lj A)G)S#8b" [menu:*cur-element-points* menu:*cur-selection* elem-no selection menu:*cur-element-no* menu:check-number-range 0 nil] 6]) (defalias 'menu:beginning-of-selection #[nil "!" [menu:goto-element 0] 2 nil nil]) (defalias 'menu:end-of-selection #[nil "ÉA)G)S!" [menu:*cur-selection* selection menu:goto-element nil] 4 nil nil]) (defalias 'menu:next-selection #[nil "T!" [menu:*cur-selection-no* menu:goto-selection] 2 nil nil]) (defalias 'menu:previous-selection #[nil "S!" [menu:*cur-selection-no* menu:goto-selection] 2 nil nil]) (defalias 'menu:next-element #[nil " ĉ A)G)SW T!T\"" [menu:*cur-selection-no* menu:*cur-selection* selection menu:*cur-element-no* nil menu:goto-element menu:goto-selection 0] 4 nil nil]) (defalias 'menu:previous-element #[nil " W S!S\"" [menu:*cur-selection-no* menu:*cur-element-no* 0 menu:goto-element menu:goto-selection max] 3 nil nil]) (defalias 'menu:goto-nth-element #[nil " !ƉA)G)S X X \\X Z! X X \\ \\X Z\\! X X \\ \\X Z\\!*" [menu:*cur-selection* last-command-event selection elem-no-max ch event-to-character nil ?0 ?9 menu:goto-element ?a ?z 10 ?A ?Z] 4 nil nil]) (defalias 'menu:refresh #[nil " " [menu:goto-selection] 1 nil nil]) (defalias 'menu:select #[nil "  @)\\p\" " [menu:*cur-element-no* menu:*cur-selection* selection erase-buffer prin1 nil exit-minibuffer] 3 nil nil]) (defalias 'menu:quit #[nil " p\" " [erase-buffer prin1 nil exit-minibuffer] 3 nil nil]) (defalias 'hiragana-paragraph #[nil " ` `\"*" [end forward-paragraph backward-paragraph japanese-hiragana-region] 3 "\ hiragana paragraph at or after point." nil]) (defalias 'hiragana-sentence #[nil " ` `\"*" [end forward-sentence backward-sentence japanese-hiragana-region] 3 "\ hiragana sentence at or after point." nil]) (defalias 'katakana-paragraph #[nil " ` `\"*" [end forward-paragraph backward-paragraph japanese-katakana-region] 3 "\ katakana paragraph at or after point." nil]) (defalias 'katakana-sentence #[nil " ` `\"*" [end forward-sentence backward-sentence japanese-katakana-region] 3 "\ katakana sentence at or after point." nil]) (defalias 'hankaku-paragraph #[nil " ` `#*" [end forward-paragraph backward-paragraph japanese-hankaku-region ascii-only] 4 "\ hankaku paragraph at or after point." nil]) (defalias 'hankaku-sentence #[nil " ` `#*" [end forward-sentence backward-sentence japanese-hankaku-region ascii-only] 4 "\ hankaku sentence at or after point." nil]) (defalias 'hankaku-word #[(arg) "`v `#)" [arg start japanese-hankaku-region ascii-only] 4 nil "p"]) (defalias 'zenkaku-paragraph #[nil " ` `\"*" [end forward-paragraph backward-paragraph japanese-zenkaku-region] 3 "\ zenkaku paragraph at or after point." nil]) (defalias 'zenkaku-sentence #[nil " ` `\"*" [end forward-sentence backward-sentence japanese-zenkaku-region] 3 "\ zenkaku sentence at or after point." nil]) (defalias 'zenkaku-word #[(arg) "`v `\")" [arg start japanese-zenkaku-region] 3 nil "p"]) (defalias 'roma-kana-region #[(start end) " !$" [end start its:translate-region nil its:get-mode-map "roma-kana"] 6 nil "r"]) (defalias 'roma-kana-paragraph #[nil " ` `\"*" [end forward-paragraph backward-paragraph roma-kana-region] 3 "\ roma-kana paragraph at or after point." nil]) (defalias 'roma-kana-sentence #[nil " ` `\"*" [end forward-sentence backward-sentence roma-kana-region] 3 "\ roma-kana sentence at or after point." nil]) (defalias 'roma-kana-word #[nil "#`#`\"*" [start re-search-backward "\\b\\w" nil t re-search-forward "\\w\\b" roma-kana-region] 4 "\ roma-kana word at or after point." nil]) (defalias 'roma-kanji-region #[(start end) " \" `}eb\"db) `\"" [end start roma-kana-region replace-regexp "\\($(B!!(B\\| \\)" "" henkan-region-internal] 3 nil "r"]) (defalias 'roma-kanji-paragraph #[nil " ` `\"*" [end forward-paragraph backward-paragraph roma-kanji-region] 3 "\ roma-kanji paragraph at or after point." nil]) (defalias 'roma-kanji-sentence #[nil " ` `\"*" [end forward-sentence backward-sentence roma-kanji-region] 3 "\ roma-kanji sentence at or after point." nil]) (defalias 'roma-kanji-word #[nil "#`#`\"*" [start re-search-backward "\\b\\w" nil t re-search-forward "\\w\\b" roma-kanji-region] 4 "\ roma-kanji word at or after point." nil]) (defalias 'egg:member #[(elt list) "  @k At " [elt list] 3]) (byte-code "B!\"B!\"ć" [current-load-list its:*mode-alist* default-boundp set-default nil its:*internal-mode-alist*] 3) (defalias 'its:get-mode-map #[(name) "\n \"A\n\"A" [its:*internal-mode-alist* its:*mode-alist* name assoc] 3]) (defalias 'its:set-mode-map #[(name map &optional internalp) "  \" A\n@\nA) \nB C\" C\")" [internalp name map its:*mode-alist* its:*internal-mode-alist* place assoc append mapplace] 4]) (defalias 'its:get-mode-indicator #[(name) " !! )" [map name its:get-mode-map map-indicator] 3]) (defalias 'its:set-mode-indicator #[(name indicator) "\n! \"\n\")" [indicator map name its:get-mode-map map-set-indicator its-define-mode] 4]) (byte-code "B!\"ć" [current-load-list its:*processing-map* default-boundp set-default nil] 3) (defalias 'its-define-mode #[(name &optional indicator reset supers internalp) " ! \n\"$ # ! \" \" \"\n \n\"\"ȇ" [reset internalp supers indicator name its:*processing-map* its:get-mode-map make-map nil mapcar its:set-mode-map map-set-indicator map-set-state map-set-alist map-set-supers] 7 "\ its-mode NAME $(B$rDj5AA*Br$9$k!%B>$N(B its-mode $(B$,A*Br$5$l$k$^$G$O(B its-defrule $(B$J$I$O(B NAME $(B$KBP$7$F5,B'$rDI2C$9$k!%(BINDICATOR $(B$,(B non-nil $(B$N;~$K$O(B its-mode NAME $(B$rA*Br$9$k$H(B mode-line $(B$KI=<($5$l$k!%(BRESET $(B$,(B non-nil $(B$N;~$K$O(B its-mode $(B$NDj5A$,6u$K$J$k!%(BSUPERS $(B$O>e0L$N(B its-mode $(BL>$r%j%9%H$G;XDj$9$k!%(BINTERNALP $(B$O(B mode name $(B$rFbItL>$H$9$k!%(B its-defrule, its-defrule-conditional, defule-select-mode-temporally $(B$r(B $(B;2>H(B"]) (defalias 'its:make-standard-action #[(output next) " ; ˜;˜ D : BD D" [next output "" nil 0] 2 "\ OUTPUT $(B$H(B NEXT $(B$+$i$J$k(B standard-action $(B$r:n$k!%(B"]) (defalias 'its:standard-actionp #[(action) ";:@;@:@@!@?A@?A@;" [action characterp] 2 "\ ACITION $(B$,(B standard-action $(B$G$"$k$+$I$&$+$rH=Dj$9$k!%(B"]) (defvar its:make-terminal-state 'its:default-make-terminal-state "\ $(B=*C<$N>uBV$G$NI=<($r:n@.$9$k4X?t$r;XDj$9$k(B. $(B4X?t$O(B map input action state $(B$r0z?t$H$7$F8F$P$l!$>uBVI=<($NJ8;zNs$rJV$9!%(B") (defalias 'its:default-make-terminal-state #[(map input action state) " " [input state] 1]) (defalias 'its:make-terminal-state-hangul #[(map input action state) "!!" [action its:standard-actionp action-output] 2]) (defvar its:make-non-terminal-state 'its:default-make-standard-non-terminal-state "\ $(BHs=*C<$N>uBV$G$NI=<($r:n@.$9$k4X?t$r;XDj$9$k!%4X?t$O(B map input $(B$r(B $(B0z?t$H$7$F8F$P$l!$>uBVI=<($NJ8;zNs$rJV$9(B") (defalias 'its:default-make-standard-non-terminal-state #[(map input) " !GSH!P" [input map map-state-string char-to-string] 4 "\ ****"]) (defalias 'its-defrule #[(input output &optional next state map) " \n\" ; $" [its:*processing-map* state next output input map its-defrule* its:make-standard-action] 5 "\ INPUT $(B$,F~NO$5$l$k$H(B OUTPUT $(B$KJQ49$9$k!%(BNEXT $(B$,(B nil $(B$G$J$$$H$-$OJQ(B $(B49$7$?8e$K(B NEXT $(B$,F~NO$5$l$?$h$&$KJQ49$rB3$1$k!%(BINPUT$(B$,F~NO$5$l$?;~E@(B $(B$GJQ49$,3NDj$7$F$$$J$$;~$O(B STATE $(B$r%U%'%s%9>e$KI=<($9$k!%JQ49$,3NDj$7(B $(B$F$$$J$$;~$KI=<($9$kJ8;zNs$OJQ?t(B its:make-terminal-state $(B$*$h$S(B $(BJQ?t(B its:make-non-terminal-state $(B$K;X<($5$l$?4X?t$K$h$C$F@8@.$5$l$k!%JQ495,(B $(BB'$O(B MAP $(B$G;XDj$5$l$?JQ49I=$KEPO?$5$l$k!%(BMAP $(B$,(B nil $(B$N>l9g$O$b$C$H$b:G(B $(B6a$K(B its-define-mode $(B$5$l$?JQ49I=$KEPO?$5$l$k!%$J$*(B OUTPUT $(B$,(B nil $(B$N>l(B $(B9g$O(B INPUT $(B$KBP$9$kJQ495,B'$,:o=|$5$l$k!%(B"]) (defalias 'its-defrule-conditional '(macro . #[(input &rest conds) " BDE" [conds input its-defrule* quote cond] 5 "\ (its-defrule-conditional INPUT ((COND1 OUTPUT1) ... (CONDn OUTPUTn)))$(B$O(B INPUT $(B$,F~NO$5$l$?;~$K>r7o(B CONDi $(B$r=guBV(B STATE $(B$rI=<($7!$>r7o(B CONDi $(B$r(B $(B=gl9g(B, its-defrule $(B$N7Y9p$rM^@)$9$k(B") (defalias 'its-defrule** #[(i input action state map) " G U  \n $!\" !\n \n# !#\n? !? \n\" H\" H!\\O\"! H H!\\ \n %#) !? !? " [newmap state action i input map map-set-state coerce-internal-string map-action notify "(its-defrule \"%s\" \"%s\" ) $(B$r:FDj5A$7$^$7$?!%(B" "(its-defrule \"%s\" \"%s\" )$(B$r:o=|$7$^$7$?!%(B" map-terminalp map-set-action get-next-map-locally make-map 0 char-bytes set-next-map its-defrule** its:make-terminal-state its:*defrule-verbose* its:make-non-terminal-state] 9]) (defalias 'make-map #[(&optional state action alist supers) " \n F" [supers alist action state] 4]) (defalias 'map-topmap-p #[(map) "!?" [map map-state] 2]) (defalias 'map-supers #[(map) "8" [map 3] 2]) (defalias 'map-set-supers #[(map val) " " [val map 3] 2]) (defalias 'map-terminalp #[(map) "!?" [map map-alist] 2]) (defalias 'map-state #[(map) "@" [map] 1]) (defalias 'map-state-string #[(map) "!!" [map coerce-string map-state] 3]) (defalias 'map-set-state #[(map val) " " [val map] 2]) (defalias 'map-indicator #[(map) "!" [map map-action] 2]) (defalias 'map-set-indicator #[(map indicator) " \"" [indicator map map-set-action] 3]) (defalias 'map-action #[(map) "A@" [map] 1]) (defalias 'map-set-action #[(map val) " A" [val map] 2]) (defalias 'map-alist #[(map) "8" [map 2] 2]) (defalias 'map-set-alist #[(map alist) " AA" [alist map] 2]) (defalias 'get-action #[(map) "! ! 9Əȏ)" [map action map-action its:standard-actionp nil (funcall action) ((error)) (eval action) ((error))] 3]) (defalias 'action-output #[(action) ";@" [action] 1]) (defalias 'action-next #[(action) ";?A@" [action] 1]) (defalias 'get-next-map #[(map ch) "\n!A\n!\n! @\"ljp Al *" [ch result map supers map-alist map-topmap-p map-supers nil get-next-map] 4]) (defalias 'get-next-map-locally #[(map ch) " !A" [map ch map-alist] 3]) (defalias 'set-next-map #[(map ch val) " !\n \n !\"\"\n \nB !B\"\n)" [ch place val map map-alist map-set-alist delq] 7]) (defalias 'its:simple-actionp #[(action) ";" [action] 1]) (defalias 'collect-simple-action #[(map) "\n!\n!!\n!C\n!@A! \"Aq *" [alist result map map-terminalp its:simple-actionp map-action map-alist nil append collect-simple-action] 4]) (defalias 'its:simulate-input #[(i j input map) " X\n H\" H!\\j\n" [j input map i get-next-map char-bytes] 5]) (byte-code "\nB! \"\nB! \"\"\nB!\"\nB! \"\"\nB! \"\"\nB! \"\"\nB!\"̇" [its:*buff-e* its:*maxlevel* current-load-list its:*buff-s* default-boundp set-default make-marker set-marker-insertion-type t 10 its:*maps* make-vector nil its:*actions* its:*inputs* 0 its:*level*] 5) (defalias 'its:resize #[(size) " X  \" \" \"" [its:*inputs* its:*actions* its:*maps* its:*maxlevel* size make-vector nil 0] 3]) (defalias 'its:reset-maps #[(&optional init) " \n I" [its:*maps* init its:*level* 0] 3]) (defalias 'its:current-map #[nil " H" [its:*level* its:*maps*] 2]) (defalias 'its:previous-map #[nil " S]H" [its:*level* its:*maps* 0] 3]) (defalias 'its:level #[nil "" [its:*level*] 1]) (defalias 'its:enter-newlevel #[(map ch output) " T I\n I I" [its:*actions* ch its:*inputs* map its:*maps* its:*level* output] 3]) (byte-code "B!\"B!\"ć" [current-load-list its:*char-from-buff* default-boundp set-default nil its:*interactive* t] 3) (defalias 'its:reset-input #[nil "" [its:*char-from-buff* nil] 2]) (defalias 'its:flush-input-before-point #[(from) "\n X\nH!\nTp)" [its:*inputs* its:*level* from its:insert-char] 4]) (defalias 'its:peek-char #[nil "`\nU  !C )`f" [unread-command-events its:*interactive* its:*buff-e* ch egg-read-event character-to-event] 3]) (defalias 'its:read-char #[nil "` U `f!\n)" [its:*interactive* its:*buff-e* ch its:*char-from-buff* nil egg-read-event t delete-char 1] 2]) (defalias 'its:push-char #[(ch) " \n!)\n\n!C" [unread-command-events its:*char-from-buff* ch its:insert-char character-to-event] 2]) (defalias 'its:insert-char #[(ch) "c" [ch] 1]) (defalias 'its:ordinal-charp #[(ch) " ! X !\"a" [fence-mode-map ch characterp 127 lookup-key char-to-string fence-self-insert-command] 4]) (defalias 'its:delete-charp #[(ch) " ! X !\"a" [fence-mode-map ch characterp 127 lookup-key char-to-string fence-backward-delete-char] 4]) (defvar egg:fence-buffer nil "\ Buffer fence is active in") (defalias 'fence-self-insert-command #[nil "p a\n!  \" c c`S`#)" [its:*current-map* egg:*input-mode* last-command-event egg:fence-buffer ch event-to-character get-next-map its:translate-region t] 4 nil nil]) (defalias 'its:all-completions #[(string alist &optional pred) "  @@ A\n;G\nGX\nGO a ! ! B*D *" [string pred eltstring elt allmatches tail nil 0 commandp alist] 5 "\ A variation of all-completions. Arguments are STRING, ALIST and optional PRED. ALIST must be no obarray."]) (defalias 'its:temp-echo-area-contents #[(message) " d b c b\"`d|\n!C*" [unread-command-events message quit-flag point-max inhibit-quit t sit-for 2 nil character-to-event ?\^G] 3]) (defalias 'car-string-lessp #[(item1 item2) " @@" [item2 item1] 2]) (defalias 'its:minibuffer-completion-help #[nil "! # !ː\n\"!)Ç" [minibuffer-completion-predicate minibuffer-completion-table completions nil message "Making completion list..." its:all-completions buffer-string beep its:temp-echo-area-contents " [No completions]" "*Completions*" display-completion-list sort car-string-lessp] 6 "\ Display a list of possible completions of the current minibuffer contents." nil]) (byte-code " B ! # # B!\n#\n#KMKM" [minibuffer-local-must-match-map minibuffer-local-completion-map its:minibuffer-local-must-match-map its:minibuffer-local-completion-map current-load-list copy-keymap define-key "?" its:minibuffer-completion-help " " si:all-completions all-completions si:minibuffer-completion-help minibuffer-completion-help] 4) (defalias 'its:completing-read #[(prompt table &optional predicate require-match initial-input) "  \n %+" [prompt minibuffer-local-completion-map minibuffer-local-must-match-map completion-auto-help its:minibuffer-local-must-match-map its:minibuffer-local-completion-map nil completing-read t table predicate initial-input] 6 "\ See completing-read"]) (byte-code "B!\"" [current-load-list its:*completing-input-menu* default-boundp set-default (menu "Which?" nil)] 3) (defalias 'its:completing-input #[(map) " ! !GU !@A!\nAA !\n#: !))" [values action its:*completing-input-menu* map get-action map-alist 1 its:completing-input menu:select-from-menu 0 t] 5]) (byte-code "B!\"ć" [current-load-list its:*make-menu-from-map-result* default-boundp set-default nil] 3) (defalias 'its:make-menu-from-map #[(map) "\" !E)" [map its:*make-menu-from-map-result* nil its:make-menu-from-map* "" menu "Which?" reverse] 4]) (defalias 'its:make-menu-from-map* #[(map string) " ! \n!#B ! @A @@!P\" Am*" [its:*make-menu-from-map-result* string action map alist get-action format "%s[%s]" action-output map-alist its:make-menu-from-map* char-to-string nil] 6]) (byte-code "B!\"ć" [current-load-list its:*make-alist-from-map-result* default-boundp set-default nil] 3) (defalias 'its:make-alist-from-map #[(map &optional string) " \"\n!)" [string map its:*make-alist-from-map-result* nil its:make-alist-from-map* "" reverse] 3]) (defalias 'its:make-alist-from-map* #[(map string) " ! \n!: @! @ A8\" ; \")DB ! @A @@!P\" Am*" [its:*make-alist-from-map-result* string action map alist action-output get-action characterp format "%s..." "%s" map-alist its:make-alist-from-map* char-to-string nil] 6]) (byte-code "B!\"" [current-load-list its:*select-alternative-output-menu* default-boundp set-default (menu "Which?" nil)] 3) (defalias 'its:select-alternative-output #[(action-output) "` A a @ 8ɱ a @T G\" a @U GS @S a AA @#: A@) a \n`| @ 8! @ 8c+" [values its:*select-alternative-output-menu* point output ch action-output 0 ?\^L "<" ">" egg-read-event ?\^N mod ?\^P ?\r menu:select-from-menu t beep its:*insert-output-string*] 5]) (byte-code "B!\"B!\"ć" [current-load-list its:*insert-output-string* default-boundp set-default nil its:*display-status-string*] 3) (defalias 'its:translate-region #[(start end its:*interactive* &optional topmap) " 6Ɠ17Ɠ b&,Ɖ8.9*'&&!.  \n\"**!'(4\n!\nU `|Љ)X/ Hc To)&! `{%5 `|5c) &) **!K'K(\n! `|)Uȉ.7)U/H!ȉ.7)T!)S) (-- !!5 !c5)T2/2\nI W+ H T2/&$  S_) W+ H  Sk) `|+H!+H!( : @ A8 ;(00 ! c : ! ) `Ɠ\n!T!+H!-+H!c)+H9\n!+H ,!,& `Ɠ\n!+H!,!,& `Ɠ)U\n!4\n!.)W `|/H! `Ɠ\n!!+\nȉ.7.5 `Ɠ&5*!]*\n'# `|Ɖ)S3 W+ H T)/&$33!  SVC'!'!( : @ A8 ;(00 ! c : ! )'!`1U( ! `Ɠ &݊'!c) `Ɠ &'9' ,!,& `Ɠ'!,!,& `Ɠ(-- !! !c+5' `|(--*!!*!c*\n'#5*\n'# `|(-- !!5 !c5 Ɖ1Ɖ(\n\n!C:." [output map ch action-output its:*buff-s* i nil its:reset-input t 0 its:reset-maps its:read-char get-next-map get-action characterp ?\^@ 1 its:completing-read "ITS:>" its:make-alist-from-map map-terminalp its:delete-charp its:insert-char its:flush-input-before-point its:current-map map-state its:simulate-input its:standard-actionp its:select-alternative-output beep its:push-char action-next eval its:ordinal-charp 2 its:enter-newlevel its:peek-char character-to-event topmap action its:*interactive* its:*level* newmap its:*actions* its:*current-map* its:*display-status-string* its-quit-flag its:*inputs* its:*insert-output-string* its:*buff-e* newlevel m its:*char-from-buff* inputs start end echo-keystrokes inhibit-quit unread-command-events] 9]) (defalias 'dump-its-mode-map #[(name filename) "!" [message "This function is obsolete in the current version of Mule."] 2 "\ Obsolete." nil]) (defvar egg:*mode-on* nil "\ T if egg mode is on.") (byte-code "!\"" [make-variable-buffer-local egg:*mode-on* set-default nil] 3) (defvar egg:*input-mode* t "\ T if egg map is active.") (byte-code "!\"" [make-variable-buffer-local egg:*input-mode* set-default t] 3) (defvar egg:*in-fence-mode* nil "\ T if in fence mode.") (byte-code "!\" B!\"! B!\"!\" B!" [mode-line-egg-mode current-load-list make-variable-buffer-local egg:*in-fence-mode* set-default nil its:*current-map* default-boundp its:*previous-map* "--"] 3) (defvar mode-line-egg-mode-in-minibuffer "--" "\ global variable") (defalias 'egg:find-symbol-in-tree #[(item tree) " : @\" A\" k" [item tree egg:find-symbol-in-tree] 3]) (byte-code " B B!\"Ƈ" [display-minibuffer-mode-in-minibuffer current-load-list t minibuffer-window-selected default-boundp set-default nil] 3) (defalias 'egg:select-window-hook #[(old new) " a a !q!!!!) aˉɉ" [egg:*in-fence-mode* egg:*input-mode* egg:*mode-on* old minibuffer-window-selected new minibuffer-window window-buffer set-minibuffer-preprompt nil default-value t] 2]) (defalias 'egg:minibuffer-entry-hook #[nil "" [minibuffer-window-selected t] 2]) (defalias 'egg:minibuffer-exit-hook #[nil "! !q!!!)" [egg:*in-fence-mode* egg:*input-mode* egg:*mode-on* minibuffer-window-selected set-minibuffer-preprompt nil window-buffer minibuffer-window default-value] 2 "\ Call upon exit from minibuffer"]) (byte-code " B!\" BŇ" [egg:minibuffer-preprompt current-load-list its:*reset-modeline-format* default-boundp set-default nil ("[" nil "]")] 3) (defalias 'mode-line-egg-mode-update #[(str) "p !a @ ɪI A 8 ̪I @ A@ AA@Q!  !" [mode-line-egg-mode-in-minibuffer display-minibuffer-mode-in-minibuffer display-minibuffer-mode its:*previous-map* str egg:minibuffer-preprompt window-buffer minibuffer-window 0 ?< ?\[ 2 ?> ?\] set-minibuffer-preprompt t nil redraw-modeline mode-line-egg-mode] 4]) (byte-code "B!\"B!\"" [current-load-list alphabet-mode-indicator default-boundp set-default "aA" transparent-mode-indicator "--"] 3) (defalias 'egg:mode-line-display #[nil " \n !!" [transparent-mode-indicator its:*current-map* egg:*mode-on* alphabet-mode-indicator egg:*in-fence-mode* egg:*input-mode* mode-line-egg-mode-update map-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:*current-map* name its:get-mode-map egg:mode-line-display beep] 2 nil (list (completing-read "ITS mode: " its:*mode-alist*))]) (byte-code "B!\"" [current-load-list its:*select-mode-menu* default-boundp set-default (menu "Mode:" nil)] 3) (defalias 'its:select-mode-from-menu #[nil "\nAA \n! " [its:*current-map* its:*mode-alist* its:*select-mode-menu* menu:select-from-menu egg:mode-line-display] 2 nil nil]) (defvar its:*standard-modes* nil "\ List of standard mode-map of EGG.") (defalias 'its:find #[(map list) "\n\n@a\nA To\n )" [map n list 0] 2]) (defalias 'its:next-mode #[nil " \n\"T\nG\n8 )" [pos its:*current-map* its:*standard-modes* its:find egg:mode-line-display] 4 nil nil]) (defalias 'its:previous-mode #[nil " \n\"U\nGS\n8 )" [pos its:*current-map* its:*standard-modes* its:find 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) "!\n   )" [name its:*current-map* its:*previous-map* map its:get-mode-map egg:mode-line-display beep] 3 nil (list (completing-read "ITS mode: " its:*mode-alist*))]) (defalias 'its:select-previous-mode #[nil "  " [its:*current-map* its:*previous-map* beep nil egg:mode-line-display] 1 nil nil]) (defalias 'toggle-egg-mode #[nil "  " [egg:*mode-on* fence-toggle-egg-mode t egg:mode-line-display] 1 nil nil]) (defalias 'fence-toggle-egg-mode #[nil " ? " [its:*current-map* egg:*input-mode* egg:mode-line-display beep] 1 nil nil]) (byte-code "B! !\" ##!!! # #\n#\n#\n#\n#\n#\n#\n#\n#\n#" [current-load-list global-map mule-keymap si:*global-map* default-boundp set-default copy-keymap substitute-key-definition self-insert-command egg-self-insert-command put pending-delete t featurep egg-leim egg-cwnn-leim egg-kwnn-leim define-key "" toggle-egg-mode " " henkan-region "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] 4) (defalias 'egg:do-auto-fill #[nil " ?i Vi iWi\nWi o)" [buffer-read-only fill-column ocolumn auto-fill-function] 2]) (defvar egg:*fence-open* "|" "\ *$(B%U%'%s%9$N;OE@$r<($9J8;zNs(B") (defvar egg:*fence-close* "|" "\ *$(B%U%'%s%9$N=*E@$r<($9J8;zNs(B") (defvar egg:*fence-face* nil "\ *$(B%U%'%s%9I=<($KMQ$$$k(B face $(B$^$?$O(B nil") (byte-code "B#!\"!B!\"ȇ" [current-load-list make-variable-buffer-local egg:*fence-extent* put variable-documentation "$(B%U%'%s%9I=<(MQ(B extent" default-boundp set-default nil egg:*face-alist* (("nil") ("highlight" . highlight) ("modeline" . modeline) ("inverse" . modeline) ("underline" . underline) ("bold" . bold) ("region" . region))] 5) (defalias 'set-egg-fence-mode-format #[(open close &optional face) " ; ; s    ! \n#ʇ $" [egg:*fence-open* egg:*fence-extent* egg:*fence-face* face close open face-list "" extentp set-extent-property t error "Wrong type of argument: %s %s %s" egg:*fence-close*] 5 "\ fence mode $(B$NI=<(J}K!$r@_Dj$9$k!#(BOPEN $(B$O%U%'%s%9$N;OE@$r<($9J8;zNs$^$?$O(B nil$(B!#(B CLOSE$(B$O%U%'%s%9$N=*E@$r<($9J8;zNs$^$?$O(B nil$(B!#(B $(BBh(B3$(B0z?t(B FACE $(B$,;XDj$5$l$F(B nil $(B$G$J$1$l$P!"%U%'%s%96h4V$NI=<($K$=$l$r;H$&!#(B" (list (read-string "$(B%U%'%s%93+;OJ8;zNs(B: ") (read-string "$(B%U%'%s%9=*N;J8;zNs(B: ") (cdr (assoc (completing-read "$(B%U%'%s%9I=<(B0@-(B: " egg:*face-alist*) egg:*face-alist*)))]) (byte-code "B!\"!\"B!\"!\"" [current-load-list egg:*region-start* default-boundp set-default nil make-variable-buffer-local egg:*region-end*] 3) (defvar egg:*self-insert-non-undo-count* 0 "\ counter to hold repetition of egg-self-insert-command.") (defalias 'egg-self-insert-command #[(arg) "  !U a Y T !!\n X\n` Z`\" !U " [egg:*mode-on* buffer-read-only self-insert-after-hook last-command-event arg egg:*self-insert-non-undo-count* event-to-character ?\ egg:enter-fence-mode-and-self-insert egg-self-insert-command 20 1 cancel-undo-boundary self-insert-command run-hooks egg-insert-after-hook egg:do-auto-fill egg:*input-mode* egg:*in-fence-mode* last-command] 3 nil "p"]) (byte-code "B!\"B!\"B!\"ć" [current-load-list egg:*fence-open-backup* default-boundp set-default nil egg:*fence-close-backup* egg:*fence-face-backup*] 3) (defconst egg:*fence-open-in-cont* "+" "\ *$(BA03NDj>uBV$G$N(B *fence-open*") (defconst egg:*fence-close-in-cont* t "\ *$(BA03NDj>uBV$G$N(B *fence-close*") (defconst egg:*fence-face-in-cont* t "\ *$(BA03NDj>uBV$G$N(B *fence-face*") (defalias 'set-egg-fence-mode-format-in-cont #[(open close face) " ; a ; a a s    \n!\n#Ƈ $" [egg:*fence-close-in-cont* egg:*fence-open-in-cont* egg:*fence-extent* face close open t face-list "" extentp set-extent-property error "Wrong type of argument: %s %s %s" egg:*fence-face-in-cont* egg:*fence-face*] 5 "\ $(BA03NDj>uBV$G$N(B fence mode $(B$NI=<(J}K!$r@_Dj$9$k!#(BOPEN $(B$O%U%'%s%9$N;OE@$r<($9J8(B $(B;zNs!"(Bt $(B$^$?$O(B nil$(B!#(B CLOSE$(B$O%U%'%s%9$N=*E@$r<($9J8;zNs!"(Bt $(B$^$?$O(B nil$(B!#(B FACE $(B$O(B nil $(B$G$J$1$l$P!"%U%'%s%96h4V$NI=<($K$=$l$r;H$&!#(B $(B$=$l$>$l$NCM$,(B t $(B$N>l9g!"DL>o$N(B egg:*fence-open* $(BEy$NCM$r0z$-7Q$0!#(B" (list (read-string "$(B%U%'%s%93+;OJ8;zNs(B: ") (read-string "$(B%U%'%s%9=*N;J8;zNs(B: ") (cdr (assoc (completing-read "$(B%U%'%s%9I=<(B0@-(B: " egg:*face -alist*) egg:*face-alist*)))]) (defvar *in-cont-flag* nil "\ $(BD>A0$KJQ49$7$?D>8e$NF~NO$+$I$&$+$r<($9!#(B") (byte-code "B!\"ć" [current-load-list *in-cont-backup-flag* default-boundp set-default nil] 3) (defalias 'egg:check-fence-in-cont #[nil "  \n  \na\n a a" [egg:*fence-face-in-cont* egg:*fence-close-in-cont* egg:*fence-open-in-cont* egg:*fence-face* egg:*fence-close* egg:*fence-open* t *in-cont-flag* *in-cont-backup-flag* egg:*fence-open-backup* egg:*fence-close-backup* egg:*fence-face-backup*] 2]) (defalias 'egg:restore-fence-in-cont #[nil " \nƉ" [egg:*fence-face-backup* egg:*fence-close* egg:*fence-close-backup* egg:*fence-open* egg:*fence-open-backup* *in-cont-backup-flag* nil egg:*fence-face*] 2 "\ Restore egg:*fence-open* and egg:*fence-close*"]) (defalias 'egg:enter-fence-mode-and-self-insert #[nil " s C" [unread-command-events last-command-event *in-cont-flag* last-command (henkan-kakutei henkan-kakutei-and-self-insert) enter-fence-mode] 2]) (defalias 'egg:fence-face-on #[nil "\n ! # \" # # # \n\"" [egg:*region-end* egg:*region-start* egg:*fence-face* egg:*fence-extent* extentp set-extent-endpoints make-extent set-extent-property start-open nil end-open detachable set-extent-face] 4]) (defalias 'egg:fence-face-off #[nil " ! !" [egg:*fence-face* egg:*fence-extent* extentp detach-extent] 2]) (defalias 'enter-fence-mode #[nil " p c !  `̓c ! \" ̓ b" [egg:*fence-close* egg:*fence-open* egg:fence-buffer egg:*in-fence-mode* egg:*region-end* egg:*region-start* suspend-undo t egg:mode-line-display egg:check-fence-in-cont markerp make-marker nil set-marker-insertion-type egg:fence-face-on] 3]) (defalias 'henkan-fence-region-or-single-space #[nil " c" [egg:*input-mode* henkan-fence-region ?\ ] 1 nil nil]) (byte-code "B!\"ć" [current-load-list egg:*henkan-fence-mode* default-boundp set-default nil] 3) (defalias 'henkan-fence-region #[nil " \"" [egg:*region-end* egg:*region-start* egg:*henkan-fence-mode* t egg:fence-face-off henkan-region-internal] 3 nil nil]) (defalias 'fence-katakana #[nil " \"" [egg:*region-end* egg:*region-start* japanese-katakana-region] 3 nil nil]) (defalias 'fence-hiragana #[nil " \"" [egg:*region-end* egg:*region-start* japanese-hiragana-region] 3 nil nil]) (defalias 'fence-hankaku #[nil " #" [egg:*region-end* egg:*region-start* japanese-hankaku-region ascii-only] 4 nil nil]) (defalias 'fence-zenkaku #[nil " \"" [egg:*region-end* egg:*region-start* japanese-zenkaku-region] 3 nil nil]) (defalias 'fence-backward-char #[nil "`Wu " [egg:*region-start* -1 beep] 2 nil nil]) (defalias 'fence-forward-char #[nil "`Wu " [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) "\n`W` W! " [arg egg:*region-end* egg:*region-start* transpose-chars beep] 2 nil "P"]) (defalias 'egg:exit-if-empty-region #[nil " U " [egg:*region-end* egg:*region-start* fence-exit-internal] 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 " " [fence-exit-internal] 1 nil nil]) (defalias 'fence-exit-internal #[nil "  { GZ | | \nG\\| b \nc)   " [egg:*fence-open* egg:*in-fence-mode* kakutei-string its:*previous-map* egg:*region-end* egg:*region-start* egg:fence-face-off nil resume-undo-list egg:quit-egg-mode egg:*fence-close* its:*current-map*] 3]) (defvar egg-insert-after-hook nil "\ Hook to run when egg inserts a character in the buffer") (make-variable-buffer-local 'egg-insert-after-hook) (defvar egg-exit-hook nil "\ Hook to run when egg exits. Should take two arguments START and END correspoding to character position.") (defalias 'egg:quit-egg-mode #[nil "  {i !\\\") \n\n \" \" U ȉ ȉ !" [overwrite-mode egg-exit-hook self-insert-after-hook str egg:*region-start* egg:*region-end* egg:mode-line-display delete-text-in-column nil string-width egg:restore-fence-in-cont egg:do-auto-fill run-hooks egg-insert-after-hook egg:*henkan-fence-mode*] 5]) (defalias 'fence-cancel-input #[nil " " [fence-kill-operation] 1 "\ Cancel all fence operations in the current buffer" nil]) (defalias 'fence-kill-operation #[nil " | " [egg:*region-end* egg:*region-start* fence-exit-internal] 2 "\ Internal method to remove fences"]) (defalias 'egg-lang-switch-callback #[nil " N\n ) " [current-language-environment egg:*in-fence-mode* func its:reset-input fence-kill-operation set-egg-environ egg:mode-line-display] 3 "\ Do whatever processing is necessary when the language-environment changes."]) (defalias 'fence-mode-help-command #[nil " ! !)" [w selected-window describe-function egg-mode ding select-window] 2 "\ Display fence mode help" "_"]) (byte-code " B! \" \n$ \" # # # # # # # # # # # # # # # # # # # # # # # # # # @# AB# CD# EF# GH# IH# J# KH# L# M# N# O# P# Q# R#S S B B B!T !\"\n$" [egg:*minibuffer-local-hiragana-map* minibuffer-local-map global-map minor-mode-map-alist current-load-list fence-mode-map default-boundp set-default make-sparse-keymap substitute-key-definition egg-self-insert-command fence-self-insert-command set-keymap-default-binding undefined define-key "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 [(control \ )] "" 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 " " fence-exit-mode " " "" its:select-previous-mode "" fence-transpose-chars "" "" eval-expression "" fence-toggle-egg-mode "" jis-code-input "" fence-backward-delete-char [backspace] [clear] [delete] [help] [kp-enter] [kp-left] [kp-right] [left] [return] [right] egg:*in-fence-mode* copy-keymap] 5) (defalias 'read-hiragana-string #[(prompt &optional initial-input) " ! qȉ!!!) #)" [initial-input prompt its:*current-map* egg:*mode-on* egg:*input-mode* egg:fence-buffer window-buffer minibuffer-window t its:get-mode-map "roma-kana" mode-line-egg-mode-update its:get-mode-indicator read-from-minibuffer egg:*minibuffer-local-hiragana-map*] 5]) (defalias 'read-kanji-string #[(prompt &optional initial-input) " !qȉ!!!* \"" [initial-input prompt its:*current-map* egg:*mode-on* egg:*input-mode* minibuff window-buffer minibuffer-window t its:get-mode-map "roma-kana" mode-line-egg-mode-update its:get-mode-indicator read-from-minibuffer] 4]) (byte-code " B B!\"Ƈ" [isearch:read-kanji-string current-load-list read-kanji-string special-symbol-input-point default-boundp set-default nil] 3) (defalias 'special-symbol-input #[nil "! #<\n@\nA ; c : !*" [*symbol-input-menu* special-symbol-input-point item code require egg-jsymbol menu:select-from-menu t eval] 5 nil nil]) (defalias 'egg-mode #[nil " # \"EEEEEEEEEFE B\" \"!\"\"\"\n! A\"?? " [current-language-environment its:*reset-modeline-format* mode-line-egg-mode global-map modeline-format define-key "" special-symbol-input egg:find-symbol-in-tree set-default display-minibuffer-mode-in-minibuffer its:*previous-map* "<" "[" ">" "]" minibuffer-window-selected display-minibuffer-mode "m" " " mode-line-egg-mode-in-minibuffer mapc #[(buf) "q \"?EEEEEEEEEFE B)" [buf modeline-format egg:find-symbol-in-tree mode-line-egg-mode display-minibuffer-mode-in-minibuffer its:*previous-map* "<" "[" ">" "]" minibuffer-window-selected display-minibuffer-mode "m" " " mode-line-egg-mode-in-minibuffer] 8] buffer-list boundp select-window-hook add-hook egg:select-window-hook minibuffer-exit-hook egg:minibuffer-exit-hook minibuffer-entry-hook egg:minibuffer-entry-hook mode-line-egg-mode-update egg-lang-switch-callback] 10 "\ Install and start the egg input method. The keys that are defined for the fence mode (which is the translation part of egg) are:\\{fence-mode-map}" nil]) (provide 'egg)