mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki 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
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