From 8cbb0f27b3a9fbdd7ebfc425e9119fec8ccbf45f Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sat, 26 Nov 2016 05:14:36 +0100 Subject: Make guile's load-file happier with ~ abrevs An attempt to address #194. --- elisp/geiser-guile.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'elisp') 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))))) -- cgit v1.2.3