From: Sam Steingold <sds@gnu.org>
Date: Mon, 9 Jul 2018 13:29:09 +0000 (-0400)
Subject: dired-do-find-regexp: Use rgrep-find-ignored-directories.
X-Git-Tag: emacs-27.0.90~4702
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3307353e13a9226d477c9b1a39baae76584b90b9;p=emacs.git

dired-do-find-regexp: Use rgrep-find-ignored-directories.
---

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)