diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2016-11-26 05:14:36 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2016-11-26 05:14:36 +0100 |
| commit | b57f4bb08c3375e21ae55e7d64b80d6bdecab897 (patch) | |
| tree | 940c8d290b064374ddb38a66a2ed040a3c115f9d | |
| parent | dc8a7929f4cfcffe59cbb3a83d61cf9273207112 (diff) | |
| download | geiser-guile-b57f4bb08c3375e21ae55e7d64b80d6bdecab897.tar.gz geiser-guile-b57f4bb08c3375e21ae55e7d64b80d6bdecab897.tar.bz2 | |
Make guile's load-file happier with ~ abrevs
An attempt to address #194.
| -rw-r--r-- | elisp/geiser-guile.el | 3 |
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))))) |