summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorBrian Cully <bjc@kublai.com>2023-01-19 18:13:11 -0500
committerjao <jao@gnu.org>2023-01-20 17:38:53 +0000
commite54d5e6dc659c252d10c4280f4c4d78d38623df5 (patch)
tree14eaf324fb975161f6001caf93af6e9f61f9ca28 /elisp
parentbfc9cce54b7ac1cb036911965198b5cbe2f43f4c (diff)
downloadgeiser-e54d5e6dc659c252d10c4280f4c4d78d38623df5.tar.gz
geiser-e54d5e6dc659c252d10c4280f4c4d78d38623df5.tar.bz2
Add more Tramp support.
* geiser-compile-file * geiser-compile-current-buffer * geiser-load-current-buffer * geiser-add-to-load-path
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-compile.el6
-rw-r--r--elisp/geiser-repl.el2
2 files changed, 4 insertions, 4 deletions
diff --git a/elisp/geiser-compile.el b/elisp/geiser-compile.el
index 9ea9fca..1f80e97 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 56468e7..d6bff29 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"))))