Current File : //usr/local/share/emacs/27.2/lisp/progmodes/grep.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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\201D DD\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\n\\[customize] 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\n\\[customize] 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\n\\[customize] 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\n\\[customize] 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\n\\[customize] 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.\n\nThe default value is inherited from `vc-directory-exclusion-list'." (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 \305P\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\303\363\364#\210\303\365\366#\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 grep-find-toggle-abbreviation] (menu-item "Toggle command abbreviation" grep-find-toggle-abbreviation :help "Toggle showing verbose command options") [menu-bar grep compilation-separator3] ("----") [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-separator1] ("----") [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) (#$ . 9610))
(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 (#$ . 12896))
#@36 Face name to use for grep matches.
(defvar grep-match-face 'match (#$ . 13165))
#@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:\\(?:[a-zA-Z]:\\)?[^\n:]+?[^\n/:]\\):[ ]*\\(?2:[1-9][0-9]*\\)[ ]*:\\)" 1 2 #[0 "\205 \302\225\212\211b\210\303 )\304\305 $\211\205 \211Z\266\203\207" [grep-highlight-matches grep-match-face 0 line-end-position text-property-any font-lock-face] 7] #[0 "\205& \302\225\212\211b\210\303 )\304\305 $\211\205 \306\305\307$\211\205$ \211Z\266\204\207" [grep-highlight-matches grep-match-face 0 line-end-position text-property-any font-lock-face next-single-property-change nil] 8] (nil nil (3 '(face nil display ":"))) (("^Binary file \\(.+\\) matches$" 1 nil nil 0 1))] 5) (#$ . 13251))
#@62 Value to use for `compilation-first-column' in grep buffers.
(defvar grep-first-column 0 (#$ . 14082))
#@45 Message to print when no matches are found.
(defvar grep-error "grep hit" (#$ . 14191))
#@33 Face name to use for grep hits.
(defvar grep-hit-face compilation-info-face (#$ . 14285))
#@43 Face name to use for grep error messages.
(defvar grep-error-face 'compilation-error (#$ . 14381))
#@42 Face name to use for grep context lines.
(defvar grep-context-face 'shadow (#$ . 14486))
(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))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\312\313\310\311\306\317& \207" [custom-declare-variable grep-find-abbreviate funcall function #[0 "\300\207" [t] 1] "If non-nil, hide part of rgrep/lgrep/zrgrep command line.\nThe hidden part contains a list of ignored directories and files.\nClicking on the button-like ellipsis unhides the abbreviated part\nand reveals the entire command line. The visibility of the\nabbreviated part can also be toggled with\n`grep-find-toggle-abbreviation'." :type boolean :version "27.1" :group grep grep-search-path #[0 "\300\207" [(nil)] 1] "List of directories to search for files named in grep messages.\nElements should be directory names, not file names of\ndirectories. The value nil as an element means the grep messages\nbuffer `default-directory'." (repeat (choice (const :tag "Default" nil) (string :tag "Directory")))] 10)
#@67 Properties of button-like ellipsis on part of rgrep command line.
(defvar grep-find-abbreviate-properties (byte-code "\300\301!\203\n \302\202 \303\304 \305\306\307#\210\305\310\311#\210\305\312\311#\210\313\314\315\316\317\320\321\322 \323BBBBBBBBBB\207" [char-displayable-p 8230 "[…]" "[...]" make-sparse-keymap define-key [down-mouse-2] mouse-set-point [mouse-2] grep-find-toggle-abbreviation "
" face nil display mouse-face highlight help-echo "RET, mouse-2: show unabbreviated command" keymap (abbreviated-command t)] 13) (#$ . 15752))
#@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]+ \\)?match\\(?:es\\)? 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))))) ("^find \\(\\. -type d .*\\\\)\\)" (1 (if grep-find-abbreviate grep-find-abbreviate-properties '(face nil abbreviated-command t)))) ("^grep \\( *--exclude.*--exclude[^ ]+\\)" (1 (if grep-find-abbreviate grep-find-abbreviate-properties '(face nil abbreviated-command t))))) (#$ . 16308))
#@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") (#$ . 17595))
#@103 The default find program.
This is used by commands like `grep-find-command', `find-dired'
and others.
(defvar find-program (purecopy "find") (#$ . 17799))
#@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") (#$ . 17961))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable grep-find-use-xargs funcall function #[0 "\300\207" [nil] 1] "How to invoke find and grep.\nIf `exec', use `find -exec {} ;'.\nIf `exec-plus' use `find -exec {} +'.\nIf `gnu', use `find -print0' and `xargs -0'.\nIf `gnu-sort', use `find -print0', `sort -z' and `xargs -0'.\nAny other value means to use `find -print' and `xargs'.\n\nThis variable's value takes effect when `grep-compute-defaults' is called." :type (choice (const :tag "find -exec {} ;" exec) (const :tag "find -exec {} +" exec-plus) (const :tag "find -print0 | xargs -0" gnu) (const :tag "find -print0 | sort -z | xargs -0'" gnu-sort) string (const :tag "Not Set" nil)) :set grep-apply-setting :version "27.1" :group grep] 12)
#@24 History list for grep.
(defvar grep-history nil (#$ . 18972))
#@29 History list for grep-find.
(defvar grep-find-history nil (#$ . 19040))
(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 (#$ . 19184)])
#@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\306\307#\"\310B\207\311\207\303 \204+ \312\207\211B\207\211B\207" [grep-num-matches-found exit 0 buffer-modified-p format ngettext "finished with %d match found\n" "finished with %d matches found\n" "matched" ("finished with matches found\n" . "matched") ("finished with no matches found\n" . "no match")] 8 (#$ . 19812)])
#@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 (#$ . 20303)])
#@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 (#$ . 20906)])
#@255 Compute the defaults for the `grep' command.
The value depends on `grep-command', `grep-template',
`grep-use-null-device', `grep-find-command', `grep-find-template',
`grep-use-null-filename-separator', `grep-find-use-xargs' and
`grep-highlight-matches'.
(defalias 'grep-compute-defaults #[0 "\2043 \306\301 D\302\nD\303 D\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\210A\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\267 eb\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 \350CC\"\262\202\366 \351B\262\335B\306\321\306BBB\"\205eb\210\341\342!\352P!\266\202*\262 \344=\203S\322\323!r\211q\210\324\325\326\327\330!\353\"\332$\216\335B\354\"\205Neb\210\355\356\306\321#\205ND\357>\203M\360\202N\361*\262 \203c\f\203c\n\203c
\204\340 \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\201G BBBB\"\203 \335F\201H \"\203 \201I \202\201J \f\204u\201K \267\202j\370\201L EF $\202t\370\201M EF $\202t\370\201N E # \203B\370\201O C\"\202C\374\377=\203V\370\201P $\202a\370\201Q %GTB\266\202\202t\370\201R EF $
\204\337\370\201S B# \203\217\370\201O C\"\202\220\374\201T \267\202\322\370\201U EF$\202\334\370\201V EF$\202\334\370\201W E &\202\334\370\201X E %\202\334\370\201Y EF$\266\202\210\201Z \236\"\301 D\302\nD\303 D\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 "^Copyright" call-process-shell-command "-nH" looking-at regexp-quote ":[0-9]+:Copyright" auto-detect [buffer-name kill-buffer] "--null" "-ne" append "-H" " [0-9]+:Copyright" [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(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (gnu 530 gnu-sort 543 exec 556 exec-plus 556)) "%s . -type f -print0 | \"%s\" -0 %s" "%s . -type f -print0 | sort -z | \"%s\" -0 %s" "%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 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (gnu 665 gnu-sort 678 exec 691 exec-plus 708)) "%s <D> <X> -type f <F> -print0 | \"%s\" -0 %s" "%s <D> <X> -type f <F> -print0 | sort -z | \"%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 (#$ . 21131)])
(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\"\205l \3121` \n;?\206J \313\224\205J \314 \315\316\317\320\321!\322\"\323$\216\306\324\325\326\323\"!!\325\n!\")\262?\205\\ \327\316\313\224#\330\331\n!Q\211\2620\202d \210\202e \210\332\333\211\334%\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 substring " *." file-name-extension replace-match t 1] 10 (#$ . 25299)])
(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!\2104 \306\337!\2105 p6\306\340!\2107 \306\341!\2108!\306\342!\2109\"\306\343!\210:#\306\344!\210;C$\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-search-path compilation-window-height tool-bar-map compilation-error-face compilation-error-regexp-alist compilation-mode-line-errors compilation-directory-matcher 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-search-path grep-window-height grep-last-buffer grep-mode-tool-bar-map grep-hit-face grep-regexp-alist grep-mode-line-matches regexp-unmatchable] 5 (#$ . 27270) nil])
(defalias 'grep--save-buffers #[0 "\205 \301\302=?\205 \303!?\303!\205 \"\207" [grep-save-buffers save-some-buffers ask functionp] 4])
#@894 Run Grep with user-specified COMMAND-ARGS.
The output from the command goes to the "*grep*" 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 (#$ . 29365) (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)])
#@331 Run grep via find, with user-specified args COMMAND-ARGS.
Collect output in the "*grep*" 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 (#$ . 30651) (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)
#@287 List of substitutions performed by `grep-expand-template'.
If car of an element matches, the cdr is evalled in order to get the
substitution string.
The substitution is based on variables bound dynamically, and
these include `opts', `dir', `files', `null-device', `excl' and
`regexp'.
(defconst grep-expand-keywords '(("<C>" mapconcat #'identity opts " ") ("<D>" or dir ".") ("<F>" . files) ("<N>" . null-device) ("<X>" . excl) ("<R>" shell-quote-argument (or regexp ""))) (#$ . 31379))
#@114 Expand 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 \307B\262 \310\267\202' \311B\262\202' \312B\262\211\262B\313B\314B\315B\316 B\257\304\n\211\203\204 \211@\317@\"\203} \320A9\203[ \321A\"\202r \322 \323\324\325\326\327!\330\"\331$\216\321A\")\262\206v \332\306\211$\262A\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 (#$ . 31874)])
#@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 (#$ . 32747)])
#@272 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>'.
REGEXP is used as a string in the prompt.
(fn REGEXP)
(defalias 'grep-read-files #[257 "\303N\304\305!\203 \202) \211;\203 \306!\204 \211\206) \307 \206) \310\311\312\313 #\211\2055 \211;\2055 \314!\211\205m \315\316\317 \" \"\320\203i @\262A\262\321\322\323\324A\320\325#\326#\"\203c \320\262\202A \320\262\202A \211A\266\202\205} \327!\211\205{ \330P\262\206\215 \211\206\215 \n@\206\215 @@\331\332 \333\205\232 \334\335Q\336\260\337\320\211\211\302\340\341\320\342 E\343\344 \"\"\"!&\211\205\303 \316 \"A\206\303 \211\207" [major-mode grep-files-aliases grep-files-history grep-read-files run-hook-with-args-until-success file-name-at-point-functions file-directory-p 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] 23 (#$ . 32949)])
#@978 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 the "*grep*" 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].
If CONFIRM is non-nil, the user will be given an opportunity to edit the
command before it's run.
(fn REGEXP &optional FILES DIR CONFIRM)
(defalias 'lgrep #[1025 "C;\205\236 G\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 \301A!\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 (#$ . 34248) (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)])
#@1164 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 the "*grep*" 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.
If CONFIRM is non-nil, the user will be given an opportunity to edit the
command before it's run.
(fn REGEXP &optional FILES DIR CONFIRM)
(defalias 'rgrep #[1025 ";\205n G\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 (#$ . 36575) (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 (#$ . 38726)])
#@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 \301A!\207" vconcat vector [shell-quote-argument] 3 "\n\n(fn IGNORE)" " -o -name "] 20 (#$ . 39089)])
#@68 Toggle showing the hidden part of rgrep/lgrep/zrgrep command line.
(defalias 'grep-find-toggle-abbreviation #[0 "\304 \305\211\305\306\307\310\311\312!\313\"\314$\216\315e\316\"\211\205 \315\316\"\211\203; \317\320\"\2033 \321\322#\202> \323 #\202> \324\325!\266\202,\207" [buffer-undo-list inhibit-read-only inhibit-modification-hooks grep-find-abbreviate-properties buffer-modified-p t make-byte-code 0 "\300?\205 \301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 next-single-property-change abbreviated-command get-text-property display remove-list-of-text-properties (display help-echo mouse-face help-echo keymap) add-text-properties user-error "No abbreviated part to hide/show"] 8 (#$ . 40005) nil])
#@353 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'.
If CONFIRM is non-nil, the user will be given an opportunity to edit the
command before it's run.
(fn REGEXP &optional FILES DIR CONFIRM TEMPLATE)
(defalias 'zrgrep #[1281 "\211\302\303$*\207" [grep-highlight-matches grep-find-template always rgrep] 10 (#$ . 40745) (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)
Mini Shell