From: Dmitry Gutov <dgutov@yandex.ru>
Date: Thu, 14 Jan 2016 23:59:41 +0000 (+0300)
Subject: Add diff-hl-dired-ignored-backends
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/167a2dd16bbf963773c9198b391921ce05324fc8

Add diff-hl-dired-ignored-backends

Fixes #62
---

diff --git a/diff-hl-dired.el b/diff-hl-dired.el
index 663d2938f..895341b59 100644
--- a/diff-hl-dired.el
+++ b/diff-hl-dired.el
@@ -33,6 +33,7 @@
 
 (require 'diff-hl)
 (require 'dired)
+(require 'vc-hooks)
 
 (defvar diff-hl-dired-process-buffer nil)
 
@@ -62,9 +63,17 @@
 
 (defcustom diff-hl-dired-extra-indicators t
   "Non-nil to indicate ignored files."
-  :group 'diff-hl
   :type 'boolean)
 
+(defcustom diff-hl-dired-ignored-backends '(RCS)
+  "VC backends to ignore.
+The directories registered to one of these backends won't have
+status indicators."
+  :type `(repeat (choice ,@(mapcar
+                            (lambda (name)
+                              `(const :tag ,(symbol-name name) ,name))
+                            vc-handled-backends))))
+
 ;;;###autoload
 (define-minor-mode diff-hl-dired-mode
   "Toggle VC diff highlighting on the side of a Dired window."
@@ -83,7 +92,7 @@
         (def-dir default-directory)
         (buffer (current-buffer))
         dirs-alist files-alist)
-    (when backend
+    (when (and backend (not (memq backend diff-hl-dired-ignored-backends)))
       (diff-hl-dired-clear)
       (if (buffer-live-p diff-hl-dired-process-buffer)
           (let ((proc (get-buffer-process diff-hl-dired-process-buffer)))