procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve doc string and prompt of 'grep-read-files'

Browse source 
* lisp/progmodes/grep.el (grep-read-files): Clarify in the doc
string and in the prompt that shell wildcards can be used.
Suggested by Allen Li <vianchielfaura@gmail.com>.  (Bug#28615)
This commit is contained in:
Eli Zaretskii 2017-10-09 16:39:25 +03:00
parent 2da83c9d36
commit 0c36663db5
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/progmodes/grep.el
View file

@ -903,7 +903,8 @@ substitution string. Note dynamic scoping of variables.")
(read-regexp "Search for" 'grep-tag-default 'grep-regexp-history)) (read-regexp "Search for" 'grep-tag-default 'grep-regexp-history))
(defun grep-read-files (regexp) (defun grep-read-files (regexp)
"Read files arg for interactive grep." "Read a file-name pattern arg for interactive grep.
The pattern can include shell wildcards."
(let* ((bn (or (buffer-file-name) (let* ((bn (or (buffer-file-name)
(replace-regexp-in-string "<[0-9]+>\\'" "" (buffer-name)))) (replace-regexp-in-string "<[0-9]+>\\'" "" (buffer-name))))
(fn (and bn (fn (and bn
@ -936,7 +937,7 @@ substitution string. Note dynamic scoping of variables.")
(car (car grep-files-aliases)))) (car (car grep-files-aliases))))
(files (completing-read (files (completing-read
(concat "Search for \"" regexp (concat "Search for \"" regexp
"\" in files" "\" in files matching wildcard"
(if default (concat " (default " default ")")) (if default (concat " (default " default ")"))
": ") ": ")
'read-file-name-internal 'read-file-name-internal