From 3307353e13a9226d477c9b1a39baae76584b90b9 Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Mon, 9 Jul 2018 09:29:09 -0400 Subject: [PATCH] dired-do-find-regexp: Use rgrep-find-ignored-directories. --- lisp/dired-aux.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 0ef1777d168..925a7d50d6f 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -2856,11 +2856,11 @@ REGEXP should use constructs supported by your local `grep' command." (interactive "sSearch marked files (regexp): ") (require 'grep) (defvar grep-find-ignored-files) - (defvar grep-find-ignored-directories) + (declare-function rgrep-find-ignored-directories "grep" (dir)) (let* ((files (dired-get-marked-files nil nil nil nil t)) (ignores (nconc (mapcar (lambda (s) (concat s "/")) - grep-find-ignored-directories) + (rgrep-find-ignored-directories default-directory)) grep-find-ignored-files)) (xrefs (mapcan (lambda (file) -- 2.39.2