[elpa] master 788f1fd 14/22: diff-hl-dired-update-ignores: Specifically exclude .hg from iteration

[Dmitry Gutov]

branch: master
commit 788f1fd664faebf209167d680796c0cea3b333c5
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    diff-hl-dired-update-ignores: Specifically exclude .hg from iteration
    
    'hg status' throws a fit when passed that name.
---
 diff-hl-dired.el |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/diff-hl-dired.el b/diff-hl-dired.el
index 7fa97e2..f85ac19 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)