procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
instead of `read-string'.  Set its `collection' arg to
`read-file-name-internal'.  (Bug#4301)
This commit is contained in:
Juri Linkov 2009-12-07 17:35:47 +00:00
parent 406374109c
commit 9136e89523
2 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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)

5
lisp/progmodes/grep.el
View file

@ -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)))))))