[nongnu] elpa/geiser 5b9532a571: A bit more tramp-friendliness

[ELPA Syncer]

branch: elpa/geiser
commit 5b9532a571b28f1f82f0eaaecc1f7792473bdc6c
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>

    A bit more tramp-friendliness
    
    Fixes #45.  Thanks to Brian Cully.
---
 elisp/geiser-compile.el | 2 +-
 elisp/geiser-edit.el    | 4 +++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/elisp/geiser-compile.el b/elisp/geiser-compile.el
index c51360623c..903c570ca1 100644
--- a/elisp/geiser-compile.el
+++ b/elisp/geiser-compile.el
@@ -65,7 +65,7 @@ With prefix, restart REPL before compiling the file."
 (defun geiser-load-file (path)
   "Load Scheme file."
   (interactive "FScheme file: ")
-  (geiser-compile--file-op (expand-file-name path) nil "Loading"))
+  (geiser-compile--file-op (file-local-name (expand-file-name path)) nil 
"Loading"))
 
 (defun geiser-load-current-buffer (&optional restart-p)
   "Load current Scheme file.
diff --git a/elisp/geiser-edit.el b/elisp/geiser-edit.el
index cfa11fb3cc..d8fa0ab8cb 100644
--- a/elisp/geiser-edit.el
+++ b/elisp/geiser-edit.el
@@ -51,7 +51,9 @@ or following links in error buffers.")
   (cdr (assoc "name" loc)))
 
 (defsubst geiser-edit--location-file (loc)
-  (cdr (assoc "file" loc)))
+  (when-let ((file-name (cdr (assoc "file" loc))))
+    (concat (or (file-remote-p default-directory) "")
+            file-name)))
 
 (defsubst geiser-edit--to-number (x)
   (cond ((numberp x) x)