diff options
| author | Kim F. Storm | 2002-07-12 23:56:12 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2002-07-12 23:56:12 +0000 |
| commit | cf3d4f6d57ddfeaa5bb72d399bdf47e45e3d4782 (patch) | |
| tree | ce00ac99bc6c9dd2c8d6810f6d36b113cfff8401 | |
| parent | 325309f50513a4cc7719329857c3bb6f2149c655 (diff) | |
| download | emacs-cf3d4f6d57ddfeaa5bb72d399bdf47e45e3d4782.tar.gz emacs-cf3d4f6d57ddfeaa5bb72d399bdf47e45e3d4782.zip | |
(grep-tree): Fixed autoload.
Corrected use of undefined variable `match-files-aliases'.
| -rw-r--r-- | lisp/progmodes/compile.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index c06d01594bd..b0f2457df66 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -862,10 +862,10 @@ easily repeat a find command." | |||
| 862 | (or regexp "") command t t)) | 862 | (or regexp "") command t t)) |
| 863 | command) | 863 | command) |
| 864 | 864 | ||
| 865 | ;;;###autoload | ||
| 866 | (defvar grep-tree-last-regexp "") | 865 | (defvar grep-tree-last-regexp "") |
| 867 | (defvar grep-tree-last-files (car (car grep-tree-files-aliases))) | 866 | (defvar grep-tree-last-files (car (car grep-tree-files-aliases))) |
| 868 | 867 | ||
| 868 | ;;;###autoload | ||
| 869 | (defun grep-tree (regexp files dir &optional subdirs) | 869 | (defun grep-tree (regexp files dir &optional subdirs) |
| 870 | "Grep for REGEXP in FILES in directory tree rooted at DIR. | 870 | "Grep for REGEXP in FILES in directory tree rooted at DIR. |
| 871 | Collect output in a buffer. | 871 | Collect output in a buffer. |
| @@ -904,7 +904,7 @@ those sub directories of DIR." | |||
| 904 | (setq files grep-tree-last-files)) | 904 | (setq files grep-tree-last-files)) |
| 905 | (when files | 905 | (when files |
| 906 | (setq grep-tree-last-files files) | 906 | (setq grep-tree-last-files files) |
| 907 | (let ((mf (assoc files match-files-aliases))) | 907 | (let ((mf (assoc files grep-tree-files-aliases))) |
| 908 | (if mf | 908 | (if mf |
| 909 | (setq files (cdr mf))))) | 909 | (setq files (cdr mf))))) |
| 910 | (let ((command-args (grep-expand-command-macros | 910 | (let ((command-args (grep-expand-command-macros |