HOME

;ELC
;;; Compiled
;;; in Emacs version 26.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\302\303\304\305\306\307\306\310&\207" [require compile custom-declare-group grep nil "Run `grep' and display the results." :group tools processes] 8)
#@266 Default values depending on target host.
`grep-compute-defaults' returns default values for every local or
remote host `grep' runs.  These values can differ from host to
host.  Once computed, the default values are kept here in order
to avoid computing them again.
(defvar grep-host-defaults-alist nil (#$ . 586))
#@291 Set SYMBOL to VALUE, and update `grep-host-defaults-alist'.
SYMBOL should be one of `grep-command', `grep-template',
`grep-use-null-device', `grep-find-command' `grep-find-template',
`grep-find-use-xargs', `grep-use-null-filename-separator', or
`grep-highlight-matches'.

(fn SYMBOL VALUE)
(defalias 'grep-apply-setting #[514 "\203\"\302\303	!\206\f\304!\211\236\305\236\236A\240\210
\236A\240\266\306\"\207" [grep-host-defaults-alist default-directory intern file-remote-p "localhost" nil set-default] 7 (#$ . 907)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\210\300\314\302\303\315DD\316\306\317\320\321\310\311\312\313&\210\300\322\302\303\323DD\324\306\325\310\311\312\313&	\210\300\326\302\303\327DD\330\306\331\320\321\312\313&	\210\300\332\302\303\333DD\334\306\335\320\321\310\311\312\313&\210\300\336\302\303\337DD\340\306\341\320\321\312\313&	\210\300\342\302\303\343DD\344\310\345\306\346\320\321\312\313&\210\300\347\302\303\350DD\351\306\352\320\321\312\313&	\210\300\353\302\303\354DD\355\306\356\320\321\310\311\312\313&\210\300\357\302\303\360DD\361\306\362\312\313&\210\300\363\302\303\364DD\365\306\366\312\313&\210\300\367\302\303\370DD\371\306\372\312\313&\210\300\373\302\303\374DD\375\310\345\306\376\312\313&	\210\300\377\302\303\201@DD\201A\306\201B\310\311\312\313&	\210\300\201C\302\303\201DDD\201E\306\201F\312\313&\207" [custom-declare-variable grep-window-height funcall function #[0 "\300\207" [nil] 1] "Number of lines in a grep window.  If nil, use `compilation-window-height'." :type (choice (const :tag "Default" nil) integer) :version "22.1" :group grep grep-highlight-matches #[0 "\300\207" [auto-detect] 1] "Use special markers to highlight grep matches.\n\nSome grep programs are able to surround matches with special\nmarkers in grep output.  Such markers can be used to highlight\nmatches in grep mode.  This requires `font-lock-mode' to be active\nin grep buffers, so if you have globally disabled font-lock-mode,\nyou will not get highlighting.\n\nThis option sets the environment variable GREP_COLORS to specify\nmarkers for highlighting and adds the --color option in front of\nany explicit grep options before starting the grep.\n\nWhen this option is `auto', grep uses `--color' to highlight\nmatches only when it outputs to a terminal (when `grep' is the last\ncommand in the pipe), thus avoiding the use of any potentially-harmful\nescape sequences when standard output goes to a file or pipe.\n\nTo make grep highlight matches even into a pipe, you need the option\n`always' that forces grep to use `--color=always' to unconditionally\noutput escape sequences.\n\nIn interactive usage, the actual value of this variable is set up\nby `grep-compute-defaults' when the default value is `auto-detect'.\nTo change the default value, use Customize or call the function\n`grep-apply-setting'." (choice (const :tag "Do not highlight matches with grep markers" nil) (const :tag "Highlight matches with grep markers" t) (const :tag "Use --color=always" always) (const :tag "Use --color" auto) (other :tag "Not Set" auto-detect)) :set grep-apply-setting grep-scroll-output #[0 "\300\207" [nil] 1] "Non-nil to scroll the *grep* buffer window as output appears.\n\nSetting it causes the grep commands to put point at the end of their\noutput window so that the end of the output is always visible rather\nthan the beginning." boolean grep-command #[0 "\300\207" [nil] 1] "The default grep command for \\[grep].\nIf the grep program used supports an option to always include file names\nin its output (such as the `-H' option to GNU grep), it's a good idea to\ninclude it when specifying `grep-command'.\n\nIn interactive usage, the actual value of this variable is set up\nby `grep-compute-defaults'; to change the default value, use\nCustomize or call the function `grep-apply-setting'." (choice string (const :tag "Not Set" nil)) grep-template #[0 "\300\207" [nil] 1] "The default command to run for \\[lgrep].\nThe following place holders should be present in the string:\n <C> - place to put the options like -i and --color.\n <F> - file names and wildcards to search.\n <X> - file names and wildcards to exclude.\n <R> - the regular expression searched for.\n <N> - place to insert null-device.\n\nIn interactive usage, the actual value of this variable is set up\nby `grep-compute-defaults'; to change the default value, use\nCustomize or call the function `grep-apply-setting'." (choice string (const :tag "Not Set" nil)) grep-use-null-device #[0 "\300\207" [auto-detect] 1] "If t, append the value of `null-device' to `grep' commands.\nThis is done to ensure that the output of grep includes the filename of\nany match in the case where only a single file is searched, and is not\nnecessary if the grep program used supports the `-H' option.\n\nIn interactive usage, the actual value of this variable is set up\nby `grep-compute-defaults'; to change the default value, use\nCustomize or call the function `grep-apply-setting'." (choice (const :tag "Do Not Append Null Device" nil) (const :tag "Append Null Device" t) (other :tag "Not Set" auto-detect)) grep-use-null-filename-separator #[0 "\300\207" [auto-detect] 1] "If non-nil, use `grep's `--null' option.\nThis is done to disambiguate file names in `grep's output." "26.1" (choice (const :tag "Do Not Use `--null'" nil) (const :tag "Use `--null'" t) (other :tag "Not Set" auto-detect)) grep-find-command #[0 "\300\207" [nil] 1] "The default find command for \\[grep-find].\nIn interactive usage, the actual value of this variable is set up\nby `grep-compute-defaults'; to change the default value, use\nCustomize or call the function `grep-apply-setting'." (choice string (const :tag "Not Set" nil)) grep-find-template #[0 "\300\207" [nil] 1] "The default command to run for \\[rgrep].\nThe following place holders should be present in the string:\n <D> - base directory for find\n <X> - find options to restrict or expand the directory list\n <F> - find options to limit the files matched\n <C> - place to put the grep options like -i and --color\n <R> - the regular expression searched for.\nIn interactive usage, the actual value of this variable is set up\nby `grep-compute-defaults'; to change the default value, use\nCustomize or call the function `grep-apply-setting'." (choice string (const :tag "Not Set" nil)) grep-files-aliases #[0 "\300\207" [(("all" . "* .[!.]* ..?*") ("el" . "*.el") ("ch" . "*.[ch]") ("c" . "*.c") ("cc" . "*.cc *.cxx *.cpp *.C *.CC *.c++") ("cchh" . "*.cc *.[ch]xx *.[ch]pp *.[CHh] *.CC *.HH *.[ch]++") ("hh" . "*.hxx *.hpp *.[Hh] *.HH *.h++") ("h" . "*.h") ("l" . "[Cc]hange[Ll]og*") ("m" . "[Mm]akefile*") ("tex" . "*.tex") ("texi" . "*.texi") ("asm" . "*.[sS]"))] 1] "Alist of aliases for the FILES argument to `lgrep' and `rgrep'." alist grep-find-ignored-directories #[0 "\207" [vc-directory-exclusion-list] 1] "List of names of sub-directories which `rgrep' shall not recurse into.\nIf an element is a cons cell, the car is called on the search directory\nto determine whether cdr should not be recursed into." (choice (repeat :tag "Ignored directories" string) (const :tag "No ignored directories" nil)) grep-find-ignored-files #[0 "\301\302\303\304\305\"\"B\207" [completion-ignored-extensions ".#*" delq nil mapcar #[257 "\301
\302\303\304#)\266\203?\205\305
P\207" [inhibit-changing-match-data "/\\'" nil t string-match "*"] 8 "\n\n(fn S)"]] 6] "List of file names which `rgrep' and `lgrep' shall exclude.\nIf an element is a cons cell, the car is called on the search directory\nto determine whether cdr should not be excluded." (choice (repeat :tag "Ignored file" string) (const :tag "No ignored files" nil)) grep-save-buffers #[0 "\300\207" [ask] 1] "If non-nil, save buffers before running the grep commands.\nIf `ask', ask before saving.  If a function, call it with no arguments\nwith each buffer current, as a predicate to determine whether that\nbuffer should be saved or not.  E.g., one can set this to\n  (lambda ()\n    (string-prefix-p my-grep-root (file-truename (buffer-file-name))))\nto limit saving to files located under `my-grep-root'." (choice (const :tag "Ask before saving" ask) (const :tag "Don't save buffers" nil) function (other :tag "Save all buffers" t)) grep-error-screen-columns #[0 "\300\207" [nil] 1] "If non-nil, column numbers in grep hits are screen columns.\nSee `compilation-error-screen-columns'" (choice (const :tag "Default" nil) integer) grep-setup-hook #[0 "\300\207" [nil] 1] "List of hook functions run by `grep-process-setup' (see `run-hooks')." hook] 12)
#@73 Keymap for grep buffers.
`compilation-minor-mode-map' is a cdr of this.
(defvar grep-mode-map (byte-code "\301 \302
\"\210\303
\304\305#\210\303
\306\307#\210\303
\310\307#\210\303
\311\312#\210\303
\313\314#\210\303
\315\316#\210\303
\317\320#\210\303
\321\322#\210\303
\323\324#\210\303
\325\326#\210\303
\327\330#\210\303
\331\332\301\332!B#\210\303
\333\334#\210\303
\335\336#\210\303
\337\340#\210\303
\341\342#\210\303
\343\344#\210\303
\345\346#\210\303
\347\350#\210\303
\351\352#\210\303
\353\354#\210\303
\355\356#\210\303
\357\360#\210\303
\361\362#\210\211\207" [compilation-minor-mode-map make-sparse-keymap set-keymap-parent define-key " " scroll-up-command [33554464] scroll-down-command "" "" next-error-follow-minor-mode "
" compile-goto-error "n" next-error-no-select "p" previous-error-no-select "{" compilation-previous-file "}" compilation-next-file "	" compilation-next-error [backtab] compilation-previous-error [menu-bar grep] "Grep" [menu-bar grep compilation-kill-compilation] (menu-item "Kill Grep" kill-compilation :help "Kill the currently running grep process") [menu-bar grep compilation-separator2] ("----") [menu-bar grep compilation-compile] (menu-item "Compile..." compile :help "Compile the program including the current buffer.  Default: run `make'") [menu-bar grep compilation-rgrep] (menu-item "Recursive grep..." rgrep :help "User-friendly recursive grep in directory tree") [menu-bar grep compilation-lgrep] (menu-item "Local grep..." lgrep :help "User-friendly grep in a directory") [menu-bar grep compilation-grep-find] (menu-item "Grep via Find..." grep-find :help "Run grep via find, with user-specified args") [menu-bar grep compilation-grep] (menu-item "Another grep..." grep :help "Run grep, with user-specified args, and collect output in a buffer.") [menu-bar grep compilation-recompile] (menu-item "Repeat grep" recompile :help "Run grep again") [menu-bar grep compilation-separator2] ("----") [menu-bar grep compilation-first-error] (menu-item "First Match" first-error :help "Restart at the first match, visit corresponding location") [menu-bar grep compilation-previous-error] (menu-item "Previous Match" previous-error :help "Visit the previous match and corresponding location") [menu-bar grep compilation-next-error] (menu-item "Next Match" next-error :help "Visit the next match and corresponding location")] 7) (#$ . 9515))
(defvar grep-mode-tool-bar-map (byte-code "\301\302!!\205D\302\303!!\304!\305\306\307\211\310\311\312\313&\210\305\311\314\211\310\306\312\315&\210\305\316\317\211\320\321\312\322&\210\305\323\324\211\312\325&\210\326\"\266\202\207" [tool-bar-map keymapp butlast copy-keymap last tool-bar-local-item "left-arrow" previous-error-no-select :rtl "right-arrow" :help "Goto previous match" next-error-no-select "Goto next match" "cancel" kill-compilation :enable (let ((buffer (compilation-find-buffer))) (get-buffer-process buffer)) "Stop grep" "refresh" recompile "Restart grep" append] 11))
(defalias 'kill-grep 'kill-compilation)
#@221 The most recent grep buffer.
A grep buffer becomes most recent when you select Grep mode in it.
Notice that using \[next-error] or \[compile-goto-error] modifies
`compilation-last-buffer' rather than `grep-last-buffer'.
(defvar grep-last-buffer nil (#$ . 12552))
#@90 Regexp used to match grep hits.
See `compilation-error-regexp-alist' for format details.
(defconst grep-regexp-alist (byte-code "\300\301\302\303\304B\305BBBB\306B\207" ["^\\(?:\\(?1:[^\n]+\\)\\(?3:\\)\\(?2:[0-9]+\\):\\|\\(?1:[^\n:]+?[^\n/:]\\):[	 ]*\\(?2:[1-9][0-9]*\\)[	 ]*:\\)" 1 2 #[0 "\205\301\225\212\211b\210\302 )\303\304\305$\211\205\211Z\266\203\207" [grep-highlight-matches 0 line-end-position text-property-any font-lock-face grep-match-face] 7] #[0 "\205&\301\225\212\211b\210\302 )\303\304\305$\211\205\306
\304\307$\211\205$\211Z\266\204\207" [grep-highlight-matches 0 line-end-position text-property-any font-lock-face grep-match-face next-single-property-change nil] 8] (nil nil (3 '(face nil display ":"))) (("^Binary file \\(.+\\) matches$" 1 nil nil 0 1))] 5) (#$ . 12821))
#@62 Value to use for `compilation-first-column' in grep buffers.
(defvar grep-first-column 0 (#$ . 13640))
#@45 Message to print when no matches are found.
(defvar grep-error "grep hit" (#$ . 13749))
#@33 Face name to use for grep hits.
(defvar grep-hit-face compilation-info-face (#$ . 13843))
#@43 Face name to use for grep error messages.
(defvar grep-error-face 'compilation-error (#$ . 13939))
#@36 Face name to use for grep matches.
(defvar grep-match-face 'match (#$ . 14044))
#@42 Face name to use for grep context lines.
(defvar grep-context-face 'shadow (#$ . 14130))
(defvar grep-num-matches-found 0)
(defconst grep-mode-line-matches (byte-code "\301\302\303\304\305BBBB\306BB\207" [grep-hit-face " [" :propertize (:eval (int-to-string grep-num-matches-found)) face (help-echo "Number of matches so far") ("]")] 6))
#@106 Additional things to highlight in grep output.
This gets tacked on the end of the generated expressions.
(defvar grep-mode-font-lock-keywords '((": \\(.+\\): \\(?:Permission denied\\|No such \\(?:file or directory\\|device or address\\)\\)$" 1 grep-error-face) ("^Grep[/a-zA-z]* started.*" (0 '(face nil compilation-message nil help-echo nil mouse-face nil) t)) ("^Grep[/a-zA-z]* finished with \\(?:\\(\\(?:[0-9]+ \\)?matches found\\)\\|\\(no matches found\\)\\).*" (0 '(face nil compilation-message nil help-echo nil mouse-face nil) t) (1 compilation-info-face nil t) (2 compilation-warning-face nil t)) ("^Grep[/a-zA-z]* \\(exited abnormally\\|interrupt\\|killed\\|terminated\\)\\(?:.*with code \\([0-9]+\\)\\)?.*" (0 '(face nil compilation-message nil help-echo nil mouse-face nil) t) (1 grep-error-face) (2 grep-error-face nil t)) ("^.+?\\([-=]\\)[0-9]+\\([-=]\\).*\n" (0 grep-context-face) (1 (if (eq (char-after (match-beginning 1)) 0) `(face nil display ,(match-string 2)))))) (#$ . 14476))
#@145 The default grep program for `grep-command' and `grep-find-command'.
This variable's value takes effect when `grep-compute-defaults' is called.
(defvar grep-program (purecopy "grep") (#$ . 15482))
#@103 The default find program.
This is used by commands like `grep-find-command', `find-dired'
and others.
(defvar find-program (purecopy "find") (#$ . 15686))
#@154 The default xargs program for `grep-find-command'.
See `grep-find-use-xargs'.
This variable's value takes effect when `grep-compute-defaults' is called.
(defvar xargs-program (purecopy "xargs") (#$ . 15848))
#@279 How to invoke find and grep.
If `exec', use `find -exec {} ;'.
If `exec-plus' use `find -exec {} +'.
If `gnu', use `find -print0' and `xargs -0'.
Any other value means to use `find -print' and `xargs'.

This variable's value takes effect when `grep-compute-defaults' is called.
(defvar grep-find-use-xargs nil (#$ . 16063))
#@24 History list for grep.
(defvar grep-history nil (#$ . 16393))
#@29 History list for grep-find.
(defvar grep-find-history nil (#$ . 16461))
(defvar grep-regexp-history nil)
(defvar grep-files-history nil)
#@122 Setup compilation variables and buffer for `grep'.
Set up `compilation-exit-message-function' and run `grep-setup-hook'.
(defalias 'grep-process-setup #[0 "\304=\203	\305 \210\304=\204&\203&	\203&\306\307\310\"\210\306\311\312\"\210\306\313\314\"\210\315\302!\210\316\315\303!\210\317\320\321!\207" [grep-highlight-matches font-lock-mode grep-num-matches-found compilation-exit-message-function auto-detect grep-compute-defaults setenv "TERM" "emacs-grep" "GREP_COLOR" "01;31" "GREP_COLORS" "mt=01;31:fn=:ln=:bn=:se=:sl=:cx=:ne" make-local-variable 0 grep-exit-message run-hooks grep-setup-hook] 3 (#$ . 16605)])
#@65 Return a status message for grep results.

(fn STATUS CODE MSG)
(defalias 'grep-exit-message #[771 "\301=\203+
\302U\203 \303 \203 \302V\203\304\305\"\306B\207\307\207\303 \204'\310\207\211B\207\211B\207" [grep-num-matches-found exit 0 buffer-modified-p format "finished with %d matches found\n" "matched" ("finished with matches found\n" . "matched") ("finished with no matches found\n" . "no match")] 6 (#$ . 17233)])
#@130 Handle match highlighting escape sequences inserted by the grep process.
This function is called from `compilation-filter-hook'.
(defalias 'grep-filter #[0 "\212\303y\210`\304b\210\303y\210`\262
`W\205J\305!\262\306\307\310#\2036\311\312\313\310!\314\304\315	%\316\211#\210\nT\202\211b\210\306\317\310#\205J\311\320\316\211#\210\2029\266\202)\207" [compilation-filter-start grep-match-face grep-num-matches-found 0 nil copy-marker re-search-forward "\\[0?1;31m\\(.*?\\)\\[[0-9]*m" 1 replace-match propertize match-string face font-lock-face t "\\[[0-9;]*[mK]" ""] 9 (#$ . 17671)])
#@43 

(fn COMMAND ARGS &optional FUNC RESULT)
(defalias 'grep-probe #[1026 "\301\3021\303\206\f\304#0\202\210\301
\206\305\232)\207" [process-file-side-effects nil (error) apply process-file 0] 8 (#$ . 18274)])
(defalias 'grep-compute-defaults #[0 "\2043\306\301	D\302\nD\303D\304\fD\305
D\307D\310D\311	D\257B\211\235\203.\210\2022\211B\210\312\313@!\206<\314!\211\236\306\236\315\316!\315\317!\320\211\203g\211@\211
\236\206\\
\236A@L\210
A\266\202\202J\210\203\276\321=\204\276\322\323!r\211q\210\324\325\326\327\330!\331\"\332$\216\333\334A\"	\203\235\335	\306\321\306\336\257\337#\202\252\335B\306\321\306\340\336\257\"\205\267eb\210\341\342!\343P!?\262
*\262
\344=\203
\322\323!r\211q\210\324\325\326\327\330!\345\"\332$\216\333\334A\"\346\347\336F\203\361\350
CC\"\262
\202\366\351
B\262
\335B\306\321\306BBB\"\205
eb\210\341\342!\352P!\266\202*\262
	\344=\203S
\322\323!r\211q\210\324\325\326\327\330!\353\"\332$\216\335B\354\"\205N
eb\210\355\356\306\321#\205N
D\357>\203M
\360\202N
\361*\262
		\203c
\f\203c
\n\203c

\204\317\203k
\362\202l
\340\205r
\363\335B\306\211\211\364\365C\257\306\366$\205\205
\367Q	\204\270
\370\371B	\203\264
\335B\306\211\211\356\372C\257\306\366$\203\264
	\360=\203\260
\373\202\265
\356\202\265
\374$\n\204\303
\370\375B#\204\335E\306\211\211C\376BBBB\"\203\335
\377\202\335E\306\211\211C\201GBBBB\"\203\335F\201H\"\203\201I\202\201J\f\204q\201I=\203\370\201KEF	$\202p\201L>\203f\370\201ME	#\203>\370\201NC\"\202?\374\377=\203R\370\201O$\202]\370\201P%GTB\266\202\202p\370\201QEF	$
\204\316\370\201RB#\203\213\370\201NC\"\202\214\374\201S\267\202\301\370\201TEF$\202\313\370\201UE	&\202\313\370\201VE	%\202\313\370\201WEF$\266\202\210\201X\236\"\301	D\302\nD\303D\304\fD\305
D\307D\310D\311	D\257B\211\235\203
\202\211B\211\262
\207" [grep-host-defaults-alist grep-command grep-template grep-use-null-device grep-find-command grep-find-template nil grep-use-null-filename-separator grep-find-use-xargs grep-highlight-matches intern file-remote-p "localhost" shell-quote-argument "{}" ";" (grep-command grep-template grep-use-null-device grep-find-command grep-use-null-filename-separator grep-find-template grep-find-use-xargs grep-highlight-matches) t generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 expand-file-name "HELLO" grep-probe "^English" call-process-shell-command "-nH" looking-at regexp-quote ":[0-9]+:English" auto-detect [buffer-name kill-buffer] "--null" "-ne" append "-H" "[0-9]+:English" [buffer-name kill-buffer] (nil t nil "--help") search-forward "--color" (windows-nt ms-dos) always auto "-n" " --null" "-e" "foo" 1 " -e" format "%s %s %s " "x" "--color=always" "" "%s <X> <C> %s <R> <F>" ("-exec" "echo" "{}" "+") exec-plus default-directory data-directory grep-program null-device system-type find-program xargs-program ("-print0") (nil nil nil "-0" "echo") gnu exec "%s . -type f -print0 | \"%s\" -0 %s" (exec exec-plus) "%s . -type f -exec %s" "%s " "%s %s%s +" "%s %s %s%s" "%s . -type f -print | \"%s\" %s" "%s <C> %s <R>" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (gnu 661 exec 674 exec-plus 691)) "%s <D> <X> -type f <F> -print0 | \"%s\" -0 %s" "%s <D> <X> -type f <F> -exec %s %s %s%s" "%s <D> <X> -type f <F> -exec %s %s%s +" "%s <D> <X> -type f <F> -print | \"%s\" %s" delete] 17])
(defalias 'grep-tag-default #[0 "\203	\203`\304 U\204\305`\304 \"\206'\n\206\"\302N\206\"\306 \206'\307\207" [transient-mark-mode mark-active find-tag-default-function major-mode mark buffer-substring-no-properties find-tag-default ""] 3])
#@78 Compute the default grep command for \[universal-argument] \[grep] to offer.
(defalias 'grep-default-command #[0 "\303\304 !\305@\206	\306\307\310Q\"\204\306\311\"\205k\3121_\n;?\206J\313\224\205J\314 \315\316\317\320\321!\322\"\323$\216\306\324\325\326\323\"!!\325\n!\")\262
?\205[\211\316\313\224O\327\330\n!Q\211\2620\202c\210\202d\210\331\332\211\333%\207" [grep-history grep-command buffer-file-name shell-quote-argument grep-tag-default "\\(\\(?:\"\\(?:[^\"]\\|\\\\\"\\)+\"\\|'[^']+'\\|[^\"' 	\n]\\)+\\)" string-match "[^ ]+\\s +\\(?:-[^ ]+\\s +\\)*" "\\(\\s +\\(\\S +\\)\\)?" "\\(\\)\\'" (error) 2 match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 wildcard-to-regexp file-name-nondirectory match-string " *." file-name-extension replace-match t 1] 10 (#$ . 22118)])
(defvar grep-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [grep-mode-hook variable-documentation put "Hook run after entering 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 grep-mode-map definition-name grep-mode] 4)
(defvar grep-mode-map (make-sparse-keymap))
(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" [grep-mode-abbrev-table grep-mode-map variable-documentation put purecopy "Keymap for `grep-mode'." boundp grep-mode-syntax-table definition-name grep-mode (lambda (#1=#:def-tmp-var) (defvar grep-mode-syntax-table #1#)) make-syntax-table "Syntax table for `grep-mode'." (lambda (#1#) (defvar grep-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `grep-mode'." derived-mode-parent compilation-mode] 5)
#@251 Sets `grep-last-buffer' and `compilation-window-height'.

In addition to any hooks its parent mode `compilation-mode' might have run,
this mode runs the hook `grep-mode-hook', as the final or penultimate step
during initialization.

\{grep-mode-map}
(defalias '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
\325.C#\210\327!\210\330\f!\210
.\306\331!\210/\306\332!\2100\306\333!\2101\306\334!\2102\306\335!\2103\306\336!\2104p5\306\337!\2106\306\340!\2107 \306\341!\2108!\306\342!\2109\"\306\343!\210\344#\306\345!\210\346%\306\347!\210\307'\306\332!\2100\350\351\352\353\307$\210)\354\355!\207" [delay-mode-hooks major-mode mode-name grep-mode-map grep-mode-syntax-table grep-mode-abbrev-table make-local-variable t compilation-mode grep-mode "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 compilation-error compilation-error-screen-columns compilation-first-column compilation-mode-font-lock-keywords compilation-scroll-output compilation-window-height tool-bar-map compilation-error-face compilation-error-regexp-alist compilation-mode-line-errors compilation-directory-matcher ("\\`a\\`") compilation-process-setup-function grep-process-setup compilation-disable-input add-hook compilation-filter-hook grep-filter nil run-mode-hooks grep-mode-hook local-abbrev-table grep-error grep-error-screen-columns grep-first-column grep-mode-font-lock-keywords grep-scroll-output grep-window-height grep-last-buffer grep-mode-tool-bar-map grep-hit-face grep-regexp-alist grep-mode-line-matches] 5 (#$ . 24077) nil])
(defalias 'grep--save-buffers #[0 "\205\301\302=?\205\303!?\303!\205\"\207" [grep-save-buffers save-some-buffers ask functionp] 4])
#@864 Run Grep with user-specified COMMAND-ARGS, collect output in a buffer.
While Grep runs asynchronously, you can use \[next-error] (M-x next-error),
or \<grep-mode-map>\[compile-goto-error] in the *grep* buffer, to go to the lines where Grep found
matches.  To kill the Grep job before it finishes, type \[kill-compilation].

Noninteractively, COMMAND-ARGS should specify the Grep command-line
arguments.

For doing a recursive `grep', see the `rgrep' command.  For running
Grep in a specific directory, see `lgrep'.

This command uses a special history list for its COMMAND-ARGS, so you
can easily repeat a grep command.

A prefix argument says to default the COMMAND-ARGS based on the current
tag the cursor is over, substituting it into the last Grep command
in the Grep command history (or into `grep-command' if that history
list is empty).

(fn COMMAND-ARGS)
(defalias 'grep #[257 "\302 \210\303\203	\203
\304	Q\202
\305\"\207" [grep-use-null-device null-device grep--save-buffers compilation-start " " grep-mode] 5 (#$ . 26108) (byte-code "\302 \210\303 \304\305\203\202	\306?\205$C\207" [current-prefix-arg grep-command grep-compute-defaults grep-default-command read-shell-command "Run grep (like this): " grep-history] 6)])
#@320 Run grep via find, with user-specified args COMMAND-ARGS.
Collect output in a buffer.
While find runs asynchronously, you can use the \[next-error] command
to find the text that grep hits refer to.

This command uses a special history list for its arguments, so you can
easily repeat a find command.

(fn COMMAND-ARGS)
(defalias 'grep-find #[257 "\211\205\n\301\302
!)\207" [null-device nil grep] 3 (#$ . 27364) (byte-code "\301 \210\203\302\303\304#C\207\305\306!\210\307C\207" [grep-find-command grep-compute-defaults read-shell-command "Run find (like this): " grep-find-history read-string "compile.el: No `grep-find-command' command available. Press RET." nil] 4)])
(defalias 'find-grep 'grep-find)
#@180 List of substitutions performed by `grep-expand-template'.
If car of an element matches, the cdr is evalled in to get the
substitution string.  Note dynamic scoping of variables.
(defconst grep-expand-keywords '(("<C>" mapconcat #'identity opts " ") ("<D>" or dir ".") ("<F>" . files) ("<N>" . null-device) ("<X>" . excl) ("<R>" shell-quote-argument (or regexp ""))) (#$ . 28081))
#@113 Patch grep COMMAND string replacing <C>, <D>, <F>, <R>, and <X>.

(fn TEMPLATE &optional REGEXP FILES DIR EXCL)
(defalias 'grep-expand-template #[1281 "\303\304\203\305\306\"\203\307
B\262
	\310\267\202'\311
B\262
\202'\312
B\262
\211\262
B\313B\314B\315B\316	B\257\304\n\211\203\204\211@\317
@\"\203}\320
A9\203[\321A\"\202r\322 \323\324\325\326\327!\330\"\331$\216\321A\")\262
\206v\332\306\211$\262
A\266\202\202>\262
)\207" [case-fold-search grep-highlight-matches grep-expand-keywords opts nil isearch-no-upper-case-p t "-i" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (always 26 auto 34)) "--color=always" "--color" excl dir files regexp string-match replace-match eval match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 ""] 17 (#$ . 28469)])
#@59 Read regexp arg for interactive grep using `read-regexp'.
(defalias 'grep-read-regexp #[0 "\300\301\302\303#\207" [read-regexp "Search for" grep-tag-default grep-regexp-history] 4 (#$ . 29341)])
#@229 Read a file-name pattern arg for interactive grep.
The pattern can include shell wildcards.  As whitespace triggers
completion when entering a pattern, including it requires
quoting, e.g. `\[quoted-insert]<space>'.

(fn REGEXP)
(defalias 'grep-read-files #[257 "\302 \206\303\304\305\306 #\211\205\211;\205\307
!\211\205O\310\311\312\"\"\313
\203K
@\262

A\262\314\315\316\317A\313\320#\321#\"\203E\313\262\202#\313\262
\202#\211A\266\202
\205_\322!\211\205]\323
P\262

\206o\211\206o	@\206o@@\324\325\326\205|\327\330Q\331\260\332\313\211\211\301\333\334\313\335E\336\337\"\"\"!&\211\205\245\311
\"A\206\245\211\207" [grep-files-aliases grep-files-history buffer-file-name replace-regexp-in-string "<[0-9]+>\\'" "" buffer-name file-name-nondirectory remove assoc "all" nil string-match mapconcat wildcard-to-regexp split-string t "\\|" file-name-extension "*." completing-read "Search for \"" "\" in files matching wildcard" " (default " ")" ": " read-file-name-internal delete-dups delq append mapcar car] 21 (#$ . 29543)])
#@868 Run grep, searching for REGEXP in FILES in directory DIR.
The search is limited to file names matching shell pattern FILES.
FILES may use abbreviations defined in `grep-files-aliases', e.g.
entering `ch' is equivalent to `*.[ch]'.  As whitespace triggers
completion when entering a pattern, including it requires
quoting, e.g. `\[quoted-insert]<space>'.

With \[universal-argument] prefix, you can edit the constructed shell command line
before it is executed.
With two \[universal-argument] prefixes, directly edit and run `grep-command'.

Collect output in a buffer.  While grep runs asynchronously, you
can use \[next-error] (M-x next-error), or \<grep-mode-map>\[compile-goto-error] in the grep output buffer,
to go to the lines where grep found matches.

This command shares argument histories with \[rgrep] and \[grep].

(fn REGEXP &optional FILES DIR CONFIRM)
(defalias 'lgrep #[1025 "
C;\205\236G\306V\205\236\211\242\203\307
\242!\204\211\240\210\204/\211	\230\203r\310\262
\202r
\311\312\242!!\240\210\313\n\310\205V\314\315\316\317\320\321\322
!\323\"\324\325%\314#P%\262
\211\203r\203m\326\327\310\211\330%\262
\202r\331\330\"\210\211\205\234
\242\332 \210\333\f\203\214
\203\214
\334
Q\202\215
\335\"\210)p=\205\234
\242\211\262
\207" [default-directory grep-command grep-template grep-find-ignored-files grep-use-null-device null-device 0 file-accessible-directory-p nil file-name-as-directory expand-file-name grep-expand-template " --exclude=" mapconcat make-byte-code 257 "\211;\203	\301
!\207\211:\205\211@\300\242!\205\301
A!\207" vconcat vector [shell-quote-argument] 3 "\n\n(fn IGNORE)" read-from-minibuffer "Confirm: " grep-history add-to-history grep--save-buffers compilation-start " " grep-mode next-error-last-buffer] 19 (#$ . 30617) (byte-code "\304 \210\203	\305\232\203\306\307\310\211\311%C\207\n\204\312\313!\207\314 \315
!\316\317\310\320$	\321\232F\207" [grep-command current-prefix-arg grep-template default-directory grep-compute-defaults (16) read-from-minibuffer "Run: " nil grep-history error "grep.el: No `grep-template' available" grep-read-regexp grep-read-files read-directory-name "In directory: " t (4)] 8)])
#@1054 Recursively grep for REGEXP in FILES in directory tree rooted at DIR.
The search is limited to file names matching shell pattern FILES.
FILES may use abbreviations defined in `grep-files-aliases', e.g.
entering `ch' is equivalent to `*.[ch]'.  As whitespace triggers
completion when entering a pattern, including it requires
quoting, e.g. `\[quoted-insert]<space>'.

With \[universal-argument] prefix, you can edit the constructed shell command line
before it is executed.
With two \[universal-argument] prefixes, directly edit and run `grep-find-command'.

Collect output in a buffer.  While the recursive grep is running,
you can use \[next-error] (M-x next-error), or \<grep-mode-map>\[compile-goto-error] in the grep output buffer,
to visit the lines where matches were found.  To kill the job
before it finishes, type \[kill-compilation].

This command shares argument histories with \[lgrep] and \[grep-find].

When called programmatically and FILES is nil, REGEXP is expected
to specify a command to run.

(fn REGEXP &optional FILES DIR CONFIRM)
(defalias 'rgrep #[1025 ";\205nG\303V\205n
\203\304!\204\262\2043	:\203(	@\202)	\230?\205n\305\306\"\207\307\310!!\262\311\312#\211\205l
\203S\313\314\312\211\315%\262
\202X\316\315\"\210\317 \210\305
\306\"\210)\np=\205l\211\262
\207" [default-directory grep-find-command next-error-last-buffer 0 file-accessible-directory-p compilation-start grep-mode file-name-as-directory expand-file-name rgrep-default-command nil read-from-minibuffer "Confirm: " grep-find-history add-to-history grep--save-buffers] 11 (#$ . 32834) (byte-code "\304 \210\203	\305\232\203\306\307\310\211\311%C\207\n\204\312\313!\207\314 \315
!\316\317\310\320$	\321\232F\207" [grep-find-command current-prefix-arg grep-find-template default-directory grep-compute-defaults (16) read-from-minibuffer "Run: " nil grep-find-history error "grep.el: No `grep-find-template' available" grep-read-regexp grep-read-files read-directory-name "Base directory: " t (4)] 8)])
#@71 Return the list of ignored directories applicable to `dir'.

(fn DIR)
(defalias 'rgrep-find-ignored-directories #[257 "\301\302\303\304\305\306\307\310!\311\"\312\313%\"\"\207" [grep-find-ignored-directories delq nil mapcar make-byte-code 257 "\211;\203\207\211:\205\211@\300!\205\211A\207" vconcat vector [] 3 "\n\n(fn IGNORE)"] 10 (#$ . 34875)])
#@76 Compute the command for \[rgrep] to use by default.

(fn REGEXP FILES DIR)
(defalias 'rgrep-default-command #[771 "\304\305!\210\306\307\310!\311	\311\312\307\313!\314	\311Q#\311\307\315!\260\n\2057\316\307\310!\317\312\320\321!\322#\311\307\315!\323\260\205[\307\324!\325\307\310!\326\312\327\330\331\332\333!\334\"\335\336%\337#\311\307\315!\323\260P%\207" [grep-find-template find-name-arg grep-find-ignored-directories grep-find-ignored-files require find-dired grep-expand-template shell-quote-argument "(" " " mapconcat split-string " -o " ")" "-type d " " -path " #[257 "\300\301P!\207" [shell-quote-argument "*/"] 4 "\n\n(fn D)"] rgrep-find-ignored-directories " -o -path " " -prune -o " "!" " -type d " " -name " make-byte-code 257 "\211;\203	\301
!\207\211:\205\211@\300!\205\301
A!\207" vconcat vector [shell-quote-argument] 3 "\n\n(fn IGNORE)" " -o -name "] 20 (#$ . 35238)])
#@254 Recursively grep for REGEXP in gzipped FILES in tree rooted at DIR.
Like `rgrep' but uses `zgrep' for `grep-program', sets the default
file name to `*.gz', and sets `grep-highlight-matches' to `always'.

(fn REGEXP &optional FILES DIR CONFIRM TEMPLATE)
(defalias 'zrgrep #[1281 "\211\302\303$*\207" [grep-highlight-matches grep-find-template always rgrep] 10 (#$ . 36155) (byte-code "\306 \210\307\310\211\211\211\311\306 \210\203(\312\232\203(\313\314\310\211\315%C\202K\f\2042\316\317!\202K\320 \321
!\322\323\310\324$\325\232\f\257\266\204.\207" [grep-files-aliases grep-use-null-filename-separator grep-host-defaults-alist grep-find-command grep-find-template grep-program grep-compute-defaults "zgrep" nil (("all" . "* .*") ("gz" . "*.gz")) (16) read-from-minibuffer "Run: " grep-find-history error "grep.el: No `grep-find-template' available" grep-read-regexp grep-read-files read-directory-name "Base directory: " t (4) current-prefix-arg default-directory] 9)])
(byte-code "\300\301\302\"\210\303\304!\207" [defalias rzgrep zrgrep provide grep] 3)