Fix bug#19304

Fixes: debbugs:19304
* lisp/vc/vc-hg.el (vc-hg-dir-status-files): Only include ignores files
when FILES is non-nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f03214efba8c7e5e5abe9dc44478459c1c7977b5..03ba24a4d4120c6e24565d8c5ac498f4ed7186f2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-12-08  Dmitry Gutov  <dgutov@yandex.ru>
+
+       * vc/vc-hg.el (vc-hg-dir-status-files): Only include ignores files
+       when FILES is non-nil (bug#19304).
+
 2014-12-08  Eric S. Raymond  <esr@snark.thyrsus.com>
 
        * vc/vc-arch.el: Moved to obsolete directory so a test framework

diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el
index 7099defb37c16ae6a711bb3d60a334f00f17e0d5..a56ed672828b2709c0c8144593bda096e0cefa2d 100644 (file)
--- a/lisp/vc/vc-hg.el
+++ b/lisp/vc/vc-hg.el
@@ -613,9 +613,11 @@ REV is the revision to check out into WORKFILE."
 (declare-function vc-set-async-update "vc-dispatcher" (process-buffer))
 
 (defun vc-hg-dir-status-files (dir files update-function)
-  (apply 'vc-hg-command (current-buffer) 'async dir "status" "-mardui" "-C" files)
+  (apply 'vc-hg-command (current-buffer) 'async dir "status"
+         (concat "-mardu" (if files "i"))
+         "-C" files)
   (vc-run-delayed
-   (vc-hg-after-dir-status update-function)))
+    (vc-hg-after-dir-status update-function)))
 
 (defun vc-hg-dir-extra-header (name &rest commands)
   (concat (propertize name 'face 'font-lock-type-face)