From: Kim F. Storm <storm@cua.dk>
Date: Fri, 28 Jul 2006 23:20:21 +0000 (+0000)
Subject: (grep-read-files): Use car of grep-files-history or grep-files-aliases
X-Git-Tag: emacs-pretest-22.0.90~1207
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bcdf86fb51ea5a3860aaade93276f2661cbc70b2;p=emacs.git

(grep-read-files): Use car of grep-files-history or grep-files-aliases
as default if nothing else applies.
---

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index 96f449c2b05..1c29bfe9cc8 100644
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -620,7 +620,9 @@ substitution string.  Note dynamic scoping of variables.")
 		      (cdr alias)))
 	       (and fn
 		    (let ((ext (file-name-extension fn)))
-		      (and ext (concat "*." ext))))))
+		      (and ext (concat "*." ext))))
+	       (car grep-files-history)
+	       (car (car grep-files-aliases))))
 	 (files (read-string
 		 (concat "Search for \"" regexp
 			 "\" in files"