;ELC   
;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:46:41 2003
;;; from file /home/pot/gnu/emacs-pretest.new/lisp/international/isearch-x.el
;;; in Emacs version 21.3
;;; with bytecomp version 2.85.4.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`isearch-x.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@62 Select an input method and turn it on in interactive search.
(defalias 'isearch-toggle-specified-input-method #[nil "\304\305\306!\210)	\306\304\307 \207" [overriding-terminal-local-map input-method-function isearch-input-method-function isearch-input-method-local-p nil toggle-input-method t isearch-update] 2 (#$ . 634) nil])
#@44 Toggle input method in interactive search.
(defalias 'isearch-toggle-input-method #[nil "\304\305 \210)	\306\304\307 \207" [overriding-terminal-local-map input-method-function isearch-input-method-function isearch-input-method-local-p nil toggle-input-method t isearch-update] 1 (#$ . 972) nil])
#@75 Keymap to use in minibuffer for multibyte character inputting in isearch.
(defvar isearch-minibuffer-local-map (byte-code "\302!\303	\304\305#\210\303	\306\307#\210	)\207" [minibuffer-local-map map copy-keymap define-key [with-keyboard-coding] isearch-with-keyboard-coding [with-input-method] isearch-with-input-method] 4) (#$ . 1278))
(defalias 'isearch-exit-recursive-edit #[(start end length) "\300\301\302\"\207" [throw exit nil] 3 nil nil])
(defalias 'isearch-with-keyboard-coding #[nil "\301\302 \210)\303 \207" [after-change-functions (isearch-exit-recursive-edit) recursive-edit exit-minibuffer] 1 nil nil])
(defalias 'isearch-with-input-method #[nil "@\304A\n!\211\203! 	@\250\203 	@c\210	A\211\204 \305 *\207" [unread-command-events events key input-method-function nil exit-minibuffer] 3 nil nil])
(defalias 'isearch-process-search-multibyte-characters #[(last-char) "\306=\203~ \307\310 	P\n\307\203N \307\311BB\312\307\211\211\313%\211\2044 \314\202M G\315U\203M \316HU\203M \317Y\203M \307)\204d \320 \203d \321BB\312!\203z G\316V\203z \307\322\211\")\202| \323 ,\207\324!\207" [this-command isearch-message isearch-minibuffer-local-map str minibuffer-local-map prompt isearch-printing-char nil isearch-message-prefix with-input-method read-string t "" 1 0 128 keyboard-coding-system with-keyboard-coding isearch-process-search-string isearch-update isearch-process-search-char overriding-terminal-local-map isearch-input-method-function input-method-verbose-flag last-char unread-command-events] 7])