[nongnu] elpa/crux 6ef681d853 4/6: Ensure `vc-rename-file` gets the local file paths (#91)

[ELPA Syncer]

branch: elpa/crux
commit 6ef681d853a2847472aae7095a74703310e391f8
Author: Riccardo Murri <riccardo.murri@gmail.com>
Commit: GitHub <noreply@github.com>

    Ensure `vc-rename-file` gets the local file paths (#91)
---
 crux.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/crux.el b/crux.el
index 526b611b02..e7aa8aaf1f 100644
--- a/crux.el
+++ b/crux.el
@@ -420,7 +420,11 @@ there's a region, all lines that region covers will be 
duplicated."
              (containing-dir (file-name-directory new-name)))
         (make-directory containing-dir t)
         (cond
-         ((vc-backend filename) (vc-rename-file filename new-name))
+         ((vc-backend filename)
+          ;; vc-rename-file seems not able to cope with remote filenames?
+          (let ((vc-filename (if (tramp-tramp-file-p filename) 
(tramp-file-local-name filename) filename))
+                (vc-new-name (if (tramp-tramp-file-p new-name) 
(tramp-file-local-name filename) new-name)))
+            (vc-rename-file vc-filename vc-new-name)))
          (t
           (rename-file filename new-name t)
           (set-visited-file-name new-name t t)))))))