[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 3307353: dired-do-find-regexp: Use rgrep-find-ignored-directories.,
Sam Steingold <=