mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-27 19:31:38 +00:00
Code Issues Releases Activity

(grep-tree): Fixed autoload.

Browse Source 
Corrected use of undefined variable `match-files-aliases'.
This commit is contained in:
Kim F. Storm 2002-07-12 23:56:12 +00:00
parent 325309f505
commit cf3d4f6d57
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/progmodes/compile.el
View File

@ -862,10 +862,10 @@ easily repeat a find command."
(or regexp "") command t t))
command)
;;;###autoload
(defvar grep-tree-last-regexp "")
(defvar grep-tree-last-files (car (car grep-tree-files-aliases)))
;;;###autoload
(defun grep-tree (regexp files dir &optional subdirs)
"Grep for REGEXP in FILES in directory tree rooted at DIR.
Collect output in a buffer.
@ -904,7 +904,7 @@ those sub directories of DIR."
(setq files grep-tree-last-files))
(when files
(setq grep-tree-last-files files)
(let ((mf (assoc files match-files-aliases)))
(let ((mf (assoc files grep-tree-files-aliases)))
(if mf
(setq files (cdr mf)))))
(let ((command-args (grep-expand-command-macros