summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2016-11-26 05:14:36 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2016-11-26 05:14:36 +0100
commitb57f4bb08c3375e21ae55e7d64b80d6bdecab897 (patch)
tree940c8d290b064374ddb38a66a2ed040a3c115f9d /elisp
parentdc8a7929f4cfcffe59cbb3a83d61cf9273207112 (diff)
downloadgeiser-guile-b57f4bb08c3375e21ae55e7d64b80d6bdecab897.tar.gz
geiser-guile-b57f4bb08c3375e21ae55e7d64b80d6bdecab897.tar.bz2
Make guile's load-file happier with ~ abrevs
An attempt to address #194.
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-guile.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index dacca55..0b71edf 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -158,7 +158,8 @@ This function uses `geiser-guile-init-file' if it exists."
(or (car args) "#f")
(geiser-guile--linearize-args (cdr args))
(if (cddr args) "" " ()")))
- ((load-file compile-file) (format ",geiser-load-file %s" (car args)))
+ ((load-file compile-file)
+ (format ",geiser-load-file %s" (expand-file-name (car args))))
((no-values) ",geiser-no-values")
(t (format "ge:%s (%s)" proc (geiser-guile--linearize-args args)))))