;ELC ;;; compiled by handa@tsingyi.etl.go.jp on Wed Aug 19 12:39:39 1998 ;;; from file /net/mulelab/export/dist/mule-2.3-19.34/lisp/isearch-ext.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 "`isearch-ext.el' was compiled for Emacs 19.29 or later")) (byte-code "! B" [boundp search-string-char-prompt "*Enter string... " current-load-list] 2) #@30 Prompt for isearch-fep mode. (defvar isearch-fep-prompt "" (#$ . 601)) #@36 If t, isearch-fep-mode is invoked. (defvar isearch-fep-mode nil (#$ . 678)) (byte-code "\nB" [((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)) isearch-fep-table current-load-list] 2) (defalias 'isearch-fep-mode #[nil "‰ A@  #=7\f8  \" !\"=?]=s\f8! \"==!=  #!  #* ," [this-command t nil str table isearch-fep-mode command isearch-fep-table isearch-fep-prompt message "%s%s" isearch-message isearch-fep-string 2 isearch-process-search-string read-key-sequence keys key-binding current-command isearch-printing-char isearch-other-control-char isearch-other-meta-char call-interactively isearch-exit isearch-message-prefix] 5]) #@53 Read string from minibuffer for incremental search. (defalias 'isearch-fep-string #[nil " " [isearch-fep-mode] 1 (#$ . 1679) nil]) (defalias 'isearch-fep-prompt-string #[nil "" [search-string-char-prompt] 1]) (defalias 'exit-minibuffer-and-isearch-backward #[nil " " [(18 18) unread-command-events exit-minibuffer] 1 nil nil]) (defalias 'isearch-fep-read-string #[nil " B # # #ʏ)" [keymap minibuffer-local-map define-key " " exit-minibuffer "" "" exit-minibuffer-and-isearch-backward condition (byte-code " P!)" [nil overriding-terminal-local-map read-from-minibuffer isearch-fep-prompt 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 (#$ . 2356) nil]) (defalias 'isearch-fep-prompt-egg #[nil "! !\"!!̇" [featurep egg format "[%s]" map-indicator its:*current-map* nil isearch-fep-mode message "No EGG!! " sit-for 1 ""] 4]) (defalias 'isearch-exit-minibuffer-egg #[(from to) " " [exit-minibuffer] 1]) (byte-code "! B! B‡" [boundp isearch-fep-egg-its-map nil current-load-list isearch-fep-egg-server-type] 2) (defalias 'isearch-minibuffer-setup-egg #[nil "\nĉ" [isearch-fep-egg-its-map its:*current-map* isearch-fep-egg-server-type wnn-server-type t egg:*input-mode* egg:*mode-on*] 2]) (defalias 'isearch-minibuffer-exit-egg #[nil "" [nil egg:henkan-mode-in-use disable-undo] 2]) (defalias 'isearch-fep-read-egg #[(first-str) "!6 U6  \n \f !ю\"\" !.ه" [featurep egg minibuffer-depth 0 t its:*current-map* wnn-server-type nil isearch-exit-minibuffer-egg self-insert-after-hook overriding-terminal-local-map isearch-fep-egg-server-type isearch-fep-egg-its-map display-minibuffer-mode-in-minibuffer listify-key-sequence first-str unread-command-events ((byte-code "\"\"" [remove-hook minibuffer-setup-hook isearch-minibuffer-setup-egg minibuffer-exit-hook isearch-minibuffer-exit-egg] 3)) add-hook minibuffer-setup-hook isearch-minibuffer-setup-egg minibuffer-exit-hook isearch-minibuffer-exit-egg read-from-minibuffer isearch-message ""] 5]) #@52 Read string for incremental search by using canna. (defalias 'isearch-fep-canna #[nil " " [isearch-fep-mode] 1 (#$ . 3874) nil]) (defalias 'isearch-fep-prompt-canna #[nil "!\n \"!!̇" [featurep canna canna:*initialized* format "%s" canna:*kanji-mode-string* nil isearch-fep-mode message "No Canna!! " sit-for 1 ""] 3]) (defalias 'isearch-exit-minibuffer-canna #[(from to) " " [exit-minibuffer] 1]) (defalias 'isearch-minibuffer-setup-canna #[nil "É" [t canna:*japanese-mode* canna:*japanese-mode-in-minibuffer* nil canna:*fence-mode*] 2]) (defalias 'isearch-minibuffer-exit-canna #[nil "" [nil disable-undo] 2]) (defalias 'isearch-fep-read-canna #[(first-str) "!. U.  !\f͎\"\" !,Շ" [featurep canna minibuffer-depth 0 t nil isearch-exit-minibuffer-canna self-insert-after-hook overriding-terminal-local-map display-minibuffer-mode-in-minibuffer listify-key-sequence first-str unread-command-events ((byte-code "\"\"" [remove-hook minibuffer-setup-hook isearch-minibuffer-setup-canna minibuffer-exit-hook isearch-minibuffer-exit-canna] 3)) add-hook minibuffer-setup-hook isearch-minibuffer-setup-canna minibuffer-exit-hook isearch-minibuffer-exit-canna read-from-minibuffer isearch-message ""] 3]) #@52 Read string for incremental search by using quail. (defalias 'isearch-fep-quail #[nil "! " [require quail isearch-fep-mode] 2 (#$ . 5151) nil]) #@9 [QUAIL] (defalias 'isearch-fep-prompt-quail #[nil "" [nil] 1 (#$ . 5305)]) (defalias 'isearch-exit-minibuffer-quail #[nil " ? " [quail-current-key quail-current-str exit-minibuffer] 1]) (defalias 'isearch-fep-read-quail #[(first-str) "!BȎ\n P!+" [isearch-exit-minibuffer-quail nil overriding-terminal-local-map quail-self-insert-after-hook 29 listify-key-sequence first-str unread-command-events ((byte-code "" [nil disable-undo] 1)) read-from-minibuffer isearch-fep-prompt isearch-message] 3]) (provide (quote isearch-ext))