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

(grep-read-files): Use buffer-name if no buffer-file-name.

Browse source 
Default to *.ext if no alias matches.
No default if no extension.
This commit is contained in:
Kim F. Storm 2006-04-28 23:39:02 +00:00
parent 0acfb7cea6
commit 208cc91ffb
1 changed files with 13 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/progmodes/grep.el
View file

@ -599,10 +599,13 @@ substitution string. Note dynamic scoping of variables.")
(defun grep-read-files (regexp)
"Read files arg for interactive grep."
(let* ((default
(or (and (stringp (buffer-file-name))
(let ((fn (file-name-nondirectory (buffer-file-name)))
(aliases grep-files-aliases)
(let* ((bn (or (buffer-file-name) (buffer-name)))
(fn (and bn
(stringp bn)
(file-name-nondirectory bn)))
(default
(or (and fn
(let ((aliases grep-files-aliases)
alias)
(while aliases
(setq alias (car aliases)
@ -611,10 +614,14 @@ substitution string. Note dynamic scoping of variables.")
(setq aliases nil)
(setq alias nil)))
(cdr alias)))
(car grep-files-history)))
(and fn
(let ((ext (file-name-extension fn)))
(and ext (concat "*." ext))))))
(files (read-string
(concat "Search for \"" regexp
"\" in files (default " default "): ")
"\" in files"
(if default (concat " (default " default ")"))
": ")
nil 'grep-files-history default)))
(and files
(or (cdr (assoc files grep-files-aliases))