;ELC ;;; compiled by nk@localhost.localdomain on Fri Dec 1 22:48:56 2006 ;;; from file /home/nk/pkg-build/test/mule-packages/mule-base/isearch-mule.el ;;; emacs version 21.4 (patch 19) "Constant Variable" 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 "`isearch-mule.el' was compiled for Emacs 20")) (or (boundp 'current-load-list) (setq current-load-list nil)) (byte-code "B!\"" [current-load-list search-string-char-prompt default-boundp set-default "*Enter string... "] 3) #@30 Prompt for isearch-fep mode. (defvar isearch-fep-prompt "" (#$ . 737)) #@36 If t, isearch-fep-mode is invoked. (defvar isearch-fep-mode nil (#$ . 814)) (byte-code " B\n#\n#\n#\n##########" [isearch-fep-table current-load-list isearch-mode-map ((isearch-fep-string isearch-fep-prompt-string isearch-fep-read-string) (isearch-fep-egg isearch-fep-prompt-egg isearch-fep-read-egg) (isearch-fep-canna isearch-fep-prompt-canna isearch-fep-read-canna) (isearch-fep-quail isearch-fep-prompt-quail isearch-fep-read-quail)) define-key " " isearch-fep-string "" isearch-fep-egg "" "" isearch-fep-canna put isearch-command t isearch-fep-prompt-string isearch-fep-prompt-egg isearch-fep-prompt-canna isearch-comnand isearch-fep-read-string isearch-fep-read-egg isearch-fep-read-canna] 4) (defalias 'isearch-fep-mode #[nil "lj \nA@  #\na 8  \"X!\"\n a?   a 8! \" a a ! a \n# ! \n#* ," [isearch-fep-prompt table command str isearch-fep-mode current-command t nil message "%s%s" isearch-message isearch-fep-string 2 isearch-process-search-string read-key-sequence key-binding isearch-printing-char isearch-other-control-char isearch-other-meta-char call-interactively isearch-exit isearch-message-prefix ding keys isearch-fep-table this-command] 5]) #@53 Read string from minibuffer for incremental search. (defalias 'isearch-fep-string #[nil " " [isearch-fep-mode] 1 (#$ . 2152) nil]) (defalias 'isearch-fep-prompt-string #[nil "" [search-string-char-prompt] 1]) (defalias 'exit-minibuffer-and-isearch-backward #[nil "!!D " [unread-command-events character-to-event ?\r exit-minibuffer] 4 nil nil]) (defalias 'isearch-fep-read-string #[nil " !q B # # #Ώ+" [overriding-local-map minibuffer-local-map window-buffer minibuffer-window nil keymap define-key " " exit-minibuffer "" "" exit-minibuffer-and-isearch-backward condition (byte-code " P!" [isearch-fep-prompt read-from-minibuffer isearch-message] 3) ((quit (isearch-abort)))] 4]) #@50 Read string for incremental search by using egg. (defalias 'isearch-fep-egg #[nil " " [isearch-fep-mode] 1 (#$ . 2881) nil]) (defalias 'isearch-fep-prompt-egg #[nil "! !\"!!̇" [isearch-fep-mode its:*current-map* featurep egg format "[%s]->" map-indicator nil message "No EGG!! " sit-for 1 ""] 4]) (defalias 'isearch-exit-minibuffer-egg #[(from to) " " [exit-minibuffer] 1]) (byte-code "B!\"B!\"ć" [current-load-list isearch-fep-egg-its-map default-boundp set-default nil isearch-fep-egg-server-type] 3) (defalias 'isearch-minibuffer-setup-egg #[nil "  " [wnn-server-type isearch-fep-egg-server-type its:*current-map* isearch-fep-egg-its-map] 2]) (defalias 'isearch-fep-read-egg #[(first-str) "! U  !q͉!Ў !. Ӈ" [self-insert-after-hook isearch-fep-egg-its-map isearch-fep-egg-server-type minibuffer-setup-hook wnn-server-type its:*current-map* featurep egg minibuffer-depth 0 isearch-minibuffer-setup-egg window-buffer minibuffer-window t isearch-exit-minibuffer-egg mil-listify-key-sequence ((byte-code "" [egg:henkan-mode-in-use nil] 2)) read-from-minibuffer isearch-message "" egg:*mode-on* egg:*input-mode* display-minibuffer-mode-in-minibuffer first-str unread-command-events] 4]) #@52 Read string for incremental search by using canna. (defalias 'isearch-fep-canna #[nil " " [isearch-fep-mode] 1 (#$ . 4160) nil]) (defalias 'isearch-fep-prompt-canna #[nil "!\n \"!!̇" [isearch-fep-mode canna:*kanji-mode-string* canna:*initialized* featurep canna format "%s" nil message "No Canna!! " sit-for 1 ""] 3]) (defalias 'isearch-exit-minibuffer-canna #[(from to) " " [exit-minibuffer] 1]) (defalias 'isearch-fep-read-canna #[(first-str) "! U !q̉!Ў !.Ӈ" [first-str display-minibuffer-mode-in-minibuffer canna:*japanese-mode* canna:*japanese-mode-in-minibuffer* canna:*fence-mode* self-insert-after-hook featurep canna minibuffer-depth 0 window-buffer minibuffer-window t nil isearch-exit-minibuffer-canna mil-listify-key-sequence ((byte-code "p!" [buffer-enable-undo] 2)) read-from-minibuffer isearch-message "" unread-command-events] 5]) #@52 Read string for incremental search by using quail. (defalias 'isearch-fep-quail #[nil "! " [require quail isearch-fep-mode] 2 (#$ . 5067) nil]) #@9 [QUAIL] (defalias 'isearch-fep-prompt-quail #[nil "" ["[QUAIL]"] 1 (#$ . 5221)]) (defalias 'isearch-exit-minibuffer-quail #[nil " ? " [quail-current-str quail-current-key exit-minibuffer] 1]) (defalias 'isearch-fep-read-quail #[(first-str) " ! !BȎ P!*" [isearch-fep-prompt first-str quail-self-insert-after-hook unread-command-events isearch-exit-minibuffer-quail character-to-event ?\\ mil-listify-key-sequence ((byte-code "p!" [buffer-enable-undo] 2)) read-from-minibuffer isearch-message] 4]) (provide 'isearch-ext)