branch: externals/vc-hgcmd
commit aef3092eb1d81e5fbcb65d92c519c587143fc8dc
Author: muffinmad <andreyk....@gmail.com>
Commit: muffinmad <andreyk....@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)
