From: Dmitry Gutov Date: Mon, 8 Dec 2014 16:24:07 +0000 (+0200) Subject: Fix bug#19304 X-Git-Tag: emacs-25.0.90~2635^2~166 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5872f843ff45de150f4b35cbc9b11e9f63c96cf2;p=emacs.git 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 f03214efba8..03ba24a4d41 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-12-08 Dmitry Gutov + + * 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 * 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 7099defb37c..a56ed672828 100644 --- 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)