diff options
| -rw-r--r-- | lisp/vc/vc-hg.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el index a91e1f5ad6c..d00b69c0d08 100644 --- a/lisp/vc/vc-hg.el +++ b/lisp/vc/vc-hg.el | |||
| @@ -1356,6 +1356,9 @@ REV is the revision to check out into WORKFILE." | |||
| 1356 | ;; XXX: We can't pass DIR directly to 'hg status' because that | 1356 | ;; XXX: We can't pass DIR directly to 'hg status' because that |
| 1357 | ;; returns all ignored files if FILES is non-nil (bug#22481). | 1357 | ;; returns all ignored files if FILES is non-nil (bug#22481). |
| 1358 | (let ((default-directory dir)) | 1358 | (let ((default-directory dir)) |
| 1359 | ;; TODO: Use "--config 'status.relative=1'" instead of "re:" | ||
| 1360 | ;; when we're allowed to depend on Mercurial 4.2+ | ||
| 1361 | ;; (it's a bit faster). | ||
| 1359 | (vc-hg-command (current-buffer) 'async files | 1362 | (vc-hg-command (current-buffer) 'async files |
| 1360 | "status" "re:" "-I" "." | 1363 | "status" "re:" "-I" "." |
| 1361 | (concat "-mardu" (if files "i")) | 1364 | (concat "-mardu" (if files "i")) |