;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307%\210\310\311\312\313\314DD\315\306\303\316\317&\210\310\320\312\313\321DD\322\306\303\316\323&\210\310\324\312\313\325DD\326\306\303\316\327&\210\310\330\312\313\331DD\332\306\303\316\333&\210\310\334\312\313\335DD\336\306\303\316\337&\210\310\340\312\313\341DD\342\306\303\316\337&\210\310\343\312\313\344DD\345\306\303\316\346&\210\310\347\312\313\350DD\351\306\303\316\352&\210\310\353\312\313\354DD\355\306\303\316\356&\210\310\357\312\313\360DD\361\306\303\316\362&\210\310\363\312\313\364DD\365\306\303\316\366&\210\310\367\312\313\370DD\371\306\303\316\372&\210\310\373\312\313\374DD\375\306\303\316\337&\210\310\376\312\313\377DD\201@\306\303\316\337&\210\310\201A\312\313\201BDD\201C\306\303\316\201D&\210\310\201E\312\313\201FDD\201G\306\303\316\201H&\210\310\201I\312\313\201JDD\201K\306\303\316\201H&\210\310\201L\312\313\201MDD\201N\306\303\316\201D&\210\310\201O\312\313\201PDD\201Q\306\303\316\201D&\207" [require cl-lib custom-declare-group migemo nil "migemo - Japanese incremental search trough dynamic pattern expansion." :group matching custom-declare-variable migemo-command funcall function #[0 "\300\207" [#1="cmigemo"] 1 #1#] "*Name or full path of the executable for running migemo." :type (choice (const :tag "CMIGEMO" "cmigemo") (const :tag "Ruby Migemo" "ruby") (string :tag "Other")) migemo-options #[0 "\300\207" [("-q" "--emacs")] 1] "*Options for migemo command." (repeat string) migemo-white-space-regexp #[0 "\300\207" [#2="[ 　 \n]*"] 1 #2#] "*Regexp representing white spaces." string migemo-directory #[0 "\300\207" [nil] 1] "*Directory where migemo files are placed." directory migemo-isearch-enable-p #[0 "\300\207" [t] 1] "*Enable the migemo feature on isearch or not." boolean migemo-use-default-isearch-keybinding #[0 "\300\207" [t] 1] "*If non-nil, set migemo default keybinding for isearch in `migemo-init'." migemo-dictionary #[0 "\301\302\"\207" [migemo-directory expand-file-name "migemo-dict"] 3] "*Migemo dictionary file." (file :must-match t) migemo-user-dictionary #[0 "\301\302\"\207" [migemo-directory expand-file-name "user-dict"] 3] "*Migemo user dictionary file." (choice (file :must-match t) (const :tag "Do not use" nil)) migemo-regex-dictionary #[0 "\301\302\"\207" [migemo-directory expand-file-name "regex-dict"] 3] "*Migemo regex dictionary file." (choice (file :must-match t) (const :tag "Do not use" nil)) migemo-pre-conv-function #[0 "\300\207" [nil] 1] "*Function of migemo pre-conversion." (choice (const :tag "Do not use" nil) function) migemo-after-conv-function #[0 "\300\207" [nil] 1] "*Function of migemo after-conversion." (choice (const :tag "Do not use" nil) function) migemo-coding-system #[0 "\300\207" [utf-8-unix] 1] "*Default coding system for migemo.el." coding-system migemo-use-pattern-alist #[0 "\300\207" [nil] 1] "*Use pattern cache." migemo-use-frequent-pattern-alist #[0 "\300\207" [nil] 1] "*Use frequent patttern cache." migemo-pattern-alist-length #[0 "\300\207" [512] 1] "*Maximal length of `migemo-pattern-alist'." integer migemo-pattern-alist-file #[0 "\300\301\302\"\207" [locate-user-emacs-file "migemo-pattern" ".migemo-pattern"] 3] "*Path of migemo alist file. If nil, don't save and restore the file." file migemo-frequent-pattern-alist-file #[0 "\300\301\302\"\207" [locate-user-emacs-file "migemo-frequent" ".migemo-freqent"] 3] "*Path of migemo frequent alist file. If nil, don't save and restore the file." migemo-accept-process-output-timeout-msec #[0 "\300\207" [5] 1] "*Timeout of migemo process communication." migemo-isearch-min-length #[0 "\300\207" [1] 1] "*Minimum length of word to start isearch."] 8) (defvar migemo-process nil) (defvar migemo-buffer nil) (defvar migemo-current-input-method nil) (defvar migemo-current-input-method-title nil) (defvar migemo-input-method-function nil) (defvar migemo-search-pattern nil) (defvar migemo-pattern-alist nil) (defvar migemo-frequent-pattern-alist nil) (defvar migemo-search-pattern-alist nil) (defvar migemo-do-isearch nil) (defvar migemo-register-isearch-keybinding-function nil) #@15 (fn STRING) (defalias 'migemo-search-pattern-get #[257 "\301\"A\211\204\302!\262BB\207" [migemo-search-pattern-alist assoc migemo-get-pattern] 4 (#$ . 4224)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put migemo-search-pattern-get speed -1 put byte-optimizer byte-compile-inline-expand] 5) (defalias 'migemo-toggle-isearch-enable #[0 "?\301\203\f\302\202 \303!\207" [migemo-isearch-enable-p message "t" "nil"] 2 nil nil]) #@33 (fn NAME BUFFER PROGRAM ARGS) (defalias 'migemo-start-process #[1028 "\302\303\304%\305\306!\203\306 \211#\210\202\"\307 \"\210\310 \"\210)\207" [process-connection-type migemo-coding-system nil apply start-process fboundp set-process-coding-system set-process-input-coding-system set-process-output-coding-system] 10 (#$ . 4689)]) (defalias 'migemo-init #[0 "\203 \203\n\204\306 ! \203 \f\203 \204 \306\f!\203.\203. \210\203<\307!\310=\206\311\312\313\205Q\314!\205Q\315D\205a\314!\205a\316D\317D$\"\320\321!\322\323$\324\312\"\210\325\262\207" [migemo-use-frequent-pattern-alist migemo-frequent-pattern-alist-file migemo-frequent-pattern-alist migemo-use-pattern-alist migemo-pattern-alist-file migemo-pattern-alist migemo-pattern-alist-load process-status run delq nil append file-exists-p "-u" "-r" "-d" get-buffer-create " *migemo*" migemo-start-process "migemo" set-process-query-on-exit-flag t migemo-use-default-isearch-keybinding migemo-register-isearch-keybinding-function migemo-process migemo-options migemo-user-dictionary migemo-regex-dictionary migemo-dictionary migemo-buffer migemo-command] 8]) #@23 (fn STRING FROM TO) (defalias 'migemo-replace-in-string #[771 "\301\302\303\"r\211q\210\304\305\"\216c\210eb\210\306\307\306\303#\203&\310\306\303#\210\202)ed{*\207" [migemo-do-isearch generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] nil search-forward replace-match] 8 (#$ . 5880)]) #@13 (fn WORD) (defalias 'migemo-get-pattern #[257 "\211GW\203 \306\207\307\211\211\211\310\311G\307$\210\312 \210\n\203+\313\n!\203+\n!\262 \2053\314\f\"\211\262\203>A\202\325 \205G\314\"\211\262\203[\211\315\"B\211A\202\325r\316!q\210ed|\210\317\320P\"\210d\321V\203}dSf\322=\204\210\323\311#\210\202oedS{\262)\324>\203\255G\321V\203\255\211GSH\325=\203\255\311\326O\262 \203\324BB\203\324G\327_V\203\324\327_S\233\307\241\210\262\203\353\313!\203\353\"\202\361\330\331 #)\207" [migemo-isearch-min-length deactivate-mark migemo-pre-conv-function migemo-use-frequent-pattern-alist migemo-frequent-pattern-alist migemo-use-pattern-alist "" nil set-text-properties 0 migemo-init functionp assoc delq process-buffer process-send-string "\n" 1 10 accept-process-output (windows-nt OS/2 emx) 13 -1 2 migemo-replace-in-string "" migemo-pattern-alist migemo-process migemo-accept-process-output-timeout-msec system-type migemo-pattern-alist-length migemo-after-conv-function migemo-white-space-regexp] 10 (#$ . 6243)]) #@36 Load migemo alist FILE. (fn FILE) (defalias 'migemo-pattern-alist-load #[257 "\301!\262\302!\205<\303\304\305\"r\211q\210\306\307\"\216\210\310!\210eb\210\3111,\312p!0\2029\313\314\315!\316!#\210\317\262*\262\207" [migemo-coding-system expand-file-name file-readable-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents (error) read message "Error while reading %s; %s" file-name-nondirectory error-message-string nil] 8 (#$ . 7347)]) #@47 Save migemo alist file. (fn &optional CLEAR) (defalias 'migemo-pattern-alist-save #[256 "\205e \205e\n\204\211\205e\306 !\307!\205c\203\310 \2031\nG V\2031 S\n\233\310\241\210\311\312\313\"r\211q\210\314\315\"\216\f\211\316\317!\203Q\317\np\"\210\202V\320\np\"\210\321ed\310\322%\210,\210\310\211\262\207" [migemo-use-pattern-alist migemo-pattern-alist-file migemo-pattern-alist migemo-pattern-alist-length migemo-coding-system buffer-file-coding-system expand-file-name file-writable-p nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] fboundp pp prin1 write-region nomsg coding-system-for-write] 9 (#$ . 7884) nil]) #@22 Kill migemo process. (defalias 'migemo-kill #[0 "\205\302!\303=\205\304!\210\305\306 !\205\307 !\207" [migemo-process migemo-buffer process-status run kill-process nil get-buffer kill-buffer] 2 (#$ . 8598) nil]) #@33 Clear migemo alist data & file. (defalias 'migemo-pattern-alist-clear #[0 "\300 \210\301\302!\210\303 \207" [migemo-kill migemo-pattern-alist-save clear migemo-init] 2 (#$ . 8826) nil]) #@61 Create frequent pattern from `frequent-chars'. (fn FCFILE) (defalias 'migemo-frequent-pattern-make #[257 "\306\307!\210\205\221\310 \210\311 \210\312!\313\211\314\313\313\315\316\317\"r\211q\210\320\321\"\216 \210\322!\210eb\210\323\324!\210m\204Z\325\326!\203T\327\330!\262\323\331\"\210\332!B\fB\333y\210\2028\334!\203\203\f\237\335 \210\336\337!\203u\337\fp\"\210\202z\340\fp\"\210\341ed\313\342%\210*\210\310 \210\311 \210\323\343!+\266\205\207" [migemo-frequent-pattern-alist-file migemo-after-conv-function migemo-use-frequent-pattern-alist migemo-use-pattern-alist migemo-frequent-pattern-alist migemo-coding-system migemo-pattern-alist-save clear migemo-kill migemo-init expand-file-name nil #[514 "\207" [] 3 "\n\n(fn X Y)"] generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents message "Make frequently pattern..." looking-at "^[a-z]+$" match-string 0 "Make frequently pattern...%s" migemo-get-pattern 1 file-writable-p erase-buffer fboundp pp prin1 write-region nomsg "Make frequently pattern...done"] 13 (#$ . 9018) "ffrequent-chars: "]) #@94 Expand the Romaji sequences on the left side of the cursor into the migemo's regexp pattern. (defalias 'migemo-expand-pattern #[0 "`\211Sb\210\300\301\302 \303#\203\304u\210\202\305 \210\306`\"\307!`|\210\211c\207" [re-search-backward "[^-a-zA-Z]" line-beginning-position t 1 beginning-of-line buffer-substring-no-properties migemo-get-pattern] 5 (#$ . 10183) nil]) #@43 (fn WORD &optional BOUND NOERROR COUNT) (defalias 'migemo-forward #[1025 "\302\303\304!\"\203\202'\305 \"A\211\204$\306!\262B B\262\307$\207" [migemo-search-pattern migemo-search-pattern-alist delq ascii find-charset-string assoc migemo-get-pattern search-forward-regexp] 9 (#$ . 10562) "sSearch: \nP\nP"]) #@43 (fn WORD &optional BOUND NOERROR COUNT) (defalias 'migemo-backward #[1025 "\304\305\306!\"\203\202'\307 \"A\211\204$\310!\262B B\262\n\2042\311$\207 \312=\204_\313`\314p#\204_\315!\203K\316\224\206e`e=\204_\317u\210\315!\203_\316\224\206e\311$\207" [migemo-search-pattern migemo-search-pattern-alist migemo-do-isearch this-command delq ascii find-charset-string assoc migemo-get-pattern search-backward-regexp isearch-repeat-backward get-char-property invisible looking-at 0 -1] 9 (#$ . 10898) "sSearch backward: \nP\nP"]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\207" [custom-declare-variable migemo-dabbrev-display-message funcall function #[0 "\300\207" [nil] 1] "*Display dabbrev message to minibuffer." :group migemo :type boolean migemo-dabbrev-ol-face #[0 "\300\207" [highlight] 1] "*Face of migemo-dabbrev overlay." face] 8) (defvar migemo-dabbrev-pattern nil) (defvar migemo-dabbrev-start-point nil) (defvar migemo-dabbrev-search-point nil) (defvar migemo-dabbrev-pre-patterns nil) (defvar migemo-dabbrev-ol nil) (defalias 'migemo-dabbrev-expand-done #[0 "\305\306\307\"\210 =\204\310\211\f\205\311\f!\207" [last-command this-command migemo-search-pattern-alist migemo-dabbrev-pre-patterns migemo-dabbrev-ol remove-hook pre-command-hook migemo-dabbrev-expand-done nil delete-overlay] 4]) (defalias 'migemo-dabbrev-expand #[0 "`\306\211 =\203\nb\210\2023Sb\210\307\310\311 \312#\203\"\313u\210\202%\314 \210\306``\315`\"\306)\3162\n\fV\203L\317 d\312#\205\320\225\211\202t\321 e\312#\203[\320\224\211\202t\fb\210\313v\210\322\323\324 \"!\210\317 d\312#\205\320\225\211\205\320\224\262\325\326\327 \312#\204\207\306\210\315`\"\262\211)\235\204`\330!\306\211\331!\203\321\331!\203\321*\203\267\332*`#\210\202\276\333`\"*\334*\335\312#\210\334*\336+#\266\202*\203\333\337*!\210,\203\212\214b\210\314 \210`\262\306\210`\262\340\341Q\262\322\342\343e \"\315\n\"\315 \"%\210*\266\344\316\312\"\210\nb\210\20270\2035\211)B)\f|\210\313u\210\fb\210\211c\210\202?b\210\322\323\345 \"!\210\346\347\350\"\207" [last-command this-command migemo-dabbrev-search-point migemo-search-pattern-alist migemo-dabbrev-start-point migemo-dabbrev-pattern nil re-search-backward "[^a-z-]" line-beginning-position t 1 beginning-of-line buffer-substring-no-properties found migemo-forward 0 migemo-backward message format "Trun back for `%s'" re-search-forward ".\\>" line-end-position copy-sequence pos-visible-in-window-p move-overlay make-overlay overlay-put evaporate face delete-overlay "【" "】" "(%d): %s%s%s" count-lines throw "No dynamic expansion for `%s' found" add-hook pre-command-hook migemo-dabbrev-expand-done migemo-dabbrev-pre-patterns migemo-dabbrev-ol migemo-dabbrev-ol-face migemo-dabbrev-display-message] 15 nil nil]) (defalias 'migemo--isearch-regexp-function #[0 "\302\300!\203\n\206\302\301!\205 \207" [isearch-regexp-function isearch-word boundp] 2]) (byte-code "\302\303\304\305#\306\303\307\310#\210\311\312\313\314\315$\210\316\312\315\"\210\311\317\320\314\315$\210\316\317\315\"\210\311\321\322\314\315$\210\316\321\315\"\210\311\323\324\314\315$\210\316\323\315\"\210\325\326!\203f\327\330!\203f\327\331!\203f\332\327\333!\203a\311\334\335\336\315$\210\316\334\315\"\210\337\332\340\"\210\311\341\342\343\315$\210\316\341\315\"\210\311\344\345\336\315$\210\316\344\315\"\210\346\347\350\351\352DD\353\354\355\356\357&\210\311\360\361\336\315$\210\316\360\315\"\210\327\362!\203\253\311\362\363\314\315$\210\316\362\315\"\210\327\364!\203\275\311\364\365\314\315$\210\316\364\315\"\210\327\366!\203\317\311\366\367\314\315$\210\316\366\315\"\210\327\370!\203\366\337\371\372\"\210\371\337\373\374\"\210\337\375\376\"\210\337\377\201@\"\210\337\201A\201B\"\210\201C\201D\201E\"\210\201F\355!\207" [isearch-search-fun-function migemo-register-isearch-keybinding-function function-put migemo--isearch-regexp-function speed -1 put byte-optimizer byte-compile-inline-expand ad-add-advice isearch-search (migemo-search-ad nil t (advice lambda nil "Adviced by migemo." (when migemo-isearch-enable-p (setq migemo-do-isearch t)) (unwind-protect ad-do-it (setq migemo-do-isearch nil)))) around nil ad-activate isearch-search-and-update (migemo-search-ad nil t (advice lambda nil "Adviced by migemo." (let ((isearch-adjusted isearch-adjusted)) (when (and migemo-isearch-enable-p (not isearch-forward) (not isearch-regexp) (not (migemo--isearch-regexp-function))) (setq isearch-adjusted t)) ad-do-it))) search-forward (migemo-search-ad nil t (advice lambda nil "Adviced by migemo." (if migemo-do-isearch (setq ad-return-value (migemo-forward (ad-get-arg 0) (ad-get-arg 1) (ad-get-arg 2) (ad-get-arg 3))) ad-do-it))) search-backward (migemo-search-ad nil t (advice lambda nil "Adviced by migemo." (if migemo-do-isearch (setq ad-return-value (migemo-backward (ad-get-arg 0) (ad-get-arg 1) (ad-get-arg 2) (ad-get-arg 3))) ad-do-it))) boundp isearch-regexp-lax-whitespace fboundp re-search-forward-lax-whitespace search-forward-lax-whitespace isearch-search-fun-migemo isearch-search-fun-default multi-isearch-search-fun (support-migemo nil t (advice lambda nil (setq ad-return-value `(lambda (string bound noerror) (cl-letf (((symbol-function 'isearch-search-fun-default) 'isearch-search-fun-migemo)) (funcall ,ad-return-value string bound noerror)))))) after defalias #[0 "\306\300!\203\n\204\306\301!\203 \203\307\207\n\203* \203*\f\203* \203(\310\207\311\207\n\2036 \2034\312\207\313\207\306\314!\203A\f\202B\315\203V\f\203V\203V \203T\316\207\317\207\306\314!\203a\f\202b\315\203q\f\203q \203o\320\207\321\207\203~ \203|\316\207\317\207 \203\204\322\207\323\207" [isearch-regexp-function isearch-word isearch-regexp isearch-regexp-lax-whitespace search-whitespace-regexp isearch-forward boundp #[1025 "\306\307!\203\n\307\202 \310\206 G\n@!G=? \203 \311\202!\312\313\314\304!\203,\f\2063\314\305!\2053 !\203O\314\304!\203A\f\206H\314\305!\205H \"\202T\315\"$\207" [isearch-nonincremental isearch-string isearch-cmds isearch-forward isearch-regexp-function isearch-word fboundp isearch--state-string isearch-string-state re-search-forward re-search-backward functionp boundp word-search-regexp] 11 "\n\n(fn STRING &optional BOUND NOERROR COUNT)"] re-search-forward-lax-whitespace re-search-backward-lax-whitespace re-search-forward re-search-backward isearch-lax-whitespace t migemo-forward migemo-backward search-forward-lax-whitespace search-backward-lax-whitespace search-forward search-backward migemo-do-isearch] 2 "Return default functions to use for the search with migemo."] isearch-mode (migemo-search-ad nil t (advice lambda nil "Adviced by migemo." (setq migemo-search-pattern nil) (setq migemo-search-pattern-alist nil) (when (and migemo-isearch-enable-p (boundp 'current-input-method)) (setq migemo-current-input-method current-input-method) (setq migemo-current-input-method-title current-input-method-title) (setq migemo-input-method-function input-method-function) (setq current-input-method nil) (setq current-input-method-title nil) (setq input-method-function nil) (when migemo-current-input-method (unwind-protect (run-hooks 'input-method-inactivate-hook 'input-method-deactivate-hook) (force-mode-line-update)))))) before isearch-done (migemo-search-ad nil t (advice lambda nil "Adviced by migemo." (setq migemo-search-pattern nil) (setq migemo-search-pattern-alist nil) (when (and migemo-isearch-enable-p (boundp 'current-input-method)) (let ((state-changed-p (not (equal current-input-method migemo-current-input-method)))) (setq current-input-method migemo-current-input-method) (setq current-input-method-title migemo-current-input-method-title) (setq input-method-function migemo-input-method-function) (when state-changed-p (unwind-protect (apply #'run-hooks (if current-input-method '(input-method-activate-hook) '(input-method-inactivate-hook input-method-deactivate-hook))) (force-mode-line-update))))))) custom-declare-variable migemo-message-prefix-face funcall function #[0 "\300\207" [highlight] 1] "*Face of minibuffer prefix." :group migemo :type face isearch-message-prefix (migemo-status nil t (advice lambda nil "Adviced by migemo." (let ((ret ad-return-value) (str "[MIGEMO]")) (when (and migemo-isearch-enable-p (not (or isearch-regexp (migemo--isearch-regexp-function)))) (setq ad-return-value (concat str " " ret)))))) isearch-lazy-highlight-new-loop (migemo-isearch-lazy-highlight-new-loop nil t (advice lambda nil "adviced by migemo" (if (and migemo-isearch-enable-p (not (migemo--isearch-regexp-function)) (not isearch-regexp)) (let ((isearch-string (migemo-search-pattern-get isearch-string)) (isearch-regexp t)) ad-do-it) ad-do-it))) replace-highlight (migemo-replace-highlight nil t (advice lambda nil "adviced by migemo" (let ((migemo-isearch-enable-p nil)) ad-do-it))) isearch-highlightify-region (migemo-highlightify-region nil t (advice lambda nil "adviced by migemo." (if migemo-isearch-enable-p (let ((isearch-string (migemo-search-pattern-get isearch-string)) (isearch-regexp t)) ad-do-it) ad-do-it))) isearch-yank-line migemo-register-isearch-keybinding #[0 "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\207" [isearch-mode-map define-key "" migemo-isearch-yank-char "" migemo-isearch-yank-word "" migemo-isearch-yank-line "\355" migemo-isearch-toggle-migemo] 4] migemo-isearch-toggle-migemo #[0 "\204\305\301!\203 \204\305\302!\203\n\204\306 \210 ?\307\310!\2038\311\31211\310 0\210\2027\210\310\311\211\"\210)\313 \207" [isearch-regexp isearch-regexp-function isearch-word migemo-isearch-enable-p isearch-lazy-highlight-last-string boundp discard-input fboundp isearch-lazy-highlight-new-loop nil (error) isearch-message] 3 "Toggle migemo mode in isearch." nil] migemo-isearch-yank-char #[0 "\203 \204\n\203\306\n`\"\211?\205 \307\212 \204(\n\203(\nb\210\306`\310u\210`\")!)\207" [migemo-isearch-enable-p isearch-regexp isearch-other-end isearch-string isearch-message search-upper-case buffer-substring-no-properties isearch-yank-string 1 isearch-forward] 5 "Pull next character from buffer into search string with migemo." nil] migemo-isearch-yank-word #[0 "\203 \204\n\203\306\n`\"\211?\205 \307\212 \204(\n\203(\nb\210\306`\310v\210`\")!)\207" [migemo-isearch-enable-p isearch-regexp isearch-other-end isearch-string isearch-message search-upper-case buffer-substring-no-properties isearch-yank-string 1 isearch-forward] 5 "Pull next character from buffer into search string with migemo." nil] migemo-isearch-yank-line #[0 "\203 \204\n\203\306\n`\"\211?\205 \307\212 \204(\n\203(\nb\210\306`\310 \")!)\207" [migemo-isearch-enable-p isearch-regexp isearch-other-end isearch-string isearch-message search-upper-case buffer-substring-no-properties isearch-yank-string line-end-position isearch-forward] 5 "Pull next character from buffer into search string with migemo." nil] add-hook kill-emacs-hook migemo-pattern-alist-save provide] 9)