# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1154128821 0
# Node ID 301cc56a3482762bb43f3bd48ec07c9b148dd463
# Parent  636d15c88534801d5c06960aadcec3491113ca5e
(grep-read-files): Use car of grep-files-history or grep-files-aliases
as default if nothing else applies.

diff -r 636d15c88534 -r 301cc56a3482 lisp/progmodes/grep.el
--- a/lisp/progmodes/grep.el	Fri Jul 28 23:19:56 2006 +0000
+++ b/lisp/progmodes/grep.el	Fri Jul 28 23:20:21 2006 +0000
@@ -620,7 +620,9 @@
 		      (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"