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-repl.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-repl.el')
| -rw-r--r-- | elisp/geiser-repl.el | 2 |
1 files changed, 1 insertions, 1 deletions
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")))) |