Commit 9136e895 authored by Juri Linkov's avatar Juri Linkov
Browse files

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

instead of `read-string'.  Set its `collection' arg to
`read-file-name-internal'.  (Bug#4301)
parent 40637410
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)
......
......@@ -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)))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment