;ELC ;;; Compiled ;;; in Emacs version 24.5.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require anything cl] 2) (defvar anything-mp-default-match-functions nil) (defvar anything-mp-default-search-functions nil) (defvar anything-mp-default-search-backward-functions nil) #@68 Default function to set matching methods in anything match plugin. (defalias 'anything-mp-set-matching-method #[(var key) "\306 \"\210\307J\310\"\203\311\312\313\211\207\307J\314\"\203%\315\316\317\211\207\307J\320\"\2035\321\322\323\211\207\307J\324\"\203E\325\326\327\211\207\330\331 \"\207" [var key anything-mp-default-match-functions anything-mp-default-search-functions anything-mp-default-search-backward-functions anything-mp-matching-method set-default eql multi1 (anything-mp-exact-match anything-mp-1-match) (anything-mp-exact-search anything-mp-1-search) (anything-mp-exact-search-backward anything-mp-1-search-backward) multi2 (anything-mp-exact-match anything-mp-2-match) (anything-mp-exact-search anything-mp-2-search) (anything-mp-exact-search-backward anything-mp-2-search-backward) multi3 (anything-mp-exact-match anything-mp-3-match) (anything-mp-exact-search anything-mp-3-search) (anything-mp-exact-search-backward anything-mp-3-search-backward) multi3p (anything-mp-exact-match anything-mp-3p-match) (anything-mp-exact-search anything-mp-3p-search) (anything-mp-exact-search-backward anything-mp-3p-search-backward) error "Unknow value: %s"] 3 (#$ . 633)]) (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312\313\314\315\304\301& \210\316\317\320\321\304\301%\210\306\322\323\324\312\325\304\301&\210\306\326\327\330\312\325\304\301&\207" [custom-declare-group anything-match-plugin nil "Anything match plugin." :group anything custom-declare-variable anything-mp-matching-method 'multi3 "Matching method for anything match plugin.\nYou can set here different methods to match candidates in anything.\nHere are the possible value of this symbol and their meaning:\n- multi1: Respect order, prefix of pattern must match.\n- multi2: Same but with partial match.\n- multi3: The best, multiple regexp match, allow negation.\n- multi3p: Same but prefix must match.\nDefault is multi3." :type (radio :tag "Matching methods for anything" (const :tag "Multiple regexp 1 ordered with prefix match" multi1) (const :tag "Multiple regexp 2 ordered with partial match" multi2) (const :tag "Multiple regexp 3 matching no order, partial, best." multi3) (const :tag "Multiple regexp 3p matching with prefix match" multi3p)) :set anything-mp-set-matching-method custom-declare-face anything-match ((t (:inherit match))) "Face used to highlight matches." anything-mp-highlight-delay 0.7 "Highlight matches with `anything-match' face after this many seconds.\n If nil, no highlight. " integer anything-mp-highlight-threshold 2 "Minimum length of pattern to highlight.\nThe smaller this value is, the slower highlight is."] 10) #@60 Regexp to represent space itself in multiple regexp match. (defvar anything-mp-space-regexp "[\\ ] " (#$ . 3304)) #@181 Split PATTERN if it contain spaces and return resulting list. If spaces in PATTERN are escaped, don't split at this place. i.e "foo bar"=> ("foo" "bar") but "foobar"=> ("foobar"). (defalias 'anything-mp-make-regexps #[(pattern) "\305\230\203\306\207\307\310 \311#\312\313#\314\211\n:\203-\n@\310\311\312 #\fB\nA\211\202\f\237+\207" [pattern anything-mp-space-regexp #1=#:--cl-var-- s #2=#:--cl-var-- #3="" (#3#) split-string replace-regexp-in-string "" " " t nil] 6 (#$ . 3425)]) #@38 Replace spaces in PATTERN with ".*". (defalias 'anything-mp-1-make-regexp #[(pattern) "\301\302\303!\304#\207" [pattern mapconcat identity anything-mp-make-regexps ".*"] 4 (#$ . 3926)]) (defvar anything-mp-exact-pattern-str nil) (defvar anything-mp-exact-pattern-real nil) (defalias 'anything-mp-exact-get-pattern #[(pattern) " \232\204 \303\303Q\n\207" [pattern anything-mp-exact-pattern-str anything-mp-exact-pattern-real "\n"] 3]) (defalias 'anything-mp-exact-match #[(str &optional pattern) " \206\n\230\207" [str pattern anything-pattern] 2]) (defalias 'anything-mp-exact-search #[(pattern &rest ignore) "\301\302!\303\304#\205\f\305y\207" [pattern search-forward anything-mp-exact-get-pattern nil t -1] 4]) (defalias 'anything-mp-exact-search-backward #[(pattern &rest ignore) "\301\302!\303\304#\205\f\305y\207" [pattern search-backward anything-mp-exact-get-pattern nil t 1] 4]) (defvar anything-mp-prefix-pattern-str nil) (defvar anything-mp-prefix-pattern-real nil) (defalias 'anything-mp-prefix-get-pattern #[(pattern) " \232\204\f\303P\n\207" [pattern anything-mp-prefix-pattern-str anything-mp-prefix-pattern-real "\n"] 2]) (defalias 'anything-mp-prefix-match #[(str &optional pattern) "\206 \211G\211 GX\205 \304\nO\230)\207" [pattern anything-pattern len str 0] 4]) (defalias 'anything-mp-prefix-search #[(pattern &rest ignore) "\301\302!\303\304#\207" [pattern search-forward anything-mp-prefix-get-pattern nil t] 4]) (defalias 'anything-mp-prefix-search-backward #[(pattern &rest ignore) "\301\302!\303\304#\205\f\305y\207" [pattern search-backward anything-mp-prefix-get-pattern nil t 1] 4]) (defvar anything-mp-1-pattern-str nil) (defvar anything-mp-1-pattern-real nil) (defalias 'anything-mp-1-get-pattern #[(pattern) " \232\204\303\304!P\n\207" [pattern anything-mp-1-pattern-str anything-mp-1-pattern-real "^" anything-mp-1-make-regexp] 3]) #@49 (fn STR &optional (PATTERN anything-pattern)) (defalias 'anything-mp-1-match #[(str &rest #1=#:--cl-rest--) "\203\f\211A\242\202 \203\304\305\306\307G\\D\"\210\310\311\n! \")\207" [#1# anything-pattern pattern str signal wrong-number-of-arguments anything-mp-1-match 2 string-match anything-mp-1-get-pattern] 5 (#$ . 5833)]) (defalias 'anything-mp-1-search #[(pattern &rest ignore) "\301\302!\303\304#\207" [pattern re-search-forward anything-mp-1-get-pattern nil t] 4]) (defalias 'anything-mp-1-search-backward #[(pattern &rest ignore) "\301\302!\303\304#\207" [pattern re-search-backward anything-mp-1-get-pattern nil t] 4]) (defvar anything-mp-2-pattern-str nil) (defvar anything-mp-2-pattern-real nil) (defalias 'anything-mp-2-get-pattern #[(pattern) " \232\204\303\304!P\n\207" [pattern anything-mp-2-pattern-str anything-mp-2-pattern-real "^.*" anything-mp-1-make-regexp] 3]) #@49 (fn STR &optional (PATTERN anything-pattern)) (defalias 'anything-mp-2-match #[(str &rest #1=#:--cl-rest--) "\203\f\211A\242\202 \203\304\305\306\307G\\D\"\210\310\311\n! \")\207" [#1# anything-pattern pattern str signal wrong-number-of-arguments anything-mp-2-match 2 string-match anything-mp-2-get-pattern] 5 (#$ . 6743)]) (defalias 'anything-mp-2-search #[(pattern &rest ignore) "\301\302!\303\304#\207" [pattern re-search-forward anything-mp-2-get-pattern nil t] 4]) (defalias 'anything-mp-2-search-backward #[(pattern &rest ignore) "\301\302!\303\304#\207" [pattern re-search-backward anything-mp-2-get-pattern nil t] 4]) (defvar anything-mp-3-pattern-str nil) (defvar anything-mp-3-pattern-list nil) #@191 Return `anything-mp-3-pattern-list', a list of predicate/regexp cons cells. e.g ((identity . "foo") (identity . "bar")). This is done only if `anything-mp-3-pattern-str' is same as PATTERN. (defalias 'anything-mp-3-get-patterns #[(pattern) " \232\204\f\303!\n\207" [pattern anything-mp-3-pattern-str anything-mp-3-pattern-list anything-mp-3-get-patterns-internal] 2 (#$ . 7471)]) #@92 Return a list of predicate/regexp cons cells. e.g ((identity . "foo") (identity . "bar")). (defalias 'anything-mp-3-get-patterns-internal #[(pattern) "\304\230?\205F\305\306\"\203\307\310P!\207\311!\312\211 :\203C @\211\313\314O\315\230\2036\316\n\314\312OB\2029\317\nB B A\211\202 \237+\207" [pattern #1=#:--cl-var-- pat #2=#:--cl-var-- "" string-match "^!" anything-mp-3-get-patterns-internal ". " anything-mp-make-regexps nil 0 1 "!" not identity] 5 (#$ . 7863)]) #@525 Check if PATTERN match STR. When PATTERN contain a space, it is splitted and matching is done with the several resulting regexps against STR. e.g "bar foo" will match "foobar" and "barfoo". Argument PATTERN, a string, is transformed in a list of cons cell with `anything-mp-3-get-patterns' if it contain a space. e.g "foo bar"=>((identity . "foo") (identity . "bar")). Then each predicate of cons cell(s) is called with regexp of same cons cell against STR (a candidate). i.e (identity (string-match "foo" "foo bar")) => t. (defalias 'anything-mp-3-match #[(str &optional pattern) "\306\206 !\211\307\211\310\n :\2033 @\211\211A\242\211\311\f \"!\211\n\2033 A\211\202\n\2059\310-\207" [pattern anything-pattern pat #1=#:--cl-var-- regexp predicate anything-mp-3-get-patterns nil t string-match #2=#:--cl-flag-- str] 5 (#$ . 8355)]) (defalias 'anything-mp-3-search-base #[(pattern searchfn1 searchfn2) ";\203 \306!\202\f\307\211\307\211\310 \307 \211@A\262\206'\311\307\310#\203\244\312 \313 \314=\203@ \nB\202C\n B\211\211A\242 A\307\211\310:\203\206@\211\211A\242 b\210\f\310#!\211\203\206A\211\202Y\205\214\310,\203\235\fb\210\310\307\211 \202\241\fb\210\310\204 ?\205\254.\207" [pattern pat bol eol e b anything-mp-3-get-patterns nil t "" point-at-bol point-at-eol re-search-backward #1=#:--cl-var-- #2=#:--cl-var-- searchfn1 searchfn2 #3=#:--cl-var-- str pred #4=#:--cl-flag--] 6]) (defalias 'anything-mp-3-search #[(pattern &rest ignore) ";\203 \301!\302\303\211#\207" [pattern anything-mp-3-get-patterns anything-mp-3-search-base re-search-forward] 4]) (defalias 'anything-mp-3-search-backward #[(pattern &rest ignore) ";\203 \301!\302\303\211#\207" [pattern anything-mp-3-get-patterns anything-mp-3-search-base re-search-backward] 4]) #@194 Check if PATTERN match STR. Same as `anything-mp-3-match' but more strict, matching against prefix also. e.g "bar foo" will match "barfoo" but not "foobar" contrarily to `anything-mp-3-match'. (defalias 'anything-mp-3p-match #[(str &optional pattern) "\306\206 !\211@\211@\307\f A\"!\205N\nA\310\211 \f\311 :\203G @\211 \211A \242\211\f\312 \f\"!\211 \203G A\211\202# \205M\311,*\207" [pattern anything-pattern pat first str #1=#:--cl-var-- anything-mp-3-get-patterns anything-mp-prefix-match nil t string-match regexp predicate #2=#:--cl-flag--] 5 (#$ . 10209)]) (defalias 'anything-mp-3p-search #[(pattern &rest ignore) ";\203 \301!\302\303\304#\207" [pattern anything-mp-3-get-patterns anything-mp-3-search-base anything-mp-prefix-search re-search-forward] 4]) (defalias 'anything-mp-3p-search-backward #[(pattern &rest ignore) ";\203 \301!\302\303\304#\207" [pattern anything-mp-3-get-patterns anything-mp-3-search-base anything-mp-prefix-search-backward re-search-backward] 4]) (defalias 'anything-compile-source--match-plugin #[(source) "\305\306\"\203 \202\f\n\305\307\"\204\310\311\"\312\232\203!\313\202*\311\314\f\310\311\"\"B\315\314 \310\315\"\"B)BB\207" [source anything-mp-default-search-backward-functions anything-mp-default-search-functions searchers anything-mp-default-match-functions assoc search-from-end candidates-in-buffer assoc-default match (identity) (match identity) append search] 7]) (add-to-list 'anything-compile-source-functions 'anything-compile-source--match-plugin t) #@64 Highlight matches after `anything-mp-highlight-delay' seconds. (defalias 'anything-mp-highlight-match #[nil "\205 \303\230?\205\304\305\306 !!\210\307\310\304r\nq\210d)$\207" [anything-mp-highlight-delay anything-pattern anything-buffer "" anything-mp-highlight-match-internal window-end anything-window run-with-idle-timer nil] 5 (#$ . 11765)]) (add-hook 'anything-update-hook 'anything-mp-highlight-match) (defalias 'anything-mp-highlight-region #[(start end regexp face) "\212b\210\305\306\n\305\307#\211\2050` W\2050\310\211\225\310\224ZW\2050\311 \204\312\310\224 \304\f$\210\202*\207" [start me regexp end face nil re-search-forward t 0 anything-pos-header-line-p put-text-property] 5]) (defalias 'anything-mp-highlight-match-internal #[(end) "\306 \205dq\210\307 !\310\211\310\n:\203:\n@\211\211A\242\211\311=\2033 GY\2033 C\244\nA\211\202 \203M G\312Y\203M\313\311 \314#\202P\315 !,\211GY\205c\316e\317$)\207" [anything-buffer anything-pattern #1=#:--cl-var-- re pred re-list anything-window anything-mp-3-get-patterns nil identity 1 mapconcat "\\|" regexp-quote anything-mp-highlight-region anything-match anything-mp-highlight-threshold requote end] 6]) (defvar anything-mp-initial-highlight-delay nil) #@78 Turn on/off multiple regexp matching in anything. i.e anything-match-plugin. (defalias 'anything-mp-toggle-match-plugin #[nil "\306\235\307\310\311K\312K\313\216\311 M\210\312\nM\210 \203+\314\315!\2057\312 \210\316\317!\2027\314\320!\2057\311 \210\316\321!.\207" [anything-compile-source-functions anything-match-plugin-enabled #1=#:vnew #2=#:vnew #3=#:old #4=#:old anything-compile-source--match-plugin #[nil "\303\304\" \305\211\207" [anything-compile-source-functions anything-mp-highlight-delay anything-mp-initial-highlight-delay delq anything-compile-source--match-plugin nil] 3] #[nil "\204 \303\nB ?\205\211\207" [anything-mp-initial-highlight-delay anything-mp-highlight-delay anything-compile-source-functions anything-compile-source--match-plugin] 2] enable-match-plugin disable-match-plugin ((byte-code "\302M\210\303 M\207" [#3# #4# enable-match-plugin disable-match-plugin] 2)) y-or-n-p "Really disable match-plugin? " message "Anything-match-plugin disabled" "Really enable match-plugin? " "Anything-match-plugin enabled"] 2 (#$ . 13031) nil]) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\207" [custom-declare-variable anything-grep-candidates-fast-directory-regexp nil "*Directory regexp where a RAM disk (or tmpfs) is mounted.\n\nIf non-nil, grep-candidates plugin gets faster because it uses\ngrep as synchronous process.\n\nex. (setq anything-grep-candidates-fast-directory-regexp \"^/tmp/\")" :type string :group anything anything-grep-candidates-requires-pattern 2 "*Required length of input to grep search.\n\nThe greater this value is, the faster grep-candidates works." integer] 8) #@93 Normal version of grep-candidates candidates function. Grep is run by asynchronous process. (defalias 'agp-candidates #[(&optional filter) "\301\302\303\304\305\306!\"#\207" [filter start-process-shell-command "anything-grep-candidates" nil agp-command-line-2 anything-attr-defined search-from-end] 7 (#$ . 14709)]) #@142 Faster version of grep-candidates candidates function. Grep is run by synchronous process. It is faster when candidate files are in ramdisk. (defalias 'agp-candidates-synchronous-grep #[(&optional filter) "\302\303\304\305\306!\"!\307\"\211\310\232?\205 )\207" [filter x split-string shell-command-to-string agp-command-line-2 anything-attr-defined search-from-end "\n" ("")] 7 (#$ . 15033)]) #@263 [EXPERIMENTAL]Fastest version of grep-candidates candidates function at the cost of absense of transformers. Grep is run by synchronous process. It is faster when candidate files are in ramdisk. If (direct-insert-match) is in the source, this function is used. (defalias 'agp-candidates-synchronous-grep--direct-insert-match #[(&optional filter) "r\301\302!q\210\303\304\305\306!\"\307\310#)\207" [filter anything-candidate-buffer global call-process-shell-command agp-command-line-2 anything-attr-defined search-from-end nil t] 5 (#$ . 15437)]) #@82 Build command line used by grep-candidates from QUERY, FILES, LIMIT, and FILTER. (defalias 'agp-command-line #[(query files &optional limit filter search-from-end) "\306\307\310#\311\312!r\nq\210\313\216 \203\314 \261\210\fG W\203, \204\307\315 \261\210\202\307 \2033\316c\210\317@\320P!!\321\f!\"\322\211#$\323%\":\203\306\"@\211#\211A#\242$\324\325\326###\327%!\204n\316c\210A\204\225 \204\225$\330=\203\225\327%!\203\225!\203\225\331\332#!\261\210\202\251\333$\330=\203\241\334\202\242\335\332#!\261\210 \204\271\327%!\203\271\310 \261\210\"A\"%T%\202I-&\203\323\336\337&\"c\210'\203\336\316'\261\210\340 ,\207" [files allfiles #1=#:temp-buffer search-from-end query anything-grep-candidates-requires-pattern mapconcat #[(f) "\301\302!!\207" [f shell-quote-argument expand-file-name] 3] " " generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) "tac " "cat " " | " file-exists-p ".ary" anything-mp-3-get-patterns-internal nil 0 replace-regexp-in-string "^-" "\\-" zerop identity "sary " shell-quote-argument "grep -ih " "" "-v " format " | head -n %d" buffer-string exist-ary #2=#:--cl-var-- re flag i limit filter] 5 (#$ . 15991)]) #@76 Build command line used by grep-candidates from FILTER and current source. (defalias 'agp-command-line-2 #[(filter &optional search-from-end) "\303\304\305\306\307!!!\310\311 ! \n%\207" [anything-pattern filter search-from-end agp-command-line anything-mklist anything-interpret-value anything-attr grep-candidates anything-candidate-number-limit anything-get-current-source] 6 (#$ . 17250)]) (defalias 'anything-compile-source--grep-candidates #[(source) "\304\305\"\211\203O\306\n\205\307\n\310\311 !!@\206\312\"\311 !\204'\313\202J \2039\314\236\2039\315\316!\210\317\202J \203E\315\320!\210\321\202J\315\322!\210\323)\"\202P)\207" [source it anything-grep-candidates-fast-directory-regexp use-fast-directory assoc-default grep-candidates append string-match anything-mklist anything-interpret-value "" nil direct-insert-match anything-log "fastest version (use-fast-directory and direct-insert-match)" ((candidates . agp-candidates-synchronous-grep--direct-insert-match) (match identity) (volatile)) "faster version (use-fast-directory)" ((candidates . agp-candidates-synchronous-grep) (match identity) (volatile)) "normal version" ((candidates . agp-candidates) (delayed))] 8]) (byte-code "\300\301\302\"\210\303\304\305\306#\210\307\310!\207" [add-to-list anything-compile-source-functions anything-compile-source--grep-candidates anything-document-attribute grep-candidates "grep-candidates plug-in" "grep-candidates plug-in provides anything-match-plugin.el feature with grep and head program.\nIt is MUCH FASTER than normal match-plugin to search from vary large (> 1MB) candidates.\nMake sure to install these programs.\n\nIt expands `candidates' and `delayed' attributes.\n\n`grep-candidates' attribute accepts a filename or list of filename.\nIt also accepts 0-argument function name or variable name." provide anything-match-plugin] 4)