| Current File : //usr/share/emacs/24.3/lisp/international/isearch-x.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:10 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/international/isearch-x.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@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 (#$ . 566) 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 (#$ . 904) 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) (#$ . 1210))
(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 "@\304A \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\231 \307\310 \307\211 \311\312
G\307
$\210\203g \307 \313BB\314
\302\307\315%\211\203A GGW\203F \316\202f G\307O\211G\317U\203f \312HU\203f \320Y\203f \307) \204 \321 \203 \322BB\314
\307\302# \203\225 G\312V\203\225 \307 \323 \211\")\202\227 \324 -\207\325!\207" [this-command isearch-minibuffer-local-map junk-hist str minibuffer-local-map prompt isearch-printing-char nil isearch-message-prefix set-text-properties 0 with-input-method read-string t "" 1 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 isearch-message] 7])