Mercurial > hg > xemacs-beta

comparison lisp/packages/igrep.el @ 134:34a5b81f86ba r20-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b1
author cvs
date Mon, 13 Aug 2007 09:30:11 +0200
parents 4103f0995bd7
children 1856695b1fa9
comparison
equal deleted inserted replaced
133:b27e67717092 134:34a5b81f86ba
164 "Version of igrep.el") 164 "Version of igrep.el")
165 165
166 166
167 ;;; User options: 167 ;;; User options:
168 168
169 (defvar igrep-options nil 169 (defgroup igrep nil
170 "An improved interface to `grep'."
171 :group 'processes)
172
173
174 (defcustom igrep-options nil
170 "*The options passed by \\[igrep] to `igrep-program', or nil. 175 "*The options passed by \\[igrep] to `igrep-program', or nil.
171 176
172 `-n' will automatically be passed to `igrep-program', to generate the 177 `-n' will automatically be passed to `igrep-program', to generate the
173 output expected by \\[next-error] and \\[compile-goto-error]. 178 output expected by \\[next-error] and \\[compile-goto-error].
174 `-e' will automatically be passed to `igrep-program', if it supports 179 `-e' will automatically be passed to `igrep-program', if it supports
175 that option.") 180 that option."
176 181 :type '(repeat (string :tag "Option"))
177 (defvar igrep-read-options nil 182 :group 'igrep)
183
184 (defcustom igrep-read-options nil
178 "*If non-nil, `\\[igrep]' always prompts for options; 185 "*If non-nil, `\\[igrep]' always prompts for options;
179 otherwise, it only prompts when 1 or 3 `C-u's are given as a prefix arg.") 186 otherwise, it only prompts when 1 or 3 `C-u's are given as a prefix arg."
180 187 :type 'boolean
181 (defvar igrep-read-multiple-files nil 188 :group 'igrep)
189
190 (defcustom igrep-read-multiple-files nil
182 "*If non-nil, `\\[igrep]' always prompts for multiple-files; 191 "*If non-nil, `\\[igrep]' always prompts for multiple-files;
183 otherwise, it only prompts when 2 or 3 `C-u's are given as a prefix arg.") 192 otherwise, it only prompts when 2 or 3 `C-u's are given as a prefix arg."
184 193 :type 'boolean
185 (defvar igrep-verbose-prompts t 194 :group 'igrep)
195
196 (defcustom igrep-verbose-prompts t
186 "*If t, \\[igrep] prompts for arguments verbosely; 197 "*If t, \\[igrep] prompts for arguments verbosely;
187 if not t but non-nil, \\[igrep] prompts for arguments semi-verbosely; 198 if not t but non-nil, \\[igrep] prompts for arguments semi-verbosely;
188 if nil, \\[igrep] prompts for arguments tersely.") 199 if nil, \\[igrep] prompts for arguments tersely."
189 200 :type 'boolean
190 (defvar igrep-save-buffers 'query 201 :group 'igrep)
202
203 (defcustom igrep-save-buffers 'query
191 "*If t, \\[igrep] first saves each modified file buffer; 204 "*If t, \\[igrep] first saves each modified file buffer;
192 if not t but non-nil, \\[igrep] offers to save each modified file buffer.") 205 if not t but non-nil, \\[igrep] offers to save each modified file buffer."
206 :type '(choice (const :tag "Save" t)
207 (const :tag "Dont Save" nil)
208 (const :tag "Query" query))
209 :group 'igrep)
193 210
194 (defvar igrep-program-table ; referenced by igrep-use-zgrep 211 (defvar igrep-program-table ; referenced by igrep-use-zgrep
195 (let ((exec-directories exec-path) 212 (let ((exec-directories exec-path)
196 (program-obarray (make-vector 11 0))) 213 (program-obarray (make-vector 11 0)))
197 (while exec-directories 214 (while exec-directories