From c1351b0f1f59a88d7dd6a84c9233a2e5cdda183e Mon Sep 17 00:00:00 2001
From: Dmitry Gutov <dgutov@yandex.ru>
Date: Mon, 15 Dec 2014 20:06:56 +0200
Subject: [PATCH] Collect files only when diff-hl-dired-extra-indicators is
 non-nil

---
 diff-hl-dired.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/diff-hl-dired.el b/diff-hl-dired.el
index c9097ee90..8790f5632 100644
--- a/diff-hl-dired.el
+++ b/diff-hl-dired.el
@@ -82,9 +82,6 @@
   (let ((backend (ignore-errors (vc-responsible-backend default-directory)))
         (def-dir default-directory)
         (buffer (current-buffer))
-        (contents (cl-loop for file in (directory-files default-directory)
-                           unless (member file '("." ".." ".hg"))
-                           collect file))
         dirs-alist files-alist)
     (when backend
       (diff-hl-dired-clear)
@@ -99,7 +96,9 @@
         (vc-call-backend
          backend 'dir-status-files def-dir
          (when diff-hl-dired-extra-indicators
-           contents)
+           (cl-loop for file in (directory-files def-dir)
+                    unless (member file '("." ".." ".hg"))
+                    collect file))
          nil
          (lambda (entries &optional more-to-come)
            (when (buffer-live-p buffer)
-- 
2.39.2