summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-compile.el2
-rw-r--r--elisp/geiser-edit.el4
2 files changed, 4 insertions, 2 deletions
diff --git a/elisp/geiser-compile.el b/elisp/geiser-compile.el
index c513606..903c570 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 cfa11fb..d8fa0ab 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)