From 9136e895236df7ca44c13aca1cc0bdc3408186ab Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Mon, 7 Dec 2009 17:35:47 +0000 Subject: [PATCH] (grep-read-files): Use `completing-read' instead of `read-string'. Set its `collection' arg to `read-file-name-internal'. (Bug#4301) --- lisp/ChangeLog | 6 ++++++ lisp/progmodes/grep.el | 5 +++-- 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,3 +1,9 @@ +2009-12-07 Juri Linkov + + * 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 Correctly restore original Isearch point. (Bug#4994) 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))))))) -- 2.39.5