(defun isearch-toggle-specified-input-method ()
"Select an input method and turn it on in interactive search."
(interactive)
(let ((overriding-terminal-local-map nil))
(toggle-input-method t))
(setq isearch-input-method-function input-method-function
isearch-input-method-local-p t)
(setq input-method-function nil)
(isearch-update))
(defun isearch-toggle-input-method ()
"Toggle input method in interactive search."
(interactive)
(let ((overriding-terminal-local-map nil))
(toggle-input-method))
(setq isearch-input-method-function input-method-function
isearch-input-method-local-p t)
(setq input-method-function nil)
(isearch-update))
(defvar isearch-minibuffer-local-map
(let ((map (copy-keymap minibuffer-local-map)))
(define-key map [with-keyboard-coding] 'isearch-with-keyboard-coding)
(define-key map [with-input-method] 'isearch-with-input-method)
map)
"Keymap to use in minibuffer for multibyte character inputting in isearch.")
(defun isearch-exit-recursive-edit (start end length)
(interactive)
(throw 'exit nil))
(defun isearch-with-keyboard-coding ()
(interactive)
(let ((after-change-functions '(isearch-exit-recursive-edit)))
(recursive-edit))
(exit-minibuffer))
(defun isearch-with-input-method ()
(interactive)
(let ((key (car unread-command-events))
events)
(setq unread-command-events (cdr unread-command-events)
events (funcall input-method-function key))
(while events
(if (integerp (car events)) (insert (car events)))
(setq events (cdr events)))
(exit-minibuffer)))
(defun isearch-process-search-multibyte-characters (last-char)
(if (eq this-command 'isearch-printing-char)
(let ((overriding-terminal-local-map nil)
(prompt (isearch-message-prefix))
(minibuffer-local-map isearch-minibuffer-local-map)
str junk-hist)
(set-text-properties 0 (length prompt) nil prompt)
(if isearch-input-method-function
(let ( (input-method-verbose-flag nil))
(setq unread-command-events
(cons 'with-input-method
(cons last-char unread-command-events))
str (read-string prompt isearch-message 'junk-hist nil t))
(if (or (not str) (< (length str) (length isearch-message)))
(setq str "")
(setq str (substring str (length isearch-message)))
(if (and (= (length str) 1)
(= (aref str 0) last-char)
(>= last-char 128))
(setq str nil)))))
(if (and (not str) (keyboard-coding-system))
(setq unread-command-events
(cons 'with-keyboard-coding
(cons last-char unread-command-events))
str (read-string prompt nil 'junk-hist)))
(if (and str (> (length str) 0))
(let ((unread-command-events nil))
(isearch-process-search-string str str))
(isearch-update)))
(isearch-process-search-char last-char)))