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 | 8cbb0f27b3a9fbdd7ebfc425e9119fec8ccbf45f (patch) | |
| tree | 4755014778907e5fa98140e5a1176c795f652549 | |
| parent | 847ccd4f86714ba145f2b19af6ddab2441f5c6cb (diff) | |
| download | geiser-guile-8cbb0f27b3a9fbdd7ebfc425e9119fec8ccbf45f.tar.gz geiser-guile-8cbb0f27b3a9fbdd7ebfc425e9119fec8ccbf45f.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))))) |