Mercurial > emacs
changeset 106479:67d8bc783433
(grep-read-files): Use `completing-read'
instead of `read-string'. Set its `collection' arg to
`read-file-name-internal'. (Bug#4301)
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Mon, 07 Dec 2009 17:35:47 +0000 |
| parents | 1d70a4746fc4 |
| children | a4e55fa99487 |
| files | lisp/ChangeLog lisp/progmodes/grep.el |
| diffstat | 2 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Dec 07 17:30:01 2009 +0000 +++ b/lisp/ChangeLog Mon Dec 07 17:35:47 2009 +0000 @@ -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)
--- a/lisp/progmodes/grep.el Mon Dec 07 17:30:01 2009 +0000 +++ b/lisp/progmodes/grep.el Mon Dec 07 17:35:47 2009 +0000 @@ -799,12 +799,13 @@ 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)))))))