Mercurial > emacs
comparison lisp/progmodes/grep.el @ 79589:05774558f6e1
(rgrep): Use find-name-arg.
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Fri, 21 Dec 2007 10:32:55 +0000 |
| parents | c1ec1c8a8d2e |
| children | 078fe4baaf42 |
comparison
equal
deleted
inserted
replaced
| 79588:7f97528cec7f | 79589:05774558f6e1 |
|---|---|
| 748 (setq dir (file-name-as-directory (expand-file-name dir))) | 748 (setq dir (file-name-as-directory (expand-file-name dir))) |
| 749 (let ((command (grep-expand-template | 749 (let ((command (grep-expand-template |
| 750 grep-find-template | 750 grep-find-template |
| 751 regexp | 751 regexp |
| 752 (concat (shell-quote-argument "(") | 752 (concat (shell-quote-argument "(") |
| 753 " -name " | 753 " " find-name-arg " " |
| 754 (mapconcat #'shell-quote-argument | 754 (mapconcat #'shell-quote-argument |
| 755 (split-string files) | 755 (split-string files) |
| 756 " -o -name ") | 756 " -o " find-name-arg " ") |
| 757 " " | 757 " " |
| 758 (shell-quote-argument ")")) | 758 (shell-quote-argument ")")) |
| 759 dir | 759 dir |
| 760 (and grep-find-ignored-directories | 760 (and grep-find-ignored-directories |
| 761 (concat (shell-quote-argument "(") | 761 (concat (shell-quote-argument "(") |