ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/progmodes/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/progmodes/grep.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 588))
#@256 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', 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 (#$ . 909)])
(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\306\345\320\321\312\313& \210\300\346\302\303\347DD\350\306\351\320\321\310\311\312\313& \210\300\352\302\303\353DD\354\306\355\312\313&\210\300\356\302\303\357DD\360\306\361\312\313&\210\300\362\302\303\363DD\364\306\365\312\313&\210\300\366\302\303\367DD\370\306\371\310\311\312\313& \210\300\372\302\303\373DD\374\306\375\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-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 \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-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) (#$ . 8489))
(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 (#$ . 11526))
#@72 Regexp used to match grep hits. See `compilation-error-regexp-alist'.
(defconst grep-regexp-alist '(("^\\(.*?[^/\n]\\):[ ]*\\([1-9][0-9]*\\)[ ]*:" 1 2 ((lambda nil (when grep-highlight-matches (let* ((beg (match-end 0)) (end (save-excursion (goto-char beg) (line-end-position))) (mbeg (text-property-any beg end 'font-lock-face grep-match-face))) (when mbeg (- mbeg beg))))) lambda nil (when grep-highlight-matches (let* ((beg (match-end 0)) (end (save-excursion (goto-char beg) (line-end-position))) (mbeg (text-property-any beg end 'font-lock-face grep-match-face)) (mend (and mbeg (next-single-property-change mbeg 'font-lock-face nil end)))) (when mend (- mend beg)))))) ("^Binary file \\(.+\\) matches$" 1 nil nil 0 1)) (#$ . 11795))
#@62 Value to use for `compilation-first-column' in grep buffers.
(defvar grep-first-column 0 (#$ . 12543))
#@45 Message to print when no matches are found.
(defvar grep-error "grep hit" (#$ . 12652))
#@33 Face name to use for grep hits.
(defvar grep-hit-face compilation-info-face (#$ . 12746))
#@43 Face name to use for grep error messages.
(defvar grep-error-face 'compilation-error (#$ . 12842))
#@36 Face name to use for grep matches.
(defvar grep-match-face 'match (#$ . 12947))
#@42 Face name to use for grep context lines.
(defvar grep-context-face 'shadow (#$ . 13033))
#@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 \\(?:(\\(matches found\\))\\|with \\(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))) (#$ . 13129))
#@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") (#$ . 14021))
#@103 The default find program.
This is used by commands like `grep-find-command', `find-dired'
and others.
(defvar find-program (purecopy "find") (#$ . 14225))
#@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") (#$ . 14387))
#@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 (#$ . 14602))
#@24 History list for grep.
(defvar grep-history nil (#$ . 14932))
#@29 History list for grep-find.
(defvar grep-find-history nil (#$ . 15000))
(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 "\303=\203 \304 \210\303=\204& \203& \203& \305\306\307\"\210\305\310\311\"\210\305\312\313\"\210\314\302!\210\315\316\317!\207" [grep-highlight-matches font-lock-mode 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 #[771 "\300=\203 \301U\203 \302 \203 \303\207\302 \204 \304\207\211B\207\211B\207" [exit 0 buffer-modified-p ("finished (matches found)\n" . "matched") ("finished with no matches found\n" . "no match")] 5 "\n\n(fn STATUS CODE MSG)"] run-hooks grep-setup-hook] 3 (#$ . 15144)])
#@130 Handle match highlighting escape sequences inserted by the grep process.
This function is called from `compilation-filter-hook'.
(defalias 'grep-filter #[0 "\212\302y\210`\303b\210\302y\210`\262`W\205G \304!\262\305\306\307#\2033 \310\311\312\307!\313\303\314 %\315\211#\210\202 \211b\210\305\316\307#\205G \310\317\315\211#\210\2026 \266\202)\207" [compilation-filter-start grep-match-face 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 (#$ . 15953)])
(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 "\n\n(fn COMMAND ARGS &optional FUNC RESULT)"])
(defalias 'grep-compute-defaults #[0 "\204/ \306\301 D\302\nD\303 D\304\fD\305
D\307D\310D\257B\211\235\203* \210\202. \211B\210\311\312@!\2068 \313!\211\236\306\236\314\211\203[ \211@\211\236\206P \236A@L\210A\266\202\202@ \210 \203\262 \315=\204\262 \316\317!r\211q\210\320\321\322\323\324!\325\"\326$\216\327\330A\" \203\221 \331 \306\315\306\332\257\333#\202\236 \331B\306\315\306\334\332\257\"\205\253 eb\210\335\336!\337P!?\262*\262\340=\203\360 \316\317!r\211q\210\320\321\322\323\324!\341\"\326$\216\331B\342\"\205\353 eb\210\343\344\306\315#\205\353 C\345>\203\352 \346\202\353 \347*\262 \203 \f\203 \n\203
\204W \203\350\202 \334\331B\306\211\211\351\352D\257\306\353$\205 \354P \204O\355\356B\203K\331B\306\211\211\344\357D\257\306\353$\203K\346=\203G\360\202L\344\202L\361$\n\204Z\355\362B#\204\224\331E\306\211\211D\363BBBB\"\203t\364\202\222\331E\306\211\211D\365BBBB\"\203\221\331F\366\"\203\221\367\202\222\370\f\204\361\367=\203\252\355\371EF $\202\360\372>\203\346\355\373E # \203\303\355\374D\"\202\304\361\364=\203\323\355\375#\202\335\355\376\377\201G !$GTB\266\202\202\360\355\201H EF $
\204V\355\201I B# \203 \355\374D\"\202\n\361\367=\203 \355\201J EF$\202S\370=\2036\355\201K E\377\201G !%\202S\364=\203I\355\201L E$\202S\355\201M EF$\266\202\210\201N \236\"\301 D\302\nD\303 D\304\fD\305
D\307D\310D\257B\211\235\203\205\202\212\211B\211\262\207" [grep-host-defaults-alist grep-command grep-template grep-use-null-device grep-find-command grep-find-template nil grep-find-use-xargs grep-highlight-matches intern file-remote-p "localhost" (grep-command grep-template grep-use-null-device grep-find-command 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] (nil t nil "--help") search-forward "--color" (windows-nt ms-dos) always auto "-n" "-e" "foo" 1 " -e" format "%s %s %s " "x" "--color=always" "" "%s <X> <C> %s <R> <F>" ("-exec" "echo" "{}" "+") exec-plus ("-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" shell-quote-argument default-directory data-directory grep-program system-type null-device find-program xargs-program ";" "%s . -type f -print | \"%s\" %s" "%s <C> %s <R>" "%s <D> <X> -type f <F> -print0 | \"%s\" -0 %s" "%s <D> <X> -type f <F> -exec %s {} %s%s" "%s <D> <X> -type f <F> -exec %s %s{} +" "%s <D> <X> -type f <F> -print | \"%s\" %s" delete] 15])
(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 (#$ . 19851)])
#@161 Hook run after entering Grep mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar grep-mode-hook nil (#$ . 20695))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp grep-mode-map put definition-name grep-mode] 4)
(defvar grep-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [grep-mode-map variable-documentation put purecopy "Keymap for `grep-mode'." boundp grep-mode-syntax-table definition-name grep-mode] 5)
(defvar grep-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [grep-mode-syntax-table variable-documentation put purecopy "Syntax table for `grep-mode'." grep-mode-abbrev-table definition-name grep-mode] 5)
(defvar grep-mode-abbrev-table (progn (define-abbrev-table 'grep-mode-abbrev-table nil) grep-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [grep-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `grep-mode'." grep-mode derived-mode-parent compilation-mode] 5)
#@236 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 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!\210/\306\333!\2100\306\334!\2101 \306\335!\2102 \306\336!\2103 p4\306\337!\2105 \306\340!\2106 \306\341!\2107!\306\342!\210\343\"\306\344!\210\345$\306\346!\210\307&\306\332!\210/\347\350\351\352\307$\210)\353\354!\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-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] 5 (#$ . 21903) nil])
#@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\203 \203 \303 Q\202 \304\"\207" [grep-use-null-device null-device compilation-start " " grep-mode] 5 (#$ . 23707) (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 (#$ . 24935) (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 ""))) (#$ . 25652))
#@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 \307B\262 \310=\203\" \311B\262\202- \312=\203- \313B\262\211\262B\314B\315B\316B\317 B\257\304\n\211\203\212 \211@\320@\"\203\203 \321A9\203a \322A\"\202x \323 \324\325\326\327\330!\331\"\332$\216\322A\")\262\206| \333\306\211$\262A\266\202\202D \262)\207" [case-fold-search grep-highlight-matches grep-expand-keywords opts nil isearch-no-upper-case-p t "-i" always "--color=always" auto "--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 (#$ . 26040)])
#@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 (#$ . 26831)])
#@51 Read files arg for interactive grep.
(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 @\262A\262\314\315\316\317A\313\320#\321#\"\203E \313\262\202# \313\262\202# \211A\266\202\205_ \322!\211\205] \323P\262\206o \211\206o @\206o @@\324\325\326\205| \327\330Q\331\260\332\313\211\211\301\333\334\313\335 E\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" " (default " ")" ": " read-file-name-internal delete-dups delq append mapcar car] 21 (#$ . 27032)])
#@745 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]'.
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\233 G\306V\205\233 \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\231 \242\332\f\203\211
\203\211 \333
Q\202\212 \334\"\210) p=\205\231 \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 compilation-start " " grep-mode next-error-last-buffer] 19 (#$ . 27910) (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)])
#@931 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]'.
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 ";\205k G\303V\205k \203 \304!\204 \262\2043 :\203( @\202) \230?\205k \305\306\"\207\307\310!!\262\311\312#\211\205i \203S \313\314\312\211\315%\262\202X \316\315\"\210\305\306\"\210)\np=\205i \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] 11 (#$ . 29975) (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)])
#@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\205F \316\307\310!\317\312\320\321\322\323\324\325\326\327\330!\331\"\332\333%\n\"\"\334#\311\307\315!\335\260 \205j \307\336!\337\307\310!\340\312\324\325\341\327\330!\342\"\343\333% \344#\311\307\315!\335\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 " identity delq nil mapcar make-byte-code 257 "\211;\203 \301\302P!\207\211:\205 \211@\300!\205 \301\302AP!\207" vconcat vector [shell-quote-argument "*/"] 4 "\n\n(fn IGNORE)" " -o -path " " -prune -o " "!" " -type d " " -name " "\211;\203 \301!\207\211:\205 \211@\300!\205 \301A!\207" [shell-quote-argument] 3 " -o -name "] 22 (#$ . 31865)])
#@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 (#$ . 32859) (byte-code "\306 \210\307\310\211\211\311 \306 \210\n\203%
\312\232\203% \313\314\n\310\211\315%C\202G \204/ \316\317!\202G \320 \321!\322\323\310\324$
\325\232 \257\266\204-\207" [grep-files-aliases grep-host-defaults-alist grep-find-command grep-find-template grep-program current-prefix-arg 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) default-directory] 9)])
(byte-code "\300\301\302\"\210\303\304!\207" [defalias rzgrep zrgrep provide grep] 3)
Kontol Shell Bypass