aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/progmodes/grep.el5
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.
907The 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