X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/788f1fd664faebf209167d680796c0cea3b333c5..469e33265693758766902b8c90ad374293f5472f:/diff-hl-dired.el

diff --git a/diff-hl-dired.el b/diff-hl-dired.el
index f85ac19ab..57ce8b880 100644
--- a/diff-hl-dired.el
+++ b/diff-hl-dired.el
@@ -53,6 +53,11 @@
   '((default :inherit dired-ignored))
   "Face used to highlight unregistered files.")
 
+(defcustom diff-hl-dired-extra-indicators t
+  "Non-nil to indicate ignored files."
+  :group 'diff-hl
+  :type 'boolean)
+
 ;;;###autoload
 (define-minor-mode diff-hl-dired-mode
   "Toggle VC diff highlighting on the side of a Dired window."
@@ -103,7 +108,8 @@
                (unless more-to-come
                  (diff-hl-dired-highlight-items (append dirs-alist
                                                         files-alist))
-                 (diff-hl-dired-update-ignores backend def-dir)))))
+                 (when diff-hl-dired-extra-indicators
+                   (diff-hl-dired-update-ignores backend def-dir))))))
          )))))
 
 (defun diff-hl-dired-update-ignores (backend def-dir)