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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 464ca87b90b30276d5b6258791fcbd8711cde635..0109630543772d505d0e1f0c554c098594b1dd27 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+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)

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index 1b47d30b703c88fbf6bc905f8721342ebbfb3144..52bb0e91d2c70836332c640721973f7ff6cafc79 100644 (file)
--- 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)))))))