[elpa] externals/vc-hgcmd aef3092 27/87: vc registered for symlinks fixed

[Stefan Monnier]

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

    vc registered for symlinks fixed
---
 vc-hgcmd.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/vc-hgcmd.el b/vc-hgcmd.el
index 430e1fc..e6294bf 100644
--- a/vc-hgcmd.el
+++ b/vc-hgcmd.el
@@ -419,7 +419,12 @@ Insert 'Running command' and display buffer text if 
COMMAND"
   "Is file FILE is registered."
   (when (vc-hgcmd-root file)
     (or (file-directory-p file)
-        (let ((state (vc-hgcmd-state file)))
+        ;; vc-registered is called for buffer-file-name and
+        ;; shortly then after for truename. Update default-dir so
+        ;; 'hg state' will be called in right repo
+        (let ((state
+               (let ((default-directory (file-name-directory (expand-file-name 
file))))
+                 (vc-hgcmd-state file))))
           (and state (not (memq state '(ignored unregistered))))))))
 
 (defun vc-hgcmd-state (file)