;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\302\311\312&\207" [require cl-lib ivy migemo custom-declare-group ivy-migemo nil "Group for ivy-migemo." :group :prefix "ivy-migemo-"] 8) #@27 Store pre-computed regex. (defvar ivy-migemo--regex-hash (make-hash-table :test 'equal) (#$ . 298)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\311&\210\300\315\302\303\316DD\317\306\307\310\311&\207" [custom-declare-variable ivy-migemo-to-migemo-hook funcall function #[0 "\300\207" [nil] 1] "Hook run when `ivy-migemo' is toggled to migemo." :group ivy-migemo :type hook ivy-migemo-from-migemo-hook #[0 "\300\207" [nil] 1] "Hook run when `ivy-migemo' is toggled to ummigemo." ivy-migemo-toggle-migemo-functions #[0 "\300\207" [nil] 1] "Hook run when `ivy-migemo' is toggled.\nEach function is called with 1 arg TO-MIGEMO, which is non-nil when `ivy-migemo'\nis toggled to migemo."] 8) #@303 Run some hooks about `ivy-migemo'. If TO-MIGEMO is non-nil, run `ivy-migemo-to-migemo-hook'. Otherwise, run `ivy-migemo-from-migemo-hook'. In addition, run hook `ivy-migemo-toggle-migemo-functions' with arg TO-MIGEMO, which is boolean that is non-nil when `ivy' is toggled to migemo. (fn TO-MIGEMO) (defalias 'ivy-migemo--run-toggle-migemo-hook #[257 "\300\301\"\210\302\203\303\202\304!\207" [run-hook-with-args ivy-migemo-toggle-migemo-functions run-hooks ivy-migemo-to-migemo-hook ivy-migemo-from-migemo-hook] 4 (#$ . 1049)]) #@82 Same as `migemo-get-pattern' except "\(" is replaced to "\(:?". WORD (fn WORD) (defalias 'ivy-migemo--get-pattern #[257 "\300!\211G\301\211\211\302\211W\203E\211H\262\203+\303=\203%\304\202.\305!\202.\305!B\262\306=\205;?\262\210\211T\262\202\n\266\307\310\237\"\207" [migemo-get-pattern nil 0 40 "(?:" char-to-string 92 apply concat] 11 (#$ . 1593)]) #@197 Same as `ivy--regex' except using migemo. Make regex sequence from STR (greedily if GREEDY is non-nil). Each string made by splitting STR with space can match Japanese. (fn STR &optional GREEDY) (defalias 'ivy-migemo--regex #[513 "\211?\205 \303\"\211\203\211@\211A\207\304\305\306\307#)\266\203\203)\310\311O\262\312!\262\313\314!\211G\315U\203`\310\211\316@\305\306\307#)\266\203\203X\317@\315\305OP\202\\\320@!B\202z\211G\211\321\322\323\324\325 \203t\326\202u\327#\305\306%B\262#A\207" [ivy-migemo--regex-hash ivy--subexps inhibit-changing-match-data gethash "\\(?:[^\\]\\|^\\)\\\\\\'" nil t string-match 0 -1 ivy--trim-trailing-re puthash ivy--split 1 "\\`\\.[^.]" "\\." ivy-migemo--get-pattern replace-regexp-in-string "\\.\\*\\??\\\\( " "\\( " mapconcat #[257 "\301\302\303\304#)\266\203\203\207\305\306\307!\"\207" [inhibit-changing-match-data "\\`\\\\([^?][^]*\\\\)\\'" nil t string-match format "\\(%s\\)" ivy-migemo--get-pattern] 8 "\n\n(fn X)"] ".*" ".*?"] 14 (#$ . 1981)]) #@160 Same as `ivy--regex-plus' except using migemo. Make regex sequence from STR. Each string made by splitting STR with space or `!' can match Japanese. (fn STR) (defalias 'ivy-migemo--regex-plus #[257 "\300!\211G\211\301\267\2026\302\207\303H\304U\203\302\305B\306@!CD\207\306@!\207\306@!\305B\307\310\311A@\312\305#\"B\207\313\314!\207" [ivy--split-negation #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 11 1 13 2 36)) "" 0 33 t ivy-migemo--regex mapcar #[257 "\300!C\207" [ivy-migemo--get-pattern] 3 "\n\n(fn ARG)"] split-string " " error "Unexpected: use only one !"] 10 (#$ . 3022)]) #@140 Same as `ivy--regex-fuzzy' except using migemo. Make regex sequence from STR. STR can match Japanese word (but not fuzzy match). (fn STR) (defalias 'ivy-migemo--regex-fuzzy #[257 "\301!\262\302\303\"\203H\304\305\"\304\306\"\307\310\"\262\311\312\313\307\314\312\315\316\317 \"AB\316\320 \"#\321\322\304\306 \"!D\"B\"\262\304\323\"Q\304\306\"G\207\207" [ivy--subexps ivy--trim-trailing-re string-match "\\`\\(\\^?\\)\\(.*?\\)\\(\\$?\\)\\'" match-string 1 2 append nil apply concat "\\(" cl-mapcar "" mapcar #[257 "\300\301\"\207" [format "[^%c\n]*"] 4 "\n\n(fn C)"] #[257 "\300\301\302\303!!\"\207" [format "\\(%s\\)" regexp-quote char-to-string] 6 "\n\n(fn X)"] "\\)\\|" ivy-migemo--get-pattern 3] 13 (#$ . 3667)]) #@96 Apply `swiper--re-builder' forced to use RE-BUILDER with STR as argument. (fn STR RE-BUILDER) (defalias 'ivy-migemo--swiper-re-builder-with #[514 "\301BC\302!)\207" [ivy-re-builders-alist t swiper--re-builder] 4 (#$ . 4407)]) #@99 Apply `swiper--re-builder' forced to use `ivy-migemo--regex-plus' with STR as argument. (fn STR) (defalias 'ivy-migemo--swiper-re-builder-migemo-regex-plus #[257 "\300\301\"\207" [ivy-migemo--swiper-re-builder-with ivy-migemo--regex-plus] 4 (#$ . 4643)]) #@100 Apply `swiper--re-builder' forced to use `ivy-migemo--regex-fuzzy' with STR as argument. (fn STR) (defalias 'ivy-migemo--swiper-re-builder-migemo-regex-fuzzy #[257 "\300\301\"\207" [ivy-migemo--swiper-re-builder-with ivy-migemo--regex-fuzzy] 4 (#$ . 4907)]) #@92 Apply `swiper--re-builder' forced to use `ivy--regex-plus' with STR as argument. (fn STR) (defalias 'ivy-migemo--swiper-re-builder-no-migemo-regex-plus #[257 "\300\301\"\207" [ivy-migemo--swiper-re-builder-with ivy--regex-plus] 4 (#$ . 5173)]) #@93 Apply `swiper--re-builder' forced to use `ivy--regex-fuzzy' with STR as argument. (fn STR) (defalias 'ivy-migemo--swiper-re-builder-no-migemo-regex-fuzzy #[257 "\300\301\"\207" [ivy-migemo--swiper-re-builder-with ivy--regex-fuzzy] 4 (#$ . 5425)]) (defalias 'ivy-migemo--prescient-re-builder 'ivy-migemo--regex-plus) #@61 Alist whose element is (unfuzzy-function . fuzzy-function). (defvar ivy-migemo--regex-function-fuzzy-alist '((ivy--regex-plus . ivy--regex-fuzzy) (ivy-migemo--regex-plus . ivy-migemo--regex-fuzzy) (ivy-migemo--swiper-re-builder-no-migemo-regex-plus . ivy-migemo--swiper-re-builder-no-migemo-regex-fuzzy) (ivy-migemo--swiper-re-builder-migemo-regex-plus . ivy-migemo--swiper-re-builder-migemo-regex-fuzzy)) (#$ . 5749)) #@153 Alist whose element is (from-function . to-function). This variable is used only on `swiper'. This is needed because `ivy' is specialized for `swiper'. (defvar ivy-migemo--swiper-regex-function-fuzzy-alist '((ivy--regex-fuzzy . ivy-migemo--swiper-re-builder-no-migemo-regex-plus) (ivy--regex-plus . ivy-migemo--swiper-re-builder-no-migemo-regex-fuzzy) (ivy-migemo--regex-fuzzy . ivy-migemo--swiper-re-builder-migemo-regex-plus) (ivy-migemo--regex-plus . ivy-migemo--swiper-re-builder-migemo-regex-fuzzy)) (#$ . 6175)) #@230 Get toggled function for RE-FUNC. If CALLER is omitted, (`ivy-state-caller' `ivy-last') is used. This function uses `ivy-migemo--regex-function-alist' and `ivy-migemo--swiper-regex-function-alist'. (fn RE-FUNC &optional CALLER) (defalias 'ivy-migemo--toggle-fuzzy-get #[513 "\304\236A\211\262\203\f\207\305\"@\211\262\203\207\306=\2032\307 \206'\n\310H\" \236A\211\262\2032\207\207" [ivy-migemo--regex-function-fuzzy-alist ivy-re-builders-alist ivy-last ivy-migemo--swiper-regex-function-fuzzy-alist nil rassq swiper--re-builder ivy-alist-setting 22] 7 (#$ . 6700)]) #@46 Toggle the re builder to match fuzzy or not. (defalias 'ivy-migemo-toggle-fuzzy #[0 "\302\303 !\211\207" [ivy--old-re ivy--regex-function nil ivy-migemo--toggle-fuzzy-get] 2 (#$ . 7290) nil]) #@63 Alist whose element is (ummigemo-function . migemo-function). (defvar ivy-migemo--regex-function-alist '((ivy--regex-fuzzy . ivy-migemo--regex-fuzzy) (ivy--regex-plus . ivy-migemo--regex-plus) (ivy-prescient-re-builder . ivy-migemo--prescient-re-builder) (ivy-migemo--swiper-re-builder-no-migemo-regex-fuzzy . ivy-migemo--swiper-re-builder-migemo-regex-fuzzy) (ivy-migemo--swiper-re-builder-no-migemo-regex-plus . ivy-migemo--swiper-re-builder-migemo-regex-plus)) (#$ . 7490)) #@153 Alist whose element is (from-function . to-function). This variable is used only on `swiper'. This is needed because `ivy' is specialized for `swiper'. (defvar ivy-migemo--swiper-regex-function-alist '((ivy--regex-fuzzy . ivy-migemo--swiper-re-builder-migemo-regex-fuzzy) (ivy--regex-plus . ivy-migemo--swiper-re-builder-migemo-regex-plus) (ivy-migemo--regex-fuzzy . ivy-migemo--swiper-re-builder-no-migemo-regex-fuzzy) (ivy-migemo--regex-plus . ivy-migemo--swiper-re-builder-no-migemo-regex-plus)) (#$ . 7974)) #@42 List of functions which are migemo-ized. (defvar ivy-migemo--migemo-function-list '(ivy-migemo--regex ivy-migemo--regex-fuzzy ivy-migemo--regex-plus ivy-migemo--swiper-re-builder-migemo-regex-fuzzy ivy-migemo--swiper-re-builder-migemo-regex-plus) (#$ . 8492)) #@230 Get toggled function for RE-FUNC. If CALLER is omitted, (`ivy-state-caller' `ivy-last') is used. This function uses `ivy-migemo--regex-function-alist' and `ivy-migemo--swiper-regex-function-alist'. (fn RE-FUNC &optional CALLER) (defalias 'ivy-migemo--toggle-migemo-get #[513 "\304\236A\211\262\203\f\207\305\"@\211\262\203\207\306=\2032\307 \206'\n\310H\" \236A\211\262\2032\207\207" [ivy-migemo--regex-function-alist ivy-re-builders-alist ivy-last ivy-migemo--swiper-regex-function-alist nil rassq swiper--re-builder ivy-alist-setting 22] 7 (#$ . 8759)]) #@44 Toggle the re builder to use/unuse migemo. (defalias 'ivy-migemo-toggle-migemo #[0 "\303 \304 !\211 =?\205\305 \n>!\207" [ivy--old-re ivy--regex-function ivy-migemo--migemo-function-list nil ivy-migemo--toggle-migemo-get ivy-migemo--run-toggle-migemo-hook] 4 (#$ . 9338) nil]) #@195 Advice `swiper--re-builder' to handle `search-default-mode'. `search-default-mode' is handled when `ivy-migemo' is turned on. ORIGINAL and ARGS are for :around advice. (fn ORIGINAL &rest ARGS) (defalias 'ivy-migemo--search-default-handling-mode-swiper-re-builder #[385 "\303!\211 >?\205 \n\304\")\207" [ivy-re-builders-alist ivy-migemo--migemo-function-list search-default-mode ivy-alist-setting apply] 6 (#$ . 9626)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable ivy-migemo-search-default-handling-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Ivy-Migemo-Search-Default-Handling mode is enabled.\nSee the `ivy-migemo-search-default-handling-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `ivy-migemo-search-default-handling-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group ivy-migemo] 12) #@749 When turned on, override functions which use `swiper--re-builder' to handle `search-default-mode' when `ivy-migemo'is turned on. This is a minor mode. If called interactively, toggle the `Ivy-Migemo-Search-Default-Handling mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value 'ivy-migemo-search-default-handling-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'ivy-migemo-search-default-handling-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B \203E\313\314\315\316#\210\202J\317\314\316\"\210\320\321\305\301!\203V\322\202W\323\"\210\324\325!\203\326\301!\210\302 \203o\211\302 \232\203\327\330\305\301!\203{\331\202|\332\333#\210\210\334 \210\305\301!\207" [global-minor-modes ivy-migemo-search-default-handling-mode current-message set-default toggle default-value 1 nil t boundp delq advice-add swiper--re-builder :around ivy-migemo--search-default-handling-mode-swiper-re-builder advice-remove run-hooks ivy-migemo-search-default-handling-mode-hook ivy-migemo-search-default-handling-mode-on-hook ivy-migemo-search-default-handling-mode-off-hook called-interactively-p any customize-mark-as-set message "Ivy-Migemo-Search-Default-Handling mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 10688) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar ivy-migemo-search-default-handling-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\210\315\316\312\310#\210\317\316\312\320#\210\321\322!\207" [ivy-migemo-search-default-handling-mode-map ivy-migemo-search-default-handling-mode-hook variable-documentation put "Hook run after entering or leaving `ivy-migemo-search-default-handling-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode ivy-migemo-search-default-handling-mode "" boundp defalias global-ivy-migemo-search-default-handling-mode make-obsolete "1.3.4" provide ivy-migemo] 6)