diff options
| author | Brian Cully <bjc@kublai.com> | 2023-01-19 18:13:11 -0500 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2023-01-20 17:38:53 +0000 |
| commit | e54d5e6dc659c252d10c4280f4c4d78d38623df5 (patch) | |
| tree | 14eaf324fb975161f6001caf93af6e9f61f9ca28 /elisp/geiser-compile.el | |
| parent | bfc9cce54b7ac1cb036911965198b5cbe2f43f4c (diff) | |
| download | geiser-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/geiser-compile.el')
| -rw-r--r-- | elisp/geiser-compile.el | 6 |
1 files changed, 3 insertions, 3 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) |