emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 3307353: dired-do-find-regexp: Use rgrep-find-ignor


From: Sam Steingold
Subject: [Emacs-diffs] master 3307353: dired-do-find-regexp: Use rgrep-find-ignored-directories.
Date: Mon, 9 Jul 2018 10:01:20 -0400 (EDT)

branch: master
commit 3307353e13a9226d477c9b1a39baae76584b90b9
Author: Sam Steingold <address@hidden>
Commit: Sam Steingold <address@hidden>

    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 0ef1777..925a7d5 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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]