aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/progmodes/compile.el4
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.
871Collect output in a buffer. 871Collect 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