Mercurial > emacs
comparison lisp/progmodes/grep.el @ 59688:3761d1e2619d
* NEWS: Mention alias `find-grep' for `grep-find'.
* progmodes/grep.el: Add alias `find-grep' for `grep-find'.
* building.texi (Grep Searching): Mention alias `find-grep' for
`grep-find'.
| author | David Kastrup <dak@gnu.org> |
|---|---|
| date | Sat, 22 Jan 2005 15:43:56 +0000 |
| parents | b64dd2ff73f7 |
| children | a518aec8f272 6d92d69fae33 |
comparison
equal
deleted
inserted
replaced
| 59687:9c070f90e15a | 59688:3761d1e2619d |
|---|---|
| 540 (list nil)))) | 540 (list nil)))) |
| 541 (when (and grep-find-command command-args) | 541 (when (and grep-find-command command-args) |
| 542 (let ((null-device nil)) ; see grep | 542 (let ((null-device nil)) ; see grep |
| 543 (grep command-args)))) | 543 (grep command-args)))) |
| 544 | 544 |
| 545 ;;;###autoload | |
| 546 (defalias 'find-grep 'grep-find) | |
| 547 | |
| 545 (defun grep-expand-command-macros (command &optional regexp files dir excl case-fold) | 548 (defun grep-expand-command-macros (command &optional regexp files dir excl case-fold) |
| 546 "Patch grep COMMAND replacing <D>, etc." | 549 "Patch grep COMMAND replacing <D>, etc." |
| 547 (setq command | 550 (setq command |
| 548 (replace-regexp-in-string "<D>" | 551 (replace-regexp-in-string "<D>" |
| 549 (or dir ".") command t t)) | 552 (or dir ".") command t t)) |