(grep-read-files): Use `completing-read'

instead of `read-string'.  Set its `collection' arg to
`read-file-name-internal'.  (Bug#4301)

2 files changed, 9 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 464ca87b90b..01096305437 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 2009-12-07  Juri Linkov  <juri@jurta.org>
 
+        * progmodes/grep.el (grep-read-files): Use `completing-read'
+        instead of `read-string'.  Set its `collection' arg to
+        `read-file-name-internal'.  (Bug#4301)
+
+2009-12-07  Juri Linkov  <juri@jurta.org>
+
         Correctly restore original Isearch point.  (Bug#4994)
 
         * isearch.el (isearch-mode): Move `isearch-push-state' after
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index 1b47d30b703..52bb0e91d2c 100644
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -799,12 +799,13 @@ substitution string.  Note dynamic scoping of variables.")
                default-extension
                (car grep-files-history)
                (car (car grep-files-aliases))))
-         (files (read-string
+         (files (completing-read
                  (concat "Search for \"" regexp
                          "\" in files"
                          (if default (concat " (default " default ")"))
                          ": ")
-                 nil 'grep-files-history
+                 'read-file-name-internal
+                 nil nil nil 'grep-files-history
                  (delete-dups
                   (delq nil (append (list default default-alias default-extension)
                                     (mapcar 'car grep-files-aliases)))))))