mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-18 8f6f2705a38e2515b6c57fda12c5be29fb9a798f
commit | author | age
5cb5f7 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306\307\310#\210\311\312\307\313\314\303%\210\315\316\317\320\321DD\322\314\312\323\324&\210\315\325\317\320\326DD\327\314\312\323\324&\210\315\330\317\320\331DD\332\314\312\323\324&\210\315\333\317\320\334DD\335\314\312\323\324&\210\315\336\317\320\337DD\340\314\312\323\324&\210\315\341\317\320\342DD\343\314\312\323\344&\210\315\345\317\320\346DD\347\314\312\323\324&\210\315\350\317\320\351DD\352\314\312\323\353&\210\315\354\317\320\355DD\356\314\312\323\324&\210\315\357\317\320\360DD\361\314\312\323\324&\210\315\362\317\320\363DD\364\314\312\323\344&\210\315\365\317\320\366DD\367\314\312\323\370&\210\315\371\317\320\372DD\373\314\312\323\374&\210\315\375\317\320\376DD\377\314\312\323\344&\210\315\201@\317\320\201ADD\201B\314\312\323\201C&\210\315\201D\317\320\201EDD\201F\314\312\323\201G&\210\315\201H\317\320\201IDD\201J\314\312\323\324&\210\315\201K\317\320\201LDD\201M\314\312\323\324&\210\311\201N\307\201O\201P\201Q\314\312\314\201R&    \210\201S\201T\201U\201V\314\201N%\210\201S\201W\201X\201Y\314\201N%\210\201S\201Z\201[\201\\\314\201N%\210\201S\201]\201^\201_\314\201N%\210\201S\201`\201a\201b\314\201N%\207" [require cl-lib format-spec helm helm-help helm-regexp wgrep-helm nil t custom-declare-group helm-grep "Grep related Applications and libraries for Helm." :group custom-declare-variable helm-grep-default-command funcall function #[0 "\300\207" [#1="grep --color=always -a -d skip %e -n%cH -e %p %f"] 1 #1#] "Default grep format command for `helm-do-grep-1'.\nWhere:\n'%e' format spec is for --exclude or --include grep options or\n     ack-grep --type option.               (Not mandatory)\n\n'%c' format spec is for case-fold-search,\n     whether to use the -i option of grep. (Not mandatory)\n     When you specify this spec, helm grep will use smartcase\n     that is when a upcase character is found in pattern case will\n     be respected and no '-i' option will be used, otherwise, when\n     no upcase character is found in pattern always use '-i'.\n     If you don't want this behavior, don't use this spec and\n     specify or not the '-i' option.\n     Note that with ack-grep this is not needed, just specify\n     the '--smart-case' option.\n\n'%p' format spec is for pattern.           (Mandatory)\n\n'%f' format spec is for filenames.         (Mandatory)\n\nIf your grep version doesn't support the --exclude/include args\ndon't specify the '%e' format spec.\n\nHelm also support ack-grep and git-grep ,\nhere a default command example for ack-grep:\n\n(setq helm-grep-default-command \"ack-grep -Hn --color --smart-case --no-group %e %p %f\"\n       helm-grep-default-recurse-command \"ack-grep -H --color --smart-case --no-group %e %p %f\")\n\nYou can ommit the %e spec if you don't want to be prompted for types.\n\nNOTE: Helm for ack-grep support ANSI sequences, so you can remove\nthe \"--no-color\" option safely (recommended)\nHowever you should specify --color to enable multi matches highlighting\nbecause ack disable it when output is piped.\n\nSame for grep you can use safely the option \"--color=always\" (default).\nYou can customize the color of matches using GREP_COLORS env var.\ne.g: (setenv \"GREP_COLORS\" \"ms=30;43:mc=30;43:sl=01;37:cx=:fn=35:ln=32:bn=32:se=36\")\n\nTo enable ANSI color in git-grep just add \"--color=always\".\nTo customize the ANSI color in git-grep, GREP_COLORS have no effect,\nyou will have to setup this in your .gitconfig:\n\n    [color \"grep\"]\n        match = black yellow\n\nwhere \"black\" is the foreground and \"yellow\" the background.\nSee the git documentation for more infos.\n\n`helm-grep-default-command' and `helm-grep-default-recurse-command'are\nindependents, so you can enable `helm-grep-default-command' with ack-grep\nand `helm-grep-default-recurse-command' with grep if you want to be faster\non recursive grep.\n\nNOTE: Remote grepping is not available with ack-grep,\n      and badly supported with grep because tramp handle badly\n      repeated remote processes in a short delay (< to 5s)." :type string helm-grep-default-recurse-command #[0 "\300\207" [#2="grep --color=always -a -d recurse %e -n%cH -e %p %f"] 1 #2#] "Default recursive grep format command for `helm-do-grep-1'.\nSee `helm-grep-default-command' for format specs and infos about ack-grep." helm-default-zgrep-command #[0 "\300\207" [#3="zgrep --color=always -a -n%cH -e %p %f"] 1 #3#] "Default command for Zgrep.\nSee `helm-grep-default-command' for infos on format specs.\nOption --color=always is supported and can be used safely\nto replace the helm internal match highlighting,\nsee `helm-grep-default-command' for more infos." helm-pdfgrep-default-command #[0 "\300\207" [#4="pdfgrep --color always -niH %s %s"] 1 #4#] "Default command for pdfgrep.\nOption \"--color always\" is supported starting helm version 1.7.8,\nwhen used matchs will be highlighted according to GREP_COLORS env var." helm-pdfgrep-default-recurse-command #[0 "\300\207" [#5="pdfgrep --color always -rniH %s %s"] 1 #5#] "Default recurse command for pdfgrep.\nOption \"--color always\" is supported starting helm version 1.7.8,\nwhen used matchs will be highlighted according to GREP_COLORS env var." helm-grep-use-ioccur-style-keys #[0 "\300\207" [t] 1] "Use Arrow keys to jump to occurences." boolean helm-pdfgrep-default-read-command #[0 "\300\207" [nil] 1] "Default command to read pdf files from pdfgrep.\nWhere '%f' format spec is filename and '%p' is page number.\ne.g In Ubuntu you can set it to:\n\n    \"evince --page-label=%p '%f'\"\n\nIf set to nil either `doc-view-mode' or `pdf-view-mode' will be used\ninstead of an external command." helm-grep-max-length-history #[0 "\300\207" [100] 1] "Max number of elements to save in `helm-grep-history'." integer helm-zgrep-file-extension-regexp #[0 "\300\207" [#6=".*\\(\\.gz\\|\\.bz\\|\\.xz\\|\\.lzma\\)$"] 1 #6#] "Default file extensions zgrep will search in." helm-grep-preferred-ext #[0 "\300\207" [nil] 1] "This file extension will be preselected for grep." helm-grep-save-buffer-name-no-confirm #[0 "\300\207" [nil] 1] "when *hgrep* already exists,auto append suffix." helm-grep-ignored-files #[0 "\301\302\303\304\305\"\"B\207" [completion-ignored-extensions ".#*" delq nil mapcar #[257 "\301\302\303\304#)\266\203?\205\305P\207" [inhibit-changing-match-data "/\\'" nil t string-match "*"] 8 "\n\n(fn S)"]] 6] "List of file names which `helm-grep' shall exclude." (repeat string) helm-grep-ignored-directories #[0 "\207" [helm-walk-ignore-directories] 1] "List of names of sub-directories which `helm-grep' shall not recurse into." (repeat string) helm-grep-truncate-lines #[0 "\300\207" [t] 1] "When nil the grep line that appears will not be truncated." helm-grep-file-path-style #[0 "\300\207" [basename] 1] "File path display style when grep results are displayed.\nPossible value are:\n    basename: displays only the filename, none of the directory path\n    absolute: displays absolute path\n    relative: displays relative path from root grep directory." (choice (const :tag "Basename" basename) (const :tag "Absolute" absolute) (const :tag "Relative" relative)) helm-grep-actions #[0 "\300\301\302\303\304\305\306\307\310&\207" [helm-make-actions "Find File" helm-grep-action "Find file other frame" helm-grep-other-frame "Save results in grep buffer" helm-grep-save-results "Find file other window (C-u vertically)" helm-grep-other-window] 9] "Actions for helm grep." (alist :key-type string :value-type function) helm-grep-pipe-cmd-switches #[0 "\300\207" [nil] 1] "A list of additional parameters to pass to grep pipe command.\nThis will be used for pipe command for multiple pattern matching\nfor grep, zgrep ack-grep and git-grep backends.\nIf you add extra args for ack-grep, use ack-grep options,\nfor others (grep, zgrep and git-grep) use grep options.\nHere are the commands where you may want to add switches:\n\n    grep --color=always\n    ack-grep --smart-case --color\n\nYou probably don't need to use this unless you know what you are doing." helm-grep-ag-pipe-cmd-switches #[0 "\300\207" [nil] 1] "A list of additional parameters to pass to grep-ag pipe command.\nUse parameters compatibles with the backend you are using\n(i.e AG for AG, PT for PT or RG for RG)\n\nYou probably don't need to use this unless you know what you are doing." helm-grep-faces "Customize the appearance of helm-grep." :prefix "helm-" helm-faces custom-declare-face helm-grep-match ((((background light)) :foreground "#b00000") (((background dark)) :foreground "gold1")) "Face used to highlight grep matches.\nHave no effect when grep backend use \"--color=\"." helm-grep-file ((t (:foreground "BlueViolet" :underline t))) "Face used to highlight grep results filenames." helm-grep-lineno ((t (:foreground "Darkorange1"))) "Face used to highlight grep number lines." helm-grep-finish ((t (:foreground "Green"))) "Face used in mode line when grep is finish." helm-grep-cmd-line ((t (:inherit font-lock-type-face))) "Face used to highlight grep command line when no results."] 10)
16 #@30 Keymap used in Grep sources.
17 (defvar helm-grep-map (byte-code "\302 \303\"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\320#\210    \203;\304\321\322#\210\304\323\324#\210\325\326\"\207" [helm-map helm-grep-use-ioccur-style-keys make-sparse-keymap set-keymap-parent define-key [M-down] helm-goto-next-file [M-up] helm-goto-precedent-file "o" helm-grep-run-other-window-action "" helm-grep-run-other-frame-action "" helm-grep-run-save-buffer "" helm-delete-backward-no-update [right] helm-execute-persistent-action [left] helm-grep-run-default-action delq nil] 5) (#$ . 9566))
18 #@25 Keymap used in pdfgrep.
19 (defvar helm-pdfgrep-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\211\207" [helm-map make-sparse-keymap set-keymap-parent define-key [M-down] helm-goto-next-file [M-up] helm-goto-precedent-file "" helm-delete-backward-no-update] 5) (#$ . 10215))
20 (defvar helm-grep-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\307#\210\301\317\311#\210\301\320\313#\210\301\321\315#\210\211\207" [make-sparse-keymap define-key " " helm-grep-mode-jump "" helm-grep-mode-jump-other-window [C-down] helm-grep-mode-jump-other-window-forward [C-up] helm-grep-mode-jump-other-window-backward [M-down] helm-gm-next-file [M-up] helm-gm-precedent-file [134217838] [134217840] [134217806] [134217808]] 5))
21 (defvar helm-rzgrep-cache (make-hash-table :test 'equal))
22 (defvar helm-grep-default-function 'helm-grep-init)
23 (defvar helm-zgrep-recurse-flag nil)
24 (defvar helm-grep-history nil)
25 (defvar helm-grep-ag-history nil)
26 (defvar helm-grep-last-targets nil)
27 (defvar helm-grep-include-files nil)
28 (defvar helm-grep-in-recurse nil)
29 (defvar helm-grep-use-zgrep nil)
30 #@138 A function that should return a directory to expand candidate to.
31 It is intended to use as a let-bound variable, DON'T set this globaly.
32 (defvar helm-grep-default-directory-fn nil (#$ . 11423))
33 (defvar helm-pdfgrep-targets nil)
34 (defvar helm-grep-last-cmd-line nil)
35 (defvar helm-grep-split-line-regexp "^\\([[:lower:][:upper:]]?:?.*?\\):\\([0-9]+\\):\\(.*\\)")
36 #@99 Prepare filenames and directories CANDIDATES for grep command line.
37
38 (fn CANDIDATES IN-DIRECTORY)
39 (defalias 'helm-grep-prepare-candidates #[514 "\203\n\303\304\305#\207\306\211:\203{@\262\307\310\311    \"\203$C\202q\312!\203:\n\2043\313 \203:\314!C\202q\312!\203N\315\316\314!!\317P\320\"\202q\321!\204[\310\322\"\203m\n\203m\314\323\324\323!!!!C\202q\315\320\"\"\262A\262\202 \325!\203\210\326\327\"\202\211\211\330\331\332#\262\310\311    \"\203\237\303\333\305#\202\244\303\304\305#\262\207" [helm-zgrep-recurse-flag helm-grep-default-command helm-grep-in-recurse mapconcat shell-quote-argument " " nil append string-match "^git" file-directory-p helm-grep-use-ack-p expand-file-name file-expand-wildcards file-name-as-directory "*" t file-exists-p "[*]" directory-file-name file-name-directory file-remote-p mapcar #[257 "\300\301\"\207" [file-remote-p localname] 4 "\n\n(fn X)"] helm-fast-remove-dups :test equal identity] 12 (#$ . 11789)])
40 #@33 
41
42 (fn &optional RECURSIVE GREP)
43 (defalias 'helm-grep-command #[512 "\203\202        \203\302!\202\211\205\303\304\"@\211\203*\211\305\230\203*\306\202+\211\207" [helm-grep-default-recurse-command helm-grep-default-command symbol-name split-string " " "git" "git-grep"] 6 (#$ . 12784)])
44 #@19 
45
46 (fn &key WHERE)
47 (defalias 'helm-grep-use-ack-p #[128 "\300\301\"A@\211\2031\211@\302>\203\211AA\262\202\303>A@\203(\304\262\202\305\306@\"\210\202\210\307\310!\307 \311\312\"\205C\311\312\"\313\267\202i\205n\202n\205n\211\202n\205n\205n\211\205n\202n\205n\266\204\207" [plist-member :where (:where :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:where)" helm-grep-command t string-match "\\`ack" #s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (default 73 recursive 81 strict 89))] 8 (#$ . 13087)])
48 #@51 
49
50 (fn SMARTCASE PIPE-SWITCHES &optional GREP-CMD)
51 (defalias 'helm-grep--pipe-command-for-grep-command #[770 "\211\206\301 \211\302\235\203\303\304\203\305\202\306#\2029\307\310\311\312#)\266\203\2038\211\303\313#\262\2029\310\207" [inhibit-changing-match-data helm-grep-command ("git-grep" "zgrep" "grep") format "grep --color=always%s %s" " -i" "" "ack" nil t string-match "%s --smart-case --color %s"] 11 (#$ . 13704)])
52 #@43 
53
54 (fn ONLY-FILES &optional INCLUDE ZGREP)
55 (defalias 'helm-grep--prepare-cmd-line #[769 "\206\n\306 \206\n    \307    \"\310 ?\205\311\312\n\313#\310 ?\205%\311\314 \313#\310 ?\205;\f\203:\2064\313Q\202;\310 \205E\206E\315\310 \203N\315\202e\316\317!\316\320\"\321#)\266\203)?\205e\322#\323P#\324!\320\"\311\325$\313#A\211\203\245\326\"\316\315:\203\240@\262\211\327\330\331!#P\262A\262\202\203\266\203\202\246\315\262\332#\333\316 ?\205\303\203\277\334    B\202\303\334\nB\335    \206\312\315B\336\331\n@!B\337B\340    B\257\"\"*\207" [helm-ff-default-directory default-directory helm-grep-ignored-files helm-grep-ignored-directories helm-grep-in-recurse case-fold-search helm-default-directory helm-grep-prepare-candidates helm-grep-use-ack-p mapconcat #[257 "\300\301!P\207" ["--exclude=" shell-quote-argument] 4 "\n\n(fn X)"] " " #[257 "\300\301!P\207" ["--exclude-dir=" shell-quote-argument] 4 "\n\n(fn X)"] "" nil "[[:upper:]]" t string-match "i" " %m" helm-mm-split-pattern identity helm-grep--pipe-command-for-grep-command format " | %s %s" shell-quote-argument format-spec delq 101 99 112 102 109 helm-pattern inhibit-changing-match-data helm-grep-default-command helm-grep-pipe-cmd-switches] 22 (#$ . 14154)])
56 #@90 Start an asynchronous grep process with CMD-LINE using ZGREP if non--nil.
57
58 (fn CMD-LINE)
59 (defalias 'helm-grep-init #[257 "\206\n\306 \206\n    \307\310\"\211?\205\311  \312  \203#\313\2022\314#\203/\315\316!\2021\315 !\317$\320\321    \"\210\320\322\323\324\325\326#\327Q\"\210\330%#\331\332%!\333\334\335\336\337        \"\340\"\341\342%\"\210,\207" [helm-ff-default-directory default-directory process-connection-type helm-tramp-verbose tramp-verbose helm-grep-use-zgrep helm-default-directory string-match "\\`zgrep" helm-grep-use-ack-p float-time "Zgrep" capitalize helm-grep-command t nil helm-log "Starting Grep process in directory `%s'" "Command line used was:\n\n%s" ">>> " propertize face helm-grep-cmd-line "\n\n" start-file-process-shell-command set-process-sentinel get-buffer-process make-byte-code 514 "\306!\211\307U\203\310V\204\311\312 #\210\211\203Lr\313 q\210\314 )\203Lr\313 q\210\315\316\317\n\320\321#Qc\210\322\323\322\324\322\325\317\326\327\301E\330BBD\257\211)\202\272\331\230\204a\211\203\260r\313 q\210\314 )\204\260\332\333\301\334 \335 \300Z$\210\336 \210\337\340 !r\341\310\342\343\344!\345\"\346$\216\347@\350\"\210\322\323\322\351\322\325\317\326\352\301\335 \300Z\353BBBB\354BBD\257\355 \210\f\205\252\356 !*\262\202\272\332\357\301\360\361\362##\207" vconcat vector [helm-grep-last-cmd-line mode-line-format helm-allow-mouse helm-selection-point process-exit-status 1 0 helm-process-deferred-sentinel-hook helm-default-directory helm-buffer-get helm-empty-buffer-p "* Exit with code 1, no result found," " command line was:\n\n " propertize face helm-grep-cmd-line " " mode-line-buffer-identification (:eval (format "L%s" (helm-candidate-number-at-point))) :eval format "[%s process finished - (no results)] " ('face 'helm-grep-finish) "finished\n" helm-log "%s process finished with %s results in %fs" helm-get-candidate-number float-time helm-maybe-show-help-echo internal--before-with-selected-window helm-window make-byte-code "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord (:eval (format "L%s" (helm-candidate-number-at-point))) "[%s process finished in %.2fs - (%s results)] " ((helm-get-candidate-number)) ('face 'helm-grep-finish) force-mode-line-update helm--bind-mouse-for-selection "Error: %s %s" replace-regexp-in-string "\n" ""] 17 "\n\n(fn PROCESS EVENT)" helm-grep-in-recurse non-essential helm-buffer] 14 (#$ . 15433)])
60 (defalias 'helm-grep-collect-candidates #[0 "\305    \n#\306\303!\210\211\f!\207" [helm-grep-last-targets helm-grep-include-files helm-grep-use-zgrep helm-grep-last-cmd-line helm-grep-default-function helm-grep--prepare-cmd-line make-local-variable] 4])
61 #@139 Define a default action for `helm-do-grep-1' on CANDIDATE.
62 WHERE can be one of other-window, other-frame.
63
64 (fn CANDIDATE &optional WHERE)
65 (defalias 'helm-grep-action #[513 "\306!\307!\310A@!r    \311=\203p\202\nq\210\312\313 \314\")\206$@\315 \206*\f\316\"\315 \2062\f\317\"\320\321\321\260\203E\211P\202F\322\267\202\222\323\324!C\325\"\210\202\226\326!\210\202\226\327 \210\202\226 \203v\330\n@#\210\202\226\331@!\210\332\333!\203\212\334!\210\202\226\335!\210\202\226\331!\210\336=\204\251\337=\204\251\340!\210\341\211:\203\350@\262\212\3421\323,\203\311\343\344 \325#\202\317\345\344 \325#0\202\326\341\262)\203\341\211\346\224C\244\262A\262\202\255\211\203\362\347\350\"b\210\266-\206    \311=\206.\351\230?\205&.\352./\"B\211/G0V\205&\352\353/!@/\"\211/\207" [helm-input major-mode helm-buffer helm-ff-default-directory default-directory helm-pdfgrep-default-read-command helm-grep-split-line helm-mm-split-pattern string-to-number helm-grep-mode get-text-property point-at-bol helm-grep-fname file-remote-p method host "/" ":" #s(hash-table size 4 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (other-window 77 other-frame 88 grep 95 pdf 101)) helm-window-show-buffers find-file-noselect t find-file-other-frame helm-grep-save-results-1 helm-pdfgrep-action-1 find-file derived-mode-p pdf-view-mode pdf-view-goto-page doc-view-goto-page grep pdf helm-goto-line nil (invalid-regexp) helm-mm-migemo-forward point-at-eol re-search-forward 0 apply min "" delete last helm-migemo-mode helm-in-persistent-action helm-pattern helm-grep-history helm-grep-max-length-history] 18 (#$ . 18153)])
66 #@108 Persistent action for `helm-do-grep-1'.
67 With a prefix arg record CANDIDATE in `mark-ring'.
68
69 (fn CANDIDATE)
70 (defalias 'helm-grep-persistent-action #[257 "\300!\210\301 \207" [helm-grep-action helm-highlight-current-line] 3 (#$ . 19855)])
71 #@64 Jump to result in other window from helm grep.
72
73 (fn CANDIDATE)
74 (defalias 'helm-grep-other-window #[257 "\300\301\"\207" [helm-grep-action other-window] 4 (#$ . 20099)])
75 #@63 Jump to result in other frame from helm grep.
76
77 (fn CANDIDATE)
78 (defalias 'helm-grep-other-frame #[257 "\300\301\"\207" [helm-grep-action other-frame] 4 (#$ . 20275)])
79 #@127 Go to next or precedent candidate file in helm grep/etags buffers.
80 If N is positive go forward otherwise go backward.
81
82 (fn N)
83 (defalias 'helm-goto-next-or-prec-file #[257 "\302=\206    \303=\211\203\304 \305 {\202\306\307\310\"\311!\211@\312=\203(\313\202)\314\315\3162l ?\205ky\210\304 \305 {\262    \203F\317 \210\311!@\230\204.\302=\203^\320\304 \321\"\203.\211!\210\322\316\307\"\210\202.0\210\323V\203\207m\203\207\324\325!\210\323y\210\211!\210\202\252\323W\203\252o\203\252\326\304 \321\"\211\203\241\211b\210\202\244\312y\210\210\211!\210?\205\265\327 \210\330\331!\207" [major-mode helm-allow-mouse helm-grep-mode helm-moccur-mode point-at-bol point-at-eol helm-get-selection nil t helm-grep-split-line 1 eobp bobp #[257 "\211\203\300\207\301 \207" [nil helm-mark-current-line] 2 "\n\n(fn ALLOW-MODE)"] break helm--mouse-reset-selection-help-echo get-text-property helm-grep-fname throw 0 re-search-backward "." next-single-property-change helm-follow-execute-persistent-action-maybe helm-log-run-hook helm-move-selection-after-hook] 10 (#$ . 20449)])
84 #@50 Go to precedent file in helm grep/etags buffers.
85 (defalias 'helm-goto-precedent-file #[0 "\203 \301\302 !r\303\304\305\306\307!\310\"\311$\216\312@\313\"\210\314\315!*\207\316\317!\207" [helm-alive-p internal--before-with-selected-window helm-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord helm-goto-next-or-prec-file -1 error "Running helm command outside of context"] 7 (#$ . 21557) nil])
86 (put 'helm-goto-precedent-file 'helm-only t)
87 #@50 Go to precedent file in helm grep/etags buffers.
88 (defalias 'helm-goto-next-file #[0 "\300\301 !r\302\303\304\305\306!\307\"\310$\216\311@\312\"\210\313\314!*\207" [internal--before-with-selected-window helm-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord helm-goto-next-or-prec-file 1] 7 (#$ . 22075) nil])
89 #@48 Run grep default action from `helm-do-grep-1'.
90 (defalias 'helm-grep-run-default-action #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-grep-action error "Running helm command outside of context"] 2 (#$ . 22461) nil])
91 (put 'helm-grep-run-default-action 'helm-only t)
92 #@58 Run grep goto other window action from `helm-do-grep-1'.
93 (defalias 'helm-grep-run-other-window-action #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-grep-other-window error "Running helm command outside of context"] 2 (#$ . 22773) nil])
94 (put 'helm-grep-run-other-window-action 'helm-only t)
95 #@57 Run grep goto other frame action from `helm-do-grep-1'.
96 (defalias 'helm-grep-run-other-frame-action #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-grep-other-frame error "Running helm command outside of context"] 2 (#$ . 23111) nil])
97 (put 'helm-grep-run-other-frame-action 'helm-only t)
98 #@53 Run grep save results action from `helm-do-grep-1'.
99 (defalias 'helm-grep-run-save-buffer #[0 "\203\301\302!\207\303\304!\207" [helm-alive-p helm-exit-and-execute-action helm-grep-save-results error "Running helm command outside of context"] 2 (#$ . 23445) nil])
100 (put 'helm-grep-run-save-buffer 'helm-only t)
101 #@18 
102
103 (fn CANDIDATE)
104 (defalias 'helm-grep-save-results #[257 "\300\301\"\207" [helm-grep-action grep] 4 (#$ . 23762)])
105 #@53 Save helm grep result in a `helm-grep-mode' buffer.
106 (defalias 'helm-grep-save-results-1 #[0 "\306\307r\310 q\210)\311\312\313 \"\314!\203X    \203$\315\316\317\320!#\262\202U\321\322\"\262\323 \307:\203S@\262\230\203L\324\315\325\"!\204L\321\322\326\"\262A\262\202-\266\262r\327!q\210\n\206h\330 \206h \331\211\332 \333 \210\334\315\335#\261\210\212r3q\210eb\210\336y\210`d{)c\210)\212m\204\302\337\340 \341 \342\343\344`\345\"\346P\347BBBB#\210\350\351\352#\210\350\353\354#\210\350\355\356#\210\336y\210\202\221*\266\357 \210)\360!\210\361\362#\207" [helm-input-local helm-grep-save-buffer-name-no-confirm helm-ff-default-directory default-directory buffer-read-only inhibit-read-only "*hgrep*" nil helm-buffer-get assoc-default name helm-get-current-source get-buffer format "*hgrep|%s|-%s" format-time-string "%H-%M-%S*" helm-read-string "GrepBufferName: " helm-buffer-list y-or-n-p "Buffer `%s' already exists overwrite? " "*hgrep " get-buffer-create helm-default-directory t make-sparse-keymap erase-buffer "-*- mode: helm-grep -*-\n\n" "%s Results for `%s':\n\n" 1 add-text-properties point-at-bol point-at-eol keymap help-echo get-text-property helm-grep-fname "\nmouse-1: set point\nmouse-2: jump to selection" (mouse-face highlight) define-key [mouse-1] mouse-set-point [mouse-2] helm-grep-mode-mouse-jump [mouse-3] ignore helm-grep-mode pop-to-buffer message "Helm %s Results saved in `%s' buffer" helm-buffer] 16 (#$ . 23884)])
107 #@14 
108
109 (fn EVENT)
110 (defalias 'helm-grep-mode-mouse-jump #[257 "\301!\211@\262\302\301!!\303!r\304\305\306\307\310!\311\"\312$\216\313@\314\"\210\315=\205-b\210\316 *\262\207" [major-mode event-end posn-point internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord helm-grep-mode helm-grep-mode-jump] 10 (#$ . 25376) "e"])
111 (put 'helm-grep-mode-mouse-jump 'helm-only t)
112 (defvar helm-grep-mode-hook nil)
113 (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [helm-grep-mode-hook variable-documentation put "Hook run after entering helm-grep mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp helm-grep-mode-map definition-name helm-grep-mode] 4)
114 (defvar helm-grep-mode-map (make-sparse-keymap))
115 (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [helm-grep-mode-abbrev-table helm-grep-mode-map variable-documentation put purecopy "Keymap for `helm-grep-mode'." boundp helm-grep-mode-syntax-table definition-name helm-grep-mode (lambda (#1=#:def-tmp-var) (defvar helm-grep-mode-syntax-table #1#)) make-syntax-table "Syntax table for `helm-grep-mode'." (lambda (#1#) (defvar helm-grep-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `helm-grep-mode'." derived-mode-parent special-mode] 5)
116 #@275 Major mode to provide actions in helm grep saved buffer.
117
118 Special commands:
119 \{helm-grep-mode-map}
120
121 In addition to any hooks its parent mode `special-mode' might have run,
122 this mode runs the hook `helm-grep-mode-hook', as the final or penultimate step
123 during initialization.
124 (defalias 'helm-grep-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R =\204R\326 \325C#\210\327 !\210\330\f!\210 \306\331!\210r\332 q\210)\306\333!\210\334)\335\336!\207" [delay-mode-hooks major-mode mode-name helm-grep-mode-map helm-grep-mode-syntax-table helm-grep-mode-abbrev-table make-local-variable t special-mode helm-grep-mode "helm-grep" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table helm-grep-last-cmd-line helm-buffer-get revert-buffer-function helm-grep-mode--revert-buffer-function run-mode-hooks helm-grep-mode-hook local-abbrev-table] 5 (#$ . 27035) nil])
125 (put 'helm-grep-mode 'helm-only t)
126 #@40 
127
128 (fn &optional IGNORE-AUTO NOCONFIRM)
129 (defalias 'helm-grep-mode--revert-buffer-function #[512 "eb\210\305\306\307#\203\310y\210\307`d|\210)\311\312!\210\313\n\306\307\314#)\266\203?\315\316\317\320\321!\n#\322\")\207" [helm-grep-split-line-regexp inhibit-read-only helm-grep-last-cmd-line inhibit-changing-match-data process-connection-type re-search-forward nil t 0 message "Reverting buffer..." "\\`git" string-match set-process-sentinel start-file-process-shell-command "hgrep" generate-new-buffer "*hgrep revert*" helm-grep-mode--sentinel] 9 (#$ . 28241)])
130 #@22 
131
132 (fn PROCESS EVENT)
133 (defalias 'helm-grep-mode--sentinel #[514 "\211\304\230\205arpq\210\305\212r\306!q\210\307\310 \311\"\312 \210)\313\211:\203Z@\262    \313\305\314#)\266\203\203=\315!\202>\262\314 \"\203S\316\317!@\320#\311\261\210A\262\202\266*\321\322!)\207" [inhibit-read-only helm--ansi-color-regexp inhibit-changing-match-data helm-grep-split-line-regexp "finished\n" t process-buffer split-string buffer-string "\n" kill-buffer nil string-match helm--ansi-color-apply propertize helm-grep-filter-one-by-one helm-realvalue message "Reverting buffer done"] 12 (#$ . 28818)])
134 (defalias 'helm-gm-next-file #[0 "\300\301!\207" [helm-goto-next-or-prec-file 1] 2 nil nil])
135 (defalias 'helm-gm-precedent-file #[0 "\300\301!\207" [helm-goto-next-or-prec-file -1] 2 nil nil])
136 (defalias 'helm-grep-mode-jump #[0 "\300\301 \302 {!\210\303 \207" [helm-grep-action point-at-bol point-at-eol helm-match-line-cleanup-pulse] 3 nil nil])
137 #@12 
138
139 (fn ARG)
140 (defalias 'helm-grep-mode-jump-other-window-1 #[257 "\300 \301 {\3021+\303 r\304\305\306\307\310!\311\"\312$\216\313\314\"\210\315 \210\316 \210*\210y0\202-\210\317\207" [point-at-bol point-at-eol (error) internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 helm-grep-action other-window helm-match-line-cleanup-pulse recenter nil] 9 (#$ . 29777)])
141 (defalias 'helm-grep-mode-jump-other-window-forward #[0 "\300\301!\207" [helm-grep-mode-jump-other-window-1 1] 2 nil nil])
142 (defalias 'helm-grep-mode-jump-other-window-backward #[0 "\300\301!\207" [helm-grep-mode-jump-other-window-1 -1] 2 nil nil])
143 (defalias 'helm-grep-mode-jump-other-window #[0 "\300 \301 {\3021\303\304\"\210\305 0\202\210\306\207" [point-at-bol point-at-eol (error) helm-grep-action other-window helm-match-line-cleanup-pulse nil] 4 nil nil])
144 #@40 Return a list of known ack-grep types.
145 (defalias 'helm-grep-hack-types #[0 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\313!\314\313\314\315%\210eb\210\314\316\317\314\313#\203R\320\310!\321\320\322!\323R\320\310!BB\262\324\320\310!\321\320\322!\323\260\324\320\310!PBB\262\202!\211\237\262*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 call-process helm-grep-command t nil "--help-types" re-search-forward "^ *--\\(\\[no\\]\\)\\([^. ]+\\) *\\(.*\\)" match-string " [" 3 "]" "no"] 7 (#$ . 30690)])
146 #@26 
147
148 (fn CANDIDATES SOURCE)
149 (defalias 'helm-grep-ack-types-transformer #[514 "\301\211:\203(@\262;\203\302\"B\262\202!B\262A\262\202\211\237\207" [helm-grep-ack-types-cache nil rassoc] 8 (#$ . 31305)])
150 (defvar helm-grep-ack-types-cache nil)
151 #@53 Select types for the '--type' argument of ack-grep.
152 (defalias 'helm-grep-read-ack-type #[0 "\301\302!\210\301\303!\210\304 \305\306\307\310\311\312\313\312\314\315\316\317&\f\320\321\322#\207" [helm-grep-ack-types-cache require helm-mode helm-adaptive helm-grep-hack-types helm-comp-read "Types: " :name "*Ack-grep types*" :marked-candidates t :must-match :fc-transformer (helm-adaptive-sort helm-grep-ack-types-transformer) :buffer "*helm ack-types*" mapconcat #[257 "\300P\207" ["--type="] 3 "\n\n(fn TYPE)"] " "] 13 (#$ . 31569)])
153 #@156 Try to guess file extensions in FILES list when using grep recurse.
154 These extensions will be added to command line with --include arg of grep.
155
156 (fn FILES)
157 (defalias 'helm-grep-guess-extensions #[257 "\303D\304@!\203\305@\306    #\202\211\306\211\211\211:\203h@\262\307\310\"\262\2056\311\230?\2056\303P\262\203a\211\203F\235\204a\211\203Q\235\204a\211\203[\n\235\204a\211C\244\262A\262\202\312\306\313    \"\"\207" [helm-grep-preferred-ext directory-files-no-dot-files-regexp helm-grep-ignored-files "*" file-directory-p directory-files nil file-name-extension dot "" delq append] 13 (#$ . 32114)])
158 #@89 Try to return a list of file extensions to pass to '--include' arg of grep.
159
160 (fn FILES)
161 (defalias 'helm-grep-get-file-extensions #[257 "\300\301!\210\302\303\304\"!\305\306\307\310\311\312\313\314\315\316&\n\211<\205=\211\317\211:\2039@\262\320\321\322\"!\244\262A\262\202\211\237\266\203\207" [require helm-adaptive helm-grep-guess-extensions mapcar expand-file-name helm-comp-read "Search Only in: " :marked-candidates t :fc-transformer helm-adaptive-sort :buffer "*helm grep exts*" :name "*helm grep extensions*" nil reverse split-string-and-unquote " "] 13 (#$ . 32755)])
162 #@58 Hook that runs before initialization of the helm buffer.
163 (defvar helm-grep-before-init-hook nil (#$ . 33351))
164 #@57 Hook that runs after initialization of the helm buffer.
165 (defvar helm-grep-after-init-hook nil (#$ . 33467))
166 (byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias helm-grep-class-p eieio-make-class-predicate helm-grep-class helm-grep-class--eieio-childp eieio-make-child-predicate helm-grep-class-child-p make-obsolete "use (cl-typep ... \\='helm-grep-class) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-async) ((candidates-process :initform 'helm-grep-collect-candidates) (filter-one-by-one :initform 'helm-grep-filter-one-by-one) (keymap :initform helm-grep-map) (pcre :initarg :pcre :initform nil :documentation "  Backend is using pcre regexp engine when non--nil.") (nohighlight :initform t) (nomark :initform t) (backend :initarg :backend :initform nil :documentation "  The grep backend that will be used.\n  It is actually used only as an internal flag\n  and don't set the backend by itself.\n  You probably don't want to modify this.") (candidate-number-limit :initform 9999) (help-message :initform 'helm-grep-help-message) (history :initform 'helm-grep-history) (action :initform 'helm-grep-actions) (persistent-action :initform 'helm-grep-persistent-action) (persistent-help :initform "Jump to line (`C-u' Record in mark ring)") (requires-pattern :initform 2) (before-init-hook :initform 'helm-grep-before-init-hook) (after-init-hook :initform 'helm-grep-after-init-hook) (group :initform 'helm-grep)) nil] 6)
167 #@72 Create a new object of class type `helm-grep-class'.
168
169 (fn &rest SLOTS)
170 (defalias 'helm-grep-class #[128 "\300\301\302#\207" [apply make-instance helm-grep-class] 5 (#$ . 35040)])
171 (byte-code "\300\301\302\303#\300\207" [function-put helm-grep-class compiler-macro helm-grep-class--anon-cmacro] 4)
172 #@26 
173
174 (fn WHOLE &rest SLOTS)
175 (defalias 'helm-grep-class--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 35343)])
176 (defvar helm-source-grep nil)
177 (byte-code "\300\301\302\301\303\"\"\210\304\301\303\305\306$\207" [eieio--defalias helm--setup-source eieio--defgeneric-init-form nil eieio--defmethod helm-grep-class #[257 "\303 \210\205\304\305\"\306=\203    \202\n\211\205%\307\310\311\310\"#\262\207" [helm-follow-mode-persistent helm-source-grep-git helm-source-grep call-next-method slot-value backend git eieio-oset follow assoc-default] 9 "\n\n(fn SOURCE)"]] 5)
178 #@1030 Launch helm using backend BACKEND on a list of TARGETS files.
179
180 When RECURSE is given and BACKEND is 'grep' use -r option of
181 BACKEND and prompt user for EXTS to set the --include args of BACKEND.
182 Interactively you can give more than one arg separated by space at prompt.
183 e.g
184     $Pattern: *.el *.py *.tex
185
186 From lisp use the EXTS argument as a list of extensions as above.
187 If you are using ack-grep, you will be prompted for --type
188 instead and EXTS will be ignored.
189 If prompt is empty `helm-grep-ignored-files' are added to --exclude.
190
191 Argument DEFAULT-INPUT is use as `default' arg of `helm' and INPUT
192 is used as `input' arg of `helm', See `helm' docstring.
193
194 Arg BACKEND when non--nil specify which backend to use
195 It is used actually to specify 'zgrep' or 'git'.
196 When BACKEND 'zgrep' is used don't prompt for a choice
197 in recurse, and ignore EXTS, search being made recursively on files matching
198 `helm-zgrep-file-extension-regexp' only.
199
200 (fn TARGETS &optional RECURSE BACKEND EXTS DEFAULT-INPUT INPUT (SOURCE \='helm-source-grep))
201 (defalias 'helm-do-grep-1 #[1665 "\211\203 \211A\262\242\202\306\203\307\310\311\312G\\D\"\210\313\314\315\316\"\205<\317=?\205<\211?\205<\206<\320    !\211\205S\321\322G\323V\203P\324\325\"\202Q\326#\211?\205r\317=?\205r    \205r\205r\327\330    \"\205r\331 \332\333\f\f\"!\n\317=\203\205\n\202\232\n\334=\203\220 \202\232 \203\231\f\202\232    \335 !\203\244\336 !\2107\204\255%7\337\340\205\270 \317=\341\342    \206\303\343\344\317=\301\f\3457&\210\346\347\350\351\352\313\3538\327#)\266\203&L\210\354\355\356\357\360\333\"\"\361\362\3639\364\365\366:&)\266\206\207" [non-essential helm-grep-default-command helm-default-zgrep-command helm-grep-git-grep-command helm-grep-default-recurse-command helm-action-buffer helm-source-grep signal wrong-number-of-arguments helm-do-grep-1 7 nil helm-grep-use-ack-p :where recursive zgrep helm-grep-get-file-extensions mapconcat #[257 "\300\301!P\207" ["--include=" shell-quote-argument] 4 "\n\n(fn X)"] 1 remove "*" " " string-match "%e" helm-grep-read-ack-type capitalize helm-grep-command git get-buffer kill-buffer helm-set-local-variable helm-zgrep-recurse-flag helm-grep-last-targets helm-grep-include-files helm-grep-in-recurse helm-grep-use-zgrep default-directory helm-make-source helm-grep-class :backend :pcre "\\`ack" t helm :sources :buffer format "*helm %s*" :default :input :keymap :history helm-grep-history :truncate-lines helm-ff-default-directory inhibit-changing-match-data helm-grep-map helm-grep-truncate-lines] 29 (#$ . 36041)])
202 #@24 
203
204 (fn FLIST RECURSIVE)
205 (defalias 'helm-ff-zgrep-1 #[514 "\304\216\206    \203#\305\n\"\206$\306\307\310\311\312\313\314 &\n#\202$\315\316#\266\202)\207" [helm-ff-default-directory default-directory helm-rzgrep-cache helm-zgrep-file-extension-regexp #[0 "\301\211\207" [helm-zgrep-recurse-flag nil] 2] gethash puthash helm-walk-directory :directories nil :path full :match helm-do-grep-1 zgrep] 13 (#$ . 38651)])
206 #@38 Split a grep output line.
207
208 (fn LINE)
209 (defalias 'helm-grep-split-line #[257 "\301\"\205\"\302\303\304X\203\305\"B\262T\262\202    \211\237\266\202\207" [helm-grep-split-line-regexp string-match 1 nil 3 match-string] 6 (#$ . 39081)])
210 #@32 
211
212 (fn CANDIDATE &optional DIR)
213 (defalias 'helm-grep--filter-candidate-1 #[513 "\211\206\n\205\n     \304\305\306#)\266\203\211\203!\307!\202\"\310!\203=\211\203=\311@\312\313\"\2069\"\202?\211\242A@\3148\315 \316\"\203V\205\202\317!\202\202\315 \320\"\203a\202\202\315 \321\"\203y\205\202\205\202\322\"\202\202\323\324 \325#\205\202\304\211\203\271\203\271\203\271\326\327\330\331\332    !\333\n&\334\326\327\335#\334\n\203\254\202\261\336\305\"\260B\202\272\337\207" [helm-grep-default-directory-fn helm--ansi-color-regexp inhibit-changing-match-data helm-grep-file-path-style nil t string-match helm--ansi-color-apply helm-grep-split-line expand-file-name file-remote-p localname 2 eql basename file-name-nondirectory absolute relative file-relative-name error "cl-ecase failed: %s, %s" (basename absolute relative) propertize face helm-grep-file help-echo abbreviate-file-name helm-grep-fname ":" helm-grep-lineno helm-grep-highlight-match ""] 18 (#$ . 39329)])
214 #@80 `filter-one-by-one' transformer function for `helm-do-grep-1'.
215
216 (fn CANDIDATE)
217 (defalias 'helm-grep-filter-one-by-one #[257 "\206\301\211:\203\211\202\211;\205\302!)\207" [helm-grep-default-directory-fn #[0 "\206    \303=\204\304 \206\n\207" [helm-ff-default-directory major-mode default-directory helm-grep-mode helm-default-directory] 2] helm-grep--filter-candidate-1] 3 (#$ . 40358)])
218 #@97 Highlight in string STR all occurences matching `helm-pattern'.
219
220 (fn STR &optional MULTI-MATCH)
221 (defalias 'helm-grep-highlight-match #[513 "\304\211\3051\246\306\307!r\211q\210\310\311\312\313\314!\315\"\316$\216\317\320\304#c\210eb\210\203d\321!\304\211:\203]@\262\322\323\"\211\204U    \205E\324\n\"\211\203N\211A\202O\262B\262\210A\262\202,\211\237\266\203\202f C\304:\203\233@\262\325\304\326#\203\221\311\225\211\262\311\224\211\262Z\311V\203\221\327\330#\210\202peb\210A\262\202g\266\331 *\2620\202\250\210\304\207" [helm-pattern helm-migemo-mode helm-mm--previous-migemo-info helm-input nil (debug error) generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 propertize read-only helm-mm-split-pattern string-match "\\`!" assoc re-search-forward t helm-add-face-text-properties helm-grep-match buffer-string] 12 (#$ . 40767)])
222 #@397 Run grep on all file--buffers or CANDIDATE if it is a file--buffer.
223 If one of selected buffers is not a file--buffer,
224 it is ignored and grep will run on all others file--buffers.
225 If only one candidate is selected and it is not a file--buffer,
226 switch to this buffer and run `helm-occur'.
227 If a prefix arg is given run grep on all buffers ignoring non--file-buffers.
228
229 (fn CANDIDATE &optional ZGREP)
230 (defalias 'helm-grep-buffers-1 #[513 "\206    \n\203\306\n!\203 \202\n\211\203\307 \202 \310 \311 \312\211\211:\203N@\262\313\314!!\262\203G\306!\204G\315!B\262A\262\202&\211\237\266\204\211\203h\203b\316\312\317#\202\203\316!\202\203\320!\210\314\f!\203w\321\f!\210\322 \210 \323=\205\203\324!)\207" [current-prefix-arg helm-current-prefix-arg helm-ff-default-directory default-directory helm-action-buffer helm-exit-status file-remote-p buffer-list helm-marked-candidates current-window-configuration nil buffer-file-name get-buffer expand-file-name helm-do-grep-1 zgrep switch-to-buffer kill-buffer helm-occur 1 set-window-configuration] 12 (#$ . 41714)])
231 #@41 Action to grep buffers.
232
233 (fn CANDIDATE)
234 (defalias 'helm-grep-buffers #[257 "\300!\207" [helm-grep-buffers-1] 3 (#$ . 42814)])
235 #@42 Action to zgrep buffers.
236
237 (fn CANDIDATE)
238 (defalias 'helm-zgrep-buffers #[257 "\300\301\"\207" [helm-grep-buffers-1 zgrep] 4 (#$ . 42947)])
239 (defvar helm-pdfgrep-default-function 'helm-pdfgrep-init)
240 #@94 Start an asynchronous pdfgrep process in ONLY-FILES list.
241
242 (fn ONLY-FILES &optional RECURSE)
243 (defalias 'helm-pdfgrep-init #[513 "\206    \306\307    !\203\310\311\"\202    \"\312\203 \n\202! \f#\313\314\315    \"\210\314\316\317\320\321\322#\323Q\"\210\324\325#\326\313!\210\327\330!\331\"\210*\207" [helm-ff-default-directory default-directory helm-pdfgrep-default-recurse-command helm-pdfgrep-default-command helm-pattern process-connection-type helm-grep-prepare-candidates file-remote-p mapcar #[257 "\300\301\"\207" [file-remote-p localname] 4 "\n\n(fn X)"] format nil helm-log "Starting Pdf Grep process in directory `%s'" "Command line used was:\n\n%s" ">>> " propertize face helm-grep-cmd-line "\n\n" start-file-process-shell-command "pdfgrep" message set-process-sentinel get-buffer-process #[514 "\211\303\230\203+\304\305 !r\306\307\310\311\312!\313\"\314$\216\315@\316\"\210\317\320 \210    \205)\321\n!*\207\322\323\324\325\326#\"\207" [mode-line-format helm-allow-mouse helm-selection-point "finished\n" internal--before-with-selected-window helm-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord (" " mode-line-buffer-identification " " (:eval (format "L%s" (helm-candidate-number-at-point))) " " (:eval (propertize (format "[Pdfgrep Process Finish - %s result(s)] " (max (1- (count-lines (point-min) (point-max))) 0)) 'face 'helm-grep-finish))) force-mode-line-update helm--bind-mouse-for-selection helm-log "Error: Pdf grep %s" replace-regexp-in-string "\n" ""] 9 "\n\n(fn PROCESS EVENT)"] helm-buffer] 11 (#$ . 43151)])
244 #@72 Launch pdfgrep with a list of ONLY files.
245
246 (fn ONLY &optional RECURSE)
247 (defalias 'helm-do-pdfgrep-1 #[513 "\304\305!\204\n\306\307!\210\310\311    !\203\312    !\210\313\314\315\316\317\320\321\322\323\324\325\326\327 !\330\"\331$\332\333\334\333\335\336\337\340\341\342\343 \344\345\346\347\350\351\352\353&\354\355\341\342&)\207" [helm-grep-in-recurse helm-action-buffer helm-pdfgrep-targets helm-pdfgrep-map executable-find "pdfgrep" error "Error: No such program `pdfgrep'." nil get-buffer kill-buffer helm :sources helm-make-source "PdfGrep" helm-source-async :init #[0 "\206    \211\207" [helm-ff-default-directory default-directory] 2] :candidates-process make-byte-code 0 "    \n\300\"\207" vconcat vector [helm-pdfgrep-default-function helm-pdfgrep-targets] 3 :nohighlight t :nomark :filter-one-by-one helm-grep-filter-one-by-one :candidate-number-limit 9999 :history helm-grep-history :keymap :help-message helm-pdfgrep-help-message :action helm-pdfgrep-action :persistent-help "Jump to PDF Page" :requires-pattern 2 :buffer "*helm pdfgrep*"] 31 (#$ . 44777)])
248 #@18 
249
250 (fn CANDIDATE)
251 (defalias 'helm-pdfgrep-action #[257 "\300\301\"\207" [helm-grep-action pdf] 4 (#$ . 45855)])
252 #@27 
253
254 (fn SPLIT PAGENO FNAME)
255 (defalias 'helm-pdfgrep-action-1 #[771 "\301 r\302\303\304\305\306!\307\"\310$\216\311\312\313\314\315B\316    BD\"#*\207" [helm-pdfgrep-default-read-command internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 start-file-process-shell-command "pdf-reader" nil format-spec 102 112] 12 (#$ . 45973)])
256 (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable helm-grep-ag-command funcall function #[0 "\300\207" [#1="ag --line-numbers -S --hidden --color --nogroup %s %s %s"] 1 #1#] "The default command for AG, PT or RG.\n\nTakes three format specs, the first for type(s), the second for pattern\nand the third for directory.\n\nYou can use safely \"--color\" (used by default) with AG RG and PT.\n\nFor ripgrep here is the command line to use:\n\n    rg --color=always --smart-case --no-heading --line-number %s %s %s\n\nNOTE: Old versions of ripgrep was not supporting colors in emacs and a\nworkaround had to be used (i.e prefixing command line with\n\"TERM=eterm-color\"), this is no more needed.\nSee issue <https://github.com/BurntSushi/ripgrep/issues/182> for more infos.\n\nYou must use an output format that fit with helm grep, that is:\n\n    \"filename:line-number:string\"\n\nThe option \"--nogroup\" allow this.\nThe option \"--line-numbers\" is also mandatory except with PT (not supported).\nFor RG the options \"--no-heading\" and \"--line-number\" are the ones to use.\n\nWhen modifying the default colors of matches with e.g \"--color-match\" option of AG\nyou may want to modify as well `helm-grep-ag-pipe-cmd-switches' to have all matches\ncolorized with same color in multi match." :group helm-grep :type string] 8)
257 (defalias 'helm-grep--ag-command #[0 "\301\302\303!\"@\207" [helm-grep-ag-command helm-remove-if-match "\\`[A-Z]*=" split-string] 4])
258 #@155 Returns a list of AG types if available with AG version.
259 See AG option "--list-file-types"
260 Ripgrep (rg) types are also supported if this backend is used.
261 (defalias 'helm-grep-ag-get-types #[0 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311 \211\312\230\211\203 \313\202!\314\203)\315\202*\316\317\320\321\320\2038\322\2029\323%\303\232\205aeb\210\320\211\324\320\321#\203]\325\326!\262PBB\262\202D\211\237\266\202\266\204*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 helm-grep--ag-command "rg" "^\\(.*\\):" "^ *\\(--[a-z]*\\)" "-t" "" call-process nil t "--type-list" "--list-file-types" re-search-forward match-string 1] 11 (#$ . 47883)])
262 #@208 Prepare AG command line to search PATTERN in DIRECTORY.
263 When TYPE is specified it is one of what returns `helm-grep-ag-get-types'
264 if available with current AG version.
265
266 (fn PATTERN DIRECTORY &optional TYPE)
267 (defalias 'helm-grep-ag-prepare-cmd-line #[770 "\302\303\"\304\305\306#\307\310 \211\232\204#\303=\204#<\203.\211\235\203.\311\312\306P#\202P\313\211\232\204G\303=\204G<\205N\211\235\205N\311\314\306P\"\266\202\266\202\311    \304\305\306#\315@!\315    !$A\211\203\221\316\317:\203\213@\262\211\311\320    \315!#P\262A\262\202n\266\202P\202\222\262\207" [helm-grep-ag-pipe-cmd-switches helm-grep-ag-command helm-mm-split-pattern t mapconcat identity " " ("ag" "pt") helm-grep--ag-command format "%s -S --color%s" "rg" "rg -N -S --color=always%s" shell-quote-argument nil "" " | %s %s"] 18 (#$ . 48647)])
268 #@103 Start AG process in DIRECTORY maybe searching only files of type TYPE.
269
270 (fn DIRECTORY &optional TYPE)
271 (defalias 'helm-grep-ag-init #[513 "\206\n\305 \206\n    \306\n\307\310\"\206#\311 \312 \313\303!\210\314\315#\210\314\316\317\320Q\"\210\321\f#\322\323\f!\324\325\326\327\330        \"\331\"\332\333%\"\210)\207" [helm-ff-default-directory default-directory helm-pattern helm-grep-last-cmd-line helm-buffer helm-default-directory helm-grep-ag-prepare-cmd-line file-remote-p localname float-time helm-grep--ag-command make-local-variable helm-log "Starting %s process in directory `%s'" "Command line used was:\n\n%s" ">>> " "\n\n" start-file-process-shell-command set-process-sentinel get-buffer-process make-byte-code 514 "\306!\211\307U\211\2031r\310 q\210\311\312\313\n\314\315#Qc\210\316\317\316\320\316\321\313\322\323\301\226E\324BBD\257\211)\202\221\325\230\203\207\326\327\301\330 \331 \300Z$\210\332 \210\333\334 !r\335\336\337\340\341!\342\"\343$\216\344@\345\"\210\316\317\316\346\316\321\313\322\347\301\226\331 \300Z\350BBBB\351BBD\257\352 \210\f\205\201\353 !*\262\202\221\326\354\301\355\356\357##\207" vconcat vector [helm-grep-last-cmd-line mode-line-format helm-allow-mouse helm-selection-point process-exit-status 1 helm-buffer-get "* Exit with code 1, no result found," " command line was:\n\n " propertize face helm-grep-cmd-line " " mode-line-buffer-identification (:eval (format "L%s" (helm-candidate-number-at-point))) :eval format "[%s process finished - (no results)] " ('face 'helm-grep-finish) "finished\n" helm-log "%s process finished with %s results in %fs" helm-get-candidate-number float-time helm-maybe-show-help-echo internal--before-with-selected-window helm-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord (:eval (format "L%s" (helm-candidate-number-at-point))) "[%s process finished in %.2fs - (%s results)] " ((helm-get-candidate-number)) ('face 'helm-grep-finish) force-mode-line-update helm--bind-mouse-for-selection "Error: %s %s" replace-regexp-in-string "\n" ""] 17 "\n\n(fn PROCESS EVENT)"] 16 (#$ . 49504)])
272 (byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias helm-grep-ag-class-p eieio-make-class-predicate helm-grep-ag-class helm-grep-ag-class--eieio-childp eieio-make-child-predicate helm-grep-ag-class-child-p make-obsolete "use (cl-typep ... \\='helm-grep-ag-class) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (helm-source-async) ((nohighlight :initform t) (pcre :initarg :pcre :initform t :documentation "  Backend is using pcre regexp engine when non--nil.") (keymap :initform helm-grep-map) (history :initform 'helm-grep-ag-history) (help-message :initform 'helm-grep-help-message) (filter-one-by-one :initform 'helm-grep-filter-one-by-one) (persistent-action :initform 'helm-grep-persistent-action) (persistent-help :initform "Jump to line (`C-u' Record in mark ring)") (candidate-number-limit :initform 99999) (requires-pattern :initform 2) (nomark :initform t) (action :initform 'helm-grep-actions) (group :initform 'helm-grep)) nil] 6)
273 #@75 Create a new object of class type `helm-grep-ag-class'.
274
275 (fn &rest SLOTS)
276 (defalias 'helm-grep-ag-class #[128 "\300\301\302#\207" [apply make-instance helm-grep-ag-class] 5 (#$ . 52739)])
277 (byte-code "\300\301\302\303#\300\207" [function-put helm-grep-ag-class compiler-macro helm-grep-ag-class--anon-cmacro] 4)
278 #@26 
279
280 (fn WHOLE &rest SLOTS)
281 (defalias 'helm-grep-ag-class--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 53057)])
282 (defvar helm-source-grep-ag nil)
283 (byte-code "\300\301\302\301\303\"\"\210\304\301\303\305\306$\207" [eieio--defalias helm--setup-source eieio--defgeneric-init-form nil eieio--defmethod helm-grep-ag-class #[257 "\302 \210\205    \205\303\304    \"\211\205\305\304#\262\207" [helm-follow-mode-persistent helm-source-grep-ag call-next-method assoc-default follow eieio-oset] 7 "\n\n(fn SOURCE)"]] 5)
284 #@98 Start helm ag in DIRECTORY maybe searching in files of type TYPE.
285
286 (fn DIRECTORY &optional TYPE)
287 (defalias 'helm-grep-ag-1 #[513 "\303\304 \226\305\306\307\310\311\312\313\n!\314\"\315\316%\317\307\320\321\312\313\f\f\"\322\"\323$&\324\325\300\326    \327\330\331\n\332\333\334\304 \"&\n\207" [helm-source-grep-ag helm-grep-map helm-grep-truncate-lines helm-make-source helm-grep--ag-command helm-grep-ag-class :header-name make-byte-code 257 "\301\302\303\300!#\207" vconcat vector [format "%s [%s]" abbreviate-file-name] 6 "\n\n(fn NAME)" :candidates-process 0 "\302\300\301\"\207" [helm-grep-ag-init] 3 helm :sources :keymap :history helm-grep-ag-history :truncate-lines :buffer format "*helm %s*"] 15 (#$ . 53697)])
288 #@115 Start grep AG in DIRECTORY.
289 When WITH-TYPES is non-nil provide completion on AG types.
290
291 (fn DIRECTORY WITH-TYPES)
292 (defalias 'helm-grep-ag #[514 "\300\301!\210\302\205\f\303 \211\205\304\305\306\307\310\307\311\312\313\314&\n\262\"\207" [require helm-adaptive helm-grep-ag-1 helm-grep-ag-get-types helm-comp-read "Ag type: " :must-match t :marked-candidates :fc-transformer helm-adaptive-sort :buffer "*helm ag types*"] 16 (#$ . 54427)])
293 (defvar helm-source-grep-git nil)
294 (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable helm-grep-git-grep-command funcall function #[0 "\300\207" [#1="git --no-pager grep -n%cH --color=always --full-name -e %p -- %f"] 1 #1#] "The git grep default command line.\nThe option \"--color=always\" can be used safely.\nThe color of matched items can be customized in your .gitconfig\nSee `helm-grep-default-command' for more infos.\n\nThe \"--exclude-standard\" and \"--no-index\" switches allow\nskipping unwanted files specified in ~/.gitignore_global\nand searching files not already staged (not enabled by default).\n\nYou have also to enable this in global \".gitconfig\" with\n    \"git config --global core.excludesfile ~/.gitignore_global\"." :group helm-grep :type string] 8)
295 #@347 Run git-grep on DIRECTORY.
296 If DIRECTORY is not inside or part of a git repo exit with error.
297 If optional arg ALL is non-nil grep the whole repo otherwise start
298 at DIRECTORY.
299 Arg DEFAULT is what you will have with `next-history-element',
300 arg INPUT is what you will have by default at prompt on startup.
301
302 (fn DIRECTORY &optional ALL DEFAULT INPUT)
303 (defalias 'helm-grep-git-1 #[1025 "\303\304!\210\305\306\307\310\311\312!\313\"\314$\211 \211\204!\315\302\316\305\211$\210\317\203*\320\202.\321!C\305\322\305\323&+\207" [helm-grep-default-recurse-command helm-grep-default-directory-fn helm-ff-default-directory require vc nil make-byte-code 0 "\301\300\302\"\207" vconcat vector [vc-find-root ".git"] 3 cl--assertion-failed "Not inside a Git repository" helm-do-grep-1 ("") expand-file-name git helm-source-grep-git] 13 (#$ . 55691)])
304 #@142 Preconfigured helm for grepping with AG in `default-directory'.
305 With prefix-arg prompt for type if available with your AG version.
306
307 (fn ARG)
308 (defalias 'helm-do-grep-ag #[257 "\301\302!\210\303\304!\"\207" [default-directory require helm-files helm-grep-ag expand-file-name] 4 (#$ . 56546) "P"])
309 #@121 Preconfigured helm for git-grepping `default-directory'.
310 With a prefix arg ARG git-grep the whole repository.
311
312 (fn ARG)
313 (defalias 'helm-grep-do-git-grep #[257 "\301\302!\210\303\"\207" [default-directory require helm-files helm-grep-git-1] 4 (#$ . 56850) "P"])
314 (provide 'helm-grep)