[nongnu] elpa/geiser e54d5e6dc6: Add more Tramp support.

[ELPA Syncer]

branch: elpa/geiser
commit e54d5e6dc659c252d10c4280f4c4d78d38623df5
Author: Brian Cully <bjc@kublai.com>
Commit: jao <jao@gnu.org>

    Add more Tramp support.
    
     * geiser-compile-file
     * geiser-compile-current-buffer
     * geiser-load-current-buffer
     * geiser-add-to-load-path
---
 elisp/geiser-compile.el | 6 +++---
 elisp/geiser-repl.el    | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/elisp/geiser-compile.el b/elisp/geiser-compile.el
index 9ea9fcaf62..1f80e9747c 100644
--- a/elisp/geiser-compile.el
+++ b/elisp/geiser-compile.el
@@ -57,7 +57,7 @@
 (defun geiser-compile-file (path)
   "Compile and load Scheme file."
   (interactive "FScheme file: ")
-  (geiser-compile--file-op path t "Compiling"))
+  (geiser-compile--file-op (file-local-name path) t "Compiling"))
 
 (defun geiser-compile-current-buffer (&optional restart)
   "Compile and load current Scheme file.
@@ -65,7 +65,7 @@
 With prefix, restart REPL before compiling the file."
   (interactive "P")
   (geiser-compile--ensure-repl restart)
-  (geiser-compile-file (buffer-file-name (current-buffer))))
+  (geiser-compile-file (file-local-name (buffer-file-name (current-buffer)))))
 
 (defun geiser-load-file (path)
   "Load Scheme file."
@@ -79,6 +79,6 @@ With prefix, restart REPL before compiling the file."
 With prefix, restart REPL before loading the file."
   (interactive "P")
   (geiser-compile--ensure-repl restart)
-  (geiser-load-file (buffer-file-name (current-buffer))))
+  (geiser-load-file (file-local-name (buffer-file-name (current-buffer)))))
 
 (provide 'geiser-compile)
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 56468e7cb4..d6bff2932b 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -1141,7 +1141,7 @@ With a prefix argument, force exit by killing the scheme 
process."
 When called interactively, this function will ask for the path to
 add, defaulting to the current buffer's directory."
   (interactive "DDirectory to add: ")
-  (let* ((c `(:eval (:ge add-to-load-path ,(expand-file-name path))))
+  (let* ((c `(:eval (:ge add-to-load-path ,(file-local-name (expand-file-name 
path)))))
          (r (geiser-eval--send/result c)))
     (message "%s%s added to load path" path (if r "" " couldn't be"))))