From: Dmitry Gutov <dgutov@yandex.ru>
Date: Sun, 14 Dec 2014 20:56:25 +0000 (+0200)
Subject: diff-hl-dired-update-ignores: Specifically exclude .hg from iteration
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/788f1fd664faebf209167d680796c0cea3b333c5

diff-hl-dired-update-ignores: Specifically exclude .hg from iteration

'hg status' throws a fit when passed that name.
---

diff --git a/diff-hl-dired.el b/diff-hl-dired.el
index 7fa97e2a2..f85ac19ab 100644
--- a/diff-hl-dired.el
+++ b/diff-hl-dired.el
@@ -87,7 +87,7 @@
            (when (buffer-live-p buffer)
              (with-current-buffer buffer
                (dolist (entry entries)
-                 (cl-destructuring-bind (file state &rest) entry
+                 (cl-destructuring-bind (file state &rest r) entry
                    (let ((type (plist-get
                                 '(edited change added insert removed delete
                                          unregistered unknown)
@@ -114,14 +114,14 @@
       (vc-call-backend
        backend 'dir-status-files def-dir
        (cl-loop for file in (directory-files def-dir)
-                unless (member file '("." ".."))
+                unless (member file '("." ".." ".hg"))
                 collect file)
        nil
        (lambda (entries &optional more-to-come)
          (when (buffer-live-p buffer)
            (with-current-buffer buffer
              (dolist (entry entries)
-               (cl-destructuring-bind (file state &rest) entry
+               (cl-destructuring-bind (file state &rest r) entry
                  ;; Work around http://debbugs.gnu.org/18605
                  (setq file (replace-regexp-in-string "\\` " "" file))
                  (when (eq state 'ignored)