Gecko [ 122.154.134.11 ]

Name	Size	Permission
ada-mode.elc	107.46 KB	-rw-r--r--
ada-prj.elc	17.96 KB	-rw-r--r--
ada-stmt.elc	36.03 KB	-rw-r--r--
ada-xref.elc	54.99 KB	-rw-r--r--
antlr-mode.elc	77.63 KB	-rw-r--r--
asm-mode.elc	6.08 KB	-rw-r--r--
autoconf.elc	3.37 KB	-rw-r--r--
bug-reference.elc	5.83 KB	-rw-r--r--
cap-words.elc	3.54 KB	-rw-r--r--
cc-align.elc	35.43 KB	-rw-r--r--
cc-awk.elc	20.23 KB	-rw-r--r--
cc-bytecomp.elc	10.45 KB	-rw-r--r--
cc-cmds.elc	92.26 KB	-rw-r--r--
cc-compat.elc	2.97 KB	-rw-r--r--
cc-defs.elc	46.7 KB	-rw-r--r--
cc-engine.elc	143.05 KB	-rw-r--r--
cc-fonts.elc	140.72 KB	-rw-r--r--
cc-langs.elc	70.29 KB	-rw-r--r--
cc-menus.elc	7.32 KB	-rw-r--r--
cc-mode.elc	144.75 KB	-rw-r--r--
cc-styles.elc	16.11 KB	-rw-r--r--
cc-subword.elc	6.99 KB	-rw-r--r--
cc-vars.elc	71.07 KB	-rw-r--r--
cfengine.elc	8.09 KB	-rw-r--r--
cmacexp.elc	6.58 KB	-rw-r--r--
compile.elc	69.45 KB	-rw-r--r--
cperl-mode.elc	215.39 KB	-rw-r--r--
cpp.elc	21.52 KB	-rw-r--r--
cwarn.elc	12.8 KB	-rw-r--r--
dcl-mode.elc	49.31 KB	-rw-r--r--
delphi.elc	50.03 KB	-rw-r--r--
ebnf-abn.elc	7.39 KB	-rw-r--r--
ebnf-bnf.elc	7.99 KB	-rw-r--r--
ebnf-dtd.elc	13.82 KB	-rw-r--r--
ebnf-ebx.elc	8.77 KB	-rw-r--r--
ebnf-iso.elc	8.14 KB	-rw-r--r--
ebnf-otz.elc	8.51 KB	-rw-r--r--
ebnf-yac.elc	7.53 KB	-rw-r--r--
ebnf2ps.elc	121.25 KB	-rw-r--r--
ebrowse.elc	202.93 KB	-rw-r--r--
etags.elc	54.14 KB	-rw-r--r--
executable.elc	7.6 KB	-rw-r--r--
f90.elc	82.59 KB	-rw-r--r--
flymake.elc	61.25 KB	-rw-r--r--
fortran.elc	60.13 KB	-rw-r--r--
gdb-ui.elc	138.61 KB	-rw-r--r--
glasses.elc	10.15 KB	-rw-r--r--
grep.elc	27.75 KB	-rw-r--r--
gud.elc	93.94 KB	-rw-r--r--
hideif.elc	26.67 KB	-rw-r--r--
hideshow.elc	24.54 KB	-rw-r--r--
icon.elc	16.23 KB	-rw-r--r--
idlw-complete-structtag.elc	4.75 KB	-rw-r--r--
idlw-help.elc	35.31 KB	-rw-r--r--
idlw-shell.elc	134.39 KB	-rw-r--r--
idlw-toolbar.elc	28.34 KB	-rw-r--r--
idlwave.elc	254.7 KB	-rw-r--r--
inf-lisp.elc	18.43 KB	-rw-r--r--
ld-script.elc	4.91 KB	-rw-r--r--
m4-mode.elc	4.91 KB	-rw-r--r--
make-mode.elc	58.79 KB	-rw-r--r--
mantemp.elc	3.77 KB	-rw-r--r--
meta-mode.elc	27.42 KB	-rw-r--r--
mixal-mode.elc	35.32 KB	-rw-r--r--
modula2.elc	14.23 KB	-rw-r--r--
octave-inf.elc	11.87 KB	-rw-r--r--
octave-mod.elc	44.6 KB	-rw-r--r--
pascal.elc	40.31 KB	-rw-r--r--
perl-mode.elc	22.42 KB	-rw-r--r--
prolog.elc	12.7 KB	-rw-r--r--
ps-mode.elc	33.38 KB	-rw-r--r--
python.elc	86.23 KB	-rw-r--r--
ruby-mode.elc	34.59 KB	-rw-r--r--
scheme.elc	15.94 KB	-rw-r--r--
sh-script.elc	94.73 KB	-rw-r--r--
simula.elc	44.81 KB	-rw-r--r--
sql.elc	101.34 KB	-rw-r--r--
sym-comp.elc	7.15 KB	-rw-r--r--
tcl.elc	38.58 KB	-rw-r--r--
vera-mode.elc	44.5 KB	-rw-r--r--
verilog-mode.elc	331.76 KB	-rw-r--r--
vhdl-mode.elc	510.47 KB	-rw-r--r--
which-func.elc	9.72 KB	-rw-r--r--
xscheme.elc	37.76 KB	-rw-r--r--

Code Editor : grep.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:08 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/progmodes/grep.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`grep.el' was compiled for Emacs 19.29 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 as inferior of Emacs, parse error messages." :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 (#$ . 804))
#@237 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'.
(defalias 'grep-apply-setting #[(symbol value) "\203'�\306\307	!\206\f�\310!\211\236\311\236
\236A\240\210
\f\236A\240\210+\312
\"\207" [grep-host-defaults-alist default-directory host-id host-defaults defaults symbol intern file-remote-p "localhost" nil set-default value] 4 (#$ . 1125)])
#@78 *Number of lines in a grep window.  If nil, use `compilation-window-height'.
(custom-declare-variable 'grep-window-height 'nil '(#$ . -1670) :type '(choice (const :tag "Default" nil) integer) :version "22.1" :group 'grep)
#@579 If t, use special markers to highlight grep matches.

Some grep programs are able to surround matches with special
markers in grep output.  Such markers can be used to highlight
matches in grep mode.

This option sets the environment variable GREP_COLOR to specify
markers for highlighting and GREP_OPTIONS to add the --color
option in front of any explicit grep options before starting
the grep.

Setting it causes the grep commands to put point at the end of their
output window so that the end of the output is always visible rather
than the begining.
(custom-declare-variable 'grep-scroll-output 'nil '(#$ . -2781) :type 'boolean :version "22.1" :group 'grep)
#@409 The default grep command for \[grep].
If the grep program used supports an option to always include file names
in its output (such as the `-H' option to GNU grep), it's a good idea to
include it when specifying `grep-command'.

In interactive usage, the actual value of this variable is set up
by `grep-compute-defaults'; to change the default value, use
Customize or call the function `grep-apply-setting'.
(custom-declare-variable 'grep-command 'nil '(#$ . 3118) :type '(choice string (const :tag "Not Set" nil)) :set 'grep-apply-setting :group 'grep)
#@456 The default command to run for \[lgrep].
The following place holders should be present in the string:
 <C> - place to put -i if case insensitive grep.
 <F> - file names and wildcards to search.
 <R> - the regular expression searched for.
 <N> - place to insert null-device.

In interactive usage, the actual value of this variable is set up
by `grep-compute-defaults'; to change the default value, use
Customize or call the function `grep-apply-setting'.
(custom-declare-variable 'grep-template 'nil '(#$ . 3679) :type '(choice string (const :tag "Not Set" nil)) :set 'grep-apply-setting :version "22.1" :group 'grep)
#@446 If t, append the value of `null-device' to `grep' commands.
This is done to ensure that the output of grep includes the filename of
any match in the case where only a single file is searched, and is not
necessary if the grep program used supports the `-H' option.

In interactive usage, the actual value of this variable is set up
by `grep-compute-defaults'; to change the default value, use
Customize or call the function `grep-apply-setting'.
(custom-declare-variable 'grep-use-null-device ''auto-detect '(#$ . 4304) :type '(choice (const :tag "Do Not Append Null Device" nil) (const :tag "Append Null Device" t) (other :tag "Not Set" auto-detect)) :set 'grep-apply-setting :group 'grep)
#@224 The default find command for \[grep-find].
In interactive usage, the actual value of this variable is set up
by `grep-compute-defaults'; to change the default value, use
Customize or call the function `grep-apply-setting'.
(custom-declare-variable 'grep-find-command 'nil '(#$ . 5001) :type '(choice string (const :tag "Not Set" nil)) :set 'grep-apply-setting :group 'grep)
#@514 The default command to run for \[rgrep].
The following place holders should be present in the string:
 <D> - base directory for find
 <X> - find options to restrict or expand the directory list
 <F> - find options to limit the files matched
 <C> - place to put -i if case insensitive grep
 <R> - the regular expression searched for.
In interactive usage, the actual value of this variable is set up
by `grep-compute-defaults'; to change the default value, use
Customize or call the function `grep-apply-setting'.
(custom-declare-variable 'grep-find-template 'nil '(#$ . 5382) :type '(choice string (const :tag "Not Set" nil)) :set 'grep-apply-setting :version "22.1" :group 'grep)
#@66 *Alist of aliases for the FILES argument to `lgrep' and `rgrep'.
(custom-declare-variable 'grep-files-aliases ''(("asm" . "*.[sS]") ("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++") ("ch" . "*.[ch]") ("el" . "*.el") ("h" . "*.h") ("l" . "[Cc]hange[Ll]og*") ("m" . "[Mm]akefile*") ("tex" . "*.tex") ("texi" . "*.texi")) '(#$ . -6069) :type 'alist :group 'grep)
#@73 *List of names of sub-directories which `rgrep' shall not recurse into.
(custom-declare-variable 'grep-find-ignored-directories 'vc-directory-exclusion-list '(#$ . -6546) :type '(repeat string) :group 'grep)
#@101 *If non-nil, column numbers in grep hits are screen columns.
See `compilation-error-screen-columns'
(custom-declare-variable 'grep-error-screen-columns 'nil '(#$ . -6761) :type '(choice (const :tag "Default" nil) integer) :version "22.1" :group 'grep)
#@71 List of hook functions run by `grep-process-setup' (see `run-hooks').
(custom-declare-variable 'grep-setup-hook 'nil '(#$ . 7019) :type 'hook :group 'grep)
#@73 Keymap for grep buffers.
`compilation-minor-mode-map' is a cdr of this.
(defvar grep-mode-map (byte-code "\302 \303	\"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\320#\210\304\321\322#\210\304\323\324#\210\304\325\326#\210\304\327\330#\210\304\331\332\302\332!B#\210\304\333\334#\210\304\335\336#\210\304\337\340#\210\304\341\342#\210\304\343\344#\210\304\345\346#\210\304\347\350#\210\304\351\352#\210\304\353\354#\210\304\355\356#\210\304\357\360#\210\304\361\362#\210)\207" [map compilation-minor-mode-map make-sparse-keymap set-keymap-parent define-key " " scroll-up "" scroll-down "" 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")] 6) (#$ . 7181))
(byte-code "\304B\305\304!\204S�\306\304\307\310	!!\205Q�\310\311	!!\312	!\313\314\315\211\316\317\320\321&\210\313\317\322\211\316\314\320\323&\210\313\324\325\211\326\327\320\330&\210\313\331\332\211\320\333&\210\334\n\"*\"\210\335\336\325\"\207" [current-load-list tool-bar-map help map grep-mode-tool-bar-map default-boundp set-default 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 defalias kill-grep] 11)
#@220 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
`complation-last-buffer' rather than `grep-last-buffer'.
(defvar grep-last-buffer nil (#$ . 10246))
#@72 Regexp used to match grep hits.  See `compilation-error-regexp-alist'.
(defvar grep-regexp-alist '(("^\$.+?\$\$:[ 	]*\$\$[0-9]+\$\\2" 1 3) ("^\$\\(.+?\$:\$[0-9]+\$:\\).*?\$\\[01;31m\\(?:\\[K\$?\\)\$.*?\$\$\\[[0-9]*m\$" 2 3 ((lambda nil (setq compilation-error-screen-columns nil) (- (match-beginning 4) (match-end 1))) lambda nil (- (match-end 5) (match-end 1) (- (match-end 4) (match-beginning 4)))) nil 1) ("^Binary file \$.+\$ matches$" 1 nil nil 0 1)) (#$ . 10514))
#@45 Message to print when no matches are found.
(defvar grep-error "grep hit" (#$ . 11011))
#@33 Face name to use for grep hits.
(defvar grep-hit-face compilation-info-face (#$ . 11105))
#@43 Face name to use for grep error messages.
(defvar grep-error-face 'compilation-error (#$ . 11201))
#@36 Face name to use for grep matches.
(defvar grep-match-face 'match (#$ . 11306))
#@42 Face name to use for grep context lines.
(defvar grep-context-face 'shadow (#$ . 11392))
#@106 Additional things to highlight in grep output.
This gets tacked on the end of the generated expressions.
(defvar grep-mode-font-lock-keywords '(("^\$[A-Za-z_0-9/.+-]+\$[ 	]*:" 1 font-lock-function-name-face) (": \$.+\$: \$?:Permission denied\\|No such \\(?:file or directory\\|device or address\$\\)$" 1 grep-error-face) ("^Grep[/a-zA-z]* started.*" (0 '(face nil message nil help-echo nil mouse-face nil) t)) ("^Grep[/a-zA-z]* finished \$?:(\\(matches found\$)\\|with \$no matches found\$\\).*" (0 '(face nil 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 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)) ("\$\\[01;31m\$\$.*?\$\$\\[[0-9]*m\$" (2 (list 'face nil 'font-lock-face grep-match-face)) ((lambda (bound)) (progn (replace-match #1="" t t nil 3) (replace-match #1# t t nil 1)))) ("\$\\[[0-9;]*[mK]\$" ((lambda (bound)) (replace-match #1# t t nil 1)))) (#$ . 11488))
#@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 "grep" (#$ . 12668))
#@126 The default find program for `grep-find-command'.
This variable's value takes effect when `grep-compute-defaults' is called.
(defvar find-program "find" (#$ . 12861))
#@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 "xargs" (#$ . 13035))
#@283 Non-nil means that `grep-find' uses the `xargs' utility by default.
If `exec', use `find -exec'.
If `gnu', use `find -print0' and `xargs -0'.
Any other non-nil 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 (#$ . 13239))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\306B\302\306!\204-�\303\306\304\"\210\307B\302\307!\204<�\303\307\310\"\210\304\207" [current-load-list grep-history default-boundp set-default nil grep-find-history grep-regexp-history grep-files-history ("ch" "el")] 3)
#@122 Setup compilation variables and buffer for `grep'.
Set up `compilation-exit-message-function' and run `grep-setup-hook'.
(defalias 'grep-process-setup #[nil "\203
�\303=\204
�\304 \210\303=\2036�\305\306\307\"\210\305\310\311\310!\312	\313>\203(�\314\202)�\315Q\"\210\305\316\317\"\210\305\320\321\"\210\322\302!\210\323\324\325!\207" [grep-highlight-matches system-type compilation-exit-message-function t grep-compute-defaults setenv "TERM" "emacs-grep" "GREP_OPTIONS" getenv " --color=" (windows-nt ms-dos) "always" "auto" "GREP_COLOR" "01;31" "GREP_COLORS" "mt=01;31:fn=:ln=:bn=:se=:ml=:cx=:ne" make-local-variable #[(status code msg) "\303=\203�\304	!\203�\305\207	\306U\203�\307\207\n	B\207\n	B\207" [status code msg exit zerop ("finished (matches found)\n" . "matched") 1 ("finished with no matches found\n" . "no match")] 2] run-hooks grep-setup-hook] 6 (#$ . 13892)])
(defalias 'grep-probe #[(command args &optional func result) "\301\302\303\217\206	�\304\232\207" [result nil (byte-code "\303\206�\304	\n#\207" [func command args apply process-file] 4) ((error)) 0] 3])
(defalias 'grep-compute-defaults #[nil "\204#�\306\300\307\301	D\302\nD\303D\304\fD\305
D\310D\311	D\257B\"\210\312\3136!\206,�\314!\2117\2368\307\2369\315\307:\211;\203l�;@\211:\2118\236\211<A@)\206a�:9\236\211<A@)L\210;A\211;\204C�*\203\273�\316=\204\273�\317\320!=r=q\210\321\216\322\323>\"?	\203\235�\324	\307\316\307\325?\257\326#\202\252�\324@\307\316\307\327\325?\257\"\205\270�eb\210\330\331?!\332P!,?	\203\313�\f\203\313�\n\203\313�
\204\252\203\323�\333\202\324�\327\324@\307\211\211\334\335A\257\307\336$\205\347�\337PB	\204\366�\340\341@B#\n\204\340\342@B#\204'\324C\307\211\211A\343BBBB\"\203$\324D\344\"\203$\345\202%\346\f\204h\345=\203=\340\347CD	$\202g\346=\203_\340\350C	#E\340\351EA\352\353!$EGT)B\202g\340\354CD	$
\204\251\340\355@B#F\345=\203\210\340\356CDF$\202\247\346=\203\236\340\357CFA\352\353!%\202\247\340\360CDF$))	\203\331	\316=\204\331\317\320!GrGq\210\361\216\324@\362\"\205\326eb\210\363\364\307\316#\205\326\316+	\3657\236\"\306\3007\301	D\302\nD\303D\304\fD\305
D\310D\311	D\257B\"+\207" [grep-host-defaults-alist grep-command grep-template grep-use-null-device grep-find-command grep-find-template add-to-list 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*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) expand-file-name "HELLO" grep-probe "^English" call-process-shell-command "-nH" looking-at regexp-quote ":[0-9]+:English" "-n" "-e" "foo" 1 " -e" format "%s %s " "%s <C> %s <R> <F>" ("-print0") (nil nil nil "-0" "-e" "echo") gnu exec "%s . -type f -print0 | %s -0 -e %s" "%s . -type f -exec %s" "%s {} %s %s" shell-quote-argument ";" "%s . -type f -print | %s %s" "%s <C> %s <R>" "%s . <X> -type f <F> -print0 | %s -0 -e %s" "%s . <X> -type f <F> -exec %s {} %s %s" "%s . <X> -type f <F> -print | %s %s" ((byte-code "\301!\203\n�\302!\210\301\207" [#2=#:temp-buffer buffer-name kill-buffer] 2)) (nil t nil "--help") search-forward "--color" delete default-directory host-id host-defaults defaults setting --dolist-tail-- x #1# data-directory hello-file grep-program null-device grep-options find-program xargs-program cmd0 gcmd #2#] 12])
(defalias 'grep-tag-default #[nil "\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 #[nil "\305\306 !\307@\206�	\310\311\312Q\n\"\204�\310\313\n\"\205+�\314\315\316\217\210\317\f\320\211\n\321%+\207" [grep-history grep-command grep-default sh-arg-re tag-default shell-quote-argument grep-tag-default "\$\\(?:\"\\(?:[^\"]\\|\\\\\"\$+\"\\|'[^']+'\\|[^\"' 	\n]\\)+\\)" string-match "[^ ]+\\s +\$?:-[^ ]+\\s +\$*" "\$\\s +\\(\\S +\$\\)?" "\$\$\\'" nil (byte-code ";\203+�\303\224\203 �\304 \305\216\306\307\310\311\312\n\"!!\310!\"*\204+�\n\313\303\224O\314\315!Q\303\207" [buffer-file-name save-match-data-internal grep-default 2 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match wildcard-to-regexp file-name-nondirectory match-string 3 0 " *." file-name-extension] 6) ((error)) replace-match t 1] 6 (#$ . 17687)])
(byte-code "\302\303N\204\f�\304\302\303\305#\210\306\307!\204�\304\307\310\311#\210\307B\312\307!\204(�\313\307\314 \"\210\306\315!\2044�\304\315\310\311#\210\315B\312\315!\204D�\313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^�\313\301\317\301\320\"\210	\"\210\304\311\321\322#\207" [current-load-list grep-mode-abbrev-table grep-mode-hook variable-documentation put "Hook run when 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 default-boundp set-default make-sparse-keymap grep-mode-syntax-table make-syntax-table define-abbrev-table nil 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 #[nil "\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\2036�
\321 =\203<�\322\f\323 \"\210)\324!\210\325\f!\210#$\306\326!\210%\306\327!\210&\306\330!\210'\306\331!\210(\306\332!\210)p*\306\333!\210+\306\334!\210,\306\335!\210-\306\336!\210\337\306\340!\210\307 )\341\342!\207" [delay-mode-hooks major-mode mode-name grep-mode-map grep-mode-syntax-table parent 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 use-local-map set-syntax-table compilation-error compilation-error-screen-columns compilation-mode-font-lock-keywords compilation-scroll-output compilation-window-height tool-bar-map compilation-error-face compilation-error-regexp-alist compilation-process-setup-function grep-process-setup compilation-disable-input run-mode-hooks grep-mode-hook grep-mode-abbrev-table local-abbrev-table grep-error grep-error-screen-columns 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] 6 (#$ . 19359) nil])
#@699 Run grep, with user-specified args, and 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.

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 argument based upon 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).
(defalias 'grep #[(command-args) "\303\203�	\203�\n\304	Q\202�\n\305\"\207" [grep-use-null-device null-device command-args compilation-start " " grep-mode] 4 (#$ . 20868) (progn (grep-compute-defaults) (let ((default (grep-default-command))) (list (read-shell-command "Run grep (like this): " (if current-prefix-arg default grep-command) 'grep-history (if current-prefix-arg nil default)))))])
#@301 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.
(defalias 'grep-find #[(command-args) "\205\n�\302\303!)\207" [command-args null-device nil grep] 2 (#$ . 21971) (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>" and cf (isearch-no-upper-case-p regexp t) "-i") ("<D>" . dir) ("<F>" . files) ("<N>" . null-device) ("<X>" . excl) ("<R>" shell-quote-argument (or regexp ""))) (#$ . 22690))
#@66 Patch grep COMMAND string replacing <C>, <D>, <F>, <R>, and <X>.
(defalias 'grep-expand-template #[(template &optional regexp files dir excl) "	\306\f\306\211\203E�@\307
@\"\203<�\310
A9\203(�
AJ\2023�\311 \312\216\313
A!*\2067�\314\315\211$A\211\204�\306-\207" [template case-fold-search cf command grep-expand-keywords kw nil string-match replace-match match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) eval "" t --dolist-tail-- save-match-data-internal] 6 (#$ . 23089)])
#@39 Read regexp arg for interactive grep.
(defalias 'grep-read-regexp #[nil "\301 \302\303\203�G\304V\203�\305\306\"\202�\307P\310\311$)\207" [default grep-tag-default read-string "Search for" 0 format " (default \"%s\"): " ": " nil grep-regexp-history] 5 (#$ . 23638)])
#@38 Read files arg for interactive grep.
(defalias 'grep-read-files #[(regexp) "\306 \206�\307 \211\205�;\205�\310!\211\203B�\n\311\f\203<�\f@\fA\312\313A!	\"\2037�\311\211\202�\311\202�A*\206^�	\203U�\314	!\211\205Q�\315
P)\206^�@\206^�\n@@\316\317\320\205o�\321\322Q\323\260\311\324$\211\205\210�\325\n\"A\206\210�,\207" [bn fn grep-files-aliases alias aliases ext buffer-file-name buffer-name file-name-nondirectory nil string-match wildcard-to-regexp file-name-extension "*." read-string "Search for \"" "\" in files" " (default " ")" ": " grep-files-history assoc default regexp files] 8 (#$ . 23919)])
#@704 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].
(defalias 'lgrep #[(regexp &optional files dir) ";\205o�G\306V\205o�\n\204�	\230\203D�\307\202D�\310\311\f!!\312
\n#\211\203D�\313\232\203?�\314\315	\307\211\316%\202D�\317\316	\"\210	\205n�\f\320\203^�\203^�	\321Q\202_�	\322\"\210)p=\205n�\f\211)\207" [regexp command files grep-command dir grep-template 0 nil file-name-as-directory expand-file-name grep-expand-template (4) read-from-minibuffer "Confirm: " grep-history add-to-history compilation-start " " grep-mode current-prefix-arg default-directory grep-use-null-device null-device next-error-last-buffer] 7 (#$ . 24567) (byte-code "\306 \210\203�	\307\232\203�\310\311\312\211\313%\312D\207\n\204!�\312\314\315!D\207\316 \317!\320\321\312
\322$\fE+\207" [grep-command current-prefix-arg grep-template regexp files default-directory grep-compute-defaults (16) read-from-minibuffer "Run: " nil grep-history read-string "grep.el: No `grep-template' available. Press RET." grep-read-regexp grep-read-files read-directory-name "In directory: " t dir] 6)])
#@726 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 find 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 \[lgrep] and \[grep-find].
(defalias 'rgrep #[(regexp &optional files dir) ";\205\207�G\306V\205\207�	\204�\n\230?\205\207�\307\310\"\207\311\312!!\313\f\314\315!\316
\316\317\314\320	!\321
\316Q#\316\314\322!\260\205R�\314\315!\323\317\324\325#\316\314\322!\326\260%\211\205\206�\203k�\327\330\331\211\332%\202q�\333\332\"\210\307\310\"\210) p=\205\206�\211)\207" [regexp files grep-find-command dir grep-find-template find-name-arg 0 compilation-start grep-mode file-name-as-directory expand-file-name grep-expand-template shell-quote-argument "(" " " mapconcat split-string " -o " ")" " -path " #[(dir) "\301\302P!\207" [dir shell-quote-argument "*/"] 3] " -o -path " " -prune -o " read-from-minibuffer "Confirm: " nil grep-find-history add-to-history grep-find-ignored-directories command current-prefix-arg default-directory next-error-last-buffer] 14 (#$ . 26324) (byte-code "\306 \210\203�	\307\232\203�\310\311\312\211\313%\312D\207\n\204\"�\312\211\314\315!E\207\316 \317!\320\321\312
\322$\fE+\207" [grep-find-command current-prefix-arg grep-find-template regexp files default-directory grep-compute-defaults (16) read-from-minibuffer "Run: " nil grep-find-history read-string "grep.el: No `grep-find-template' available. Press RET." grep-read-regexp grep-read-files read-directory-name "Base directory: " t dir] 6)])
(provide 'grep)

${this.title}

Code Editor : grep.elc