(with-current-buffer diff-hl-dired-process-buffer
(setq default-directory (expand-file-name def-dir))
(erase-buffer)
- (vc-call-backend
- backend 'dir-status-files def-dir
+ (diff-hl-dired-status-files
+ backend def-dir
(when diff-hl-dired-extra-indicators
(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)
(with-current-buffer buffer
(append dirs-alist files-alist))))))
)))))
+(defun diff-hl-dired-status-files (backend dir files uf)
+ (if (version< "25" emacs-version)
+ (vc-call-backend backend 'dir-status-files dir files uf)
+ (vc-call-backend backend 'dir-status-files dir files nil uf)))
+
(when (version< emacs-version "24.4.51.5")
;; Work around http://debbugs.gnu.org/19386
(defadvice vc-git-dir-status-goto-stage (around