[nongnu] elpa/vc-fossil 403712d 032/111: Fossil gets confused traversing through symlinks. Use file-truename in multiple places to get past that.

[ELPA Syncer]

branch: elpa/vc-fossil
commit 403712dfee9fee182277f13d0158fe09fedfba6a
Author: venks <venks>
Commit: venks <venks>

    Fossil gets confused traversing through symlinks.  Use file-truename in 
multiple places to get past that.
---
 vc/el/vc-fossil.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/vc/el/vc-fossil.el b/vc/el/vc-fossil.el
index 2a3d2a6..3ce6d12 100644
--- a/vc/el/vc-fossil.el
+++ b/vc/el/vc-fossil.el
@@ -114,7 +114,7 @@
 
 (defun vc-fossil-working-revision (file)
   "Fossil Specific version of `vc-working-revision'."
-  (let ((line (vc-fossil--run "finfo" "-s" file)))
+  (let ((line (vc-fossil--run "finfo" "-s" (file-truename file))))
     (and line
         (cadr (split-string line)))))
 
@@ -224,7 +224,7 @@
 (defun vc-fossil-print-log (files buffer &optional shortlog start-revision 
limit)
   "Print full log for a file"
   (when files
-    (vc-fossil-command buffer 0 (car files) "finfo" "-l")
+    (vc-fossil-command buffer 0 (file-truename (car files)) "finfo" "-l")
     (vc-fossil-print-log (cdr files) buffer)))
 
 ;; TBD: log-entry
@@ -265,7 +265,7 @@
     (with-temp-buffer
       (let ((found (not rev))
            (newver nil))
-       (insert (vc-fossil--run "finfo" "-l" "-b" file))
+       (insert (vc-fossil--run "finfo" "-l" "-b" (file-truename file)))
        ;; (vc-fossil--call "fossil" "finfo" "-l" "-b" file)
        (goto-char (point-min))
        (while (not (eobp))
@@ -283,7 +283,7 @@
     (with-temp-buffer
       (let ((found (not rev))
            (oldver nil))
-       (insert (vc-fossil--run "finfo" "-l" "-b" file))
+       (insert (vc-fossil--run "finfo" "-l" "-b" (file-truename file)))
        ;; (vc-fossil--call "fossil" "finfo" "-l" "-b" file)
        (goto-char (point-min))
        (while (not (eobp))
@@ -296,9 +296,9 @@
 
 
 (defun vc-fossil-delete-file (file)
-  (vc-fossil-command nil 0 file "rm"))
+  (vc-fossil-command nil 0 (file-truename file) "rm"))
 
 (defun vc-fossil-rename-file (old new)
-  (vc-fossil-command nil 0 (list old new) "mv"))
+  (vc-fossil-command nil 0 (list (file-truename old) (file-truename new)) 
"mv"))
 
 (provide 'vc-fossil)