diff options
| author | Eli Zaretskii | 2017-10-09 16:39:25 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2017-10-09 16:39:25 +0300 |
| commit | 0c36663db51ff4185eb1484aa5d574be23860424 (patch) | |
| tree | 46a296ab1a9e319707fc5876032b3ea8de19c52f | |
| parent | 2da83c9d3630702ed10f54e890709d1afdb6585f (diff) | |
| download | emacs-0c36663db51ff4185eb1484aa5d574be23860424.tar.gz emacs-0c36663db51ff4185eb1484aa5d574be23860424.zip | |
Improve doc string and prompt of 'grep-read-files'
* 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)
| -rw-r--r-- | lisp/progmodes/grep.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index 01bdb04714f..d0404fdeaf4 100644 --- a/lisp/progmodes/grep.el +++ b/lisp/progmodes/grep.el | |||
| @@ -903,7 +903,8 @@ substitution string. Note dynamic scoping of variables.") | |||
| 903 | (read-regexp "Search for" 'grep-tag-default 'grep-regexp-history)) | 903 | (read-regexp "Search for" 'grep-tag-default 'grep-regexp-history)) |
| 904 | 904 | ||
| 905 | (defun grep-read-files (regexp) | 905 | (defun grep-read-files (regexp) |
| 906 | "Read files arg for interactive grep." | 906 | "Read a file-name pattern arg for interactive grep. |
| 907 | The pattern can include shell wildcards." | ||
| 907 | (let* ((bn (or (buffer-file-name) | 908 | (let* ((bn (or (buffer-file-name) |
| 908 | (replace-regexp-in-string "<[0-9]+>\\'" "" (buffer-name)))) | 909 | (replace-regexp-in-string "<[0-9]+>\\'" "" (buffer-name)))) |
| 909 | (fn (and bn | 910 | (fn (and bn |
| @@ -936,7 +937,7 @@ substitution string. Note dynamic scoping of variables.") | |||
| 936 | (car (car grep-files-aliases)))) | 937 | (car (car grep-files-aliases)))) |
| 937 | (files (completing-read | 938 | (files (completing-read |
| 938 | (concat "Search for \"" regexp | 939 | (concat "Search for \"" regexp |
| 939 | "\" in files" | 940 | "\" in files matching wildcard" |
| 940 | (if default (concat " (default " default ")")) | 941 | (if default (concat " (default " default ")")) |
| 941 | ": ") | 942 | ": ") |
| 942 | 'read-file-name-internal | 943 | 'read-file-name-internal |