[elpa] externals/vc-hgcmd 39dddda 22/87: Use relative filename on check status

[Stefan Monnier]

branch: externals/vc-hgcmd
commit 39dddda233b522a6b306e5a3a3bdebd554e6cad9
Author: muffinmad <andreyk.mad@gmail.com>
Commit: muffinmad <andreyk.mad@gmail.com>

    Use relative filename on check status
    
    For local files absolute filename is ok but not for remote files
---
 vc-hgcmd.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/vc-hgcmd.el b/vc-hgcmd.el
index 25c6f8e..19a1cae 100644
--- a/vc-hgcmd.el
+++ b/vc-hgcmd.el
@@ -412,7 +412,7 @@ Insert 'Running command' and display buffer text if COMMAND"
 
 (defun vc-hgcmd-state (file)
   "State for FILE."
-  (let ((out (vc-hgcmd-command "status" "-A" file)))
+  (let ((out (vc-hgcmd-command "status" "-A" (file-relative-name file))))
     (when (and out (null (string-match-p vc-hgcmd--no-file-re out)))
       (let ((state (cdr (assoc (aref out 0) vc-hgcmd--translation-status))))
         (if (and (eq state 'edited) (vc-hgcmd--file-unresolved-p file))
@@ -439,7 +439,7 @@ Insert 'Running command' and display buffer text if COMMAND"
     ;; TODO track file renames with -C option
     (let ((command (if files
                        (nconc (list "status" "-A") files)
-                     (list "status" dir))))
+                     (list "status" (file-relative-name dir)))))
     (vc-hgcmd--run-command
      (make-vc-hgcmd--command
       :command command