From 2e581e278a1864be9143e841ec1b5c403dce0c86 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Thu, 7 Feb 2013 03:20:43 +0100 Subject: Accepting ~ in geiser-add-to-load-path --- elisp/geiser-compile.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'elisp/geiser-compile.el') diff --git a/elisp/geiser-compile.el b/elisp/geiser-compile.el index 2f8fa5e..521803e 100644 --- a/elisp/geiser-compile.el +++ b/elisp/geiser-compile.el @@ -1,6 +1,6 @@ ;; geiser-compile.el -- compile/load scheme files -;; Copyright (C) 2009, 2010, 2011, 2012 Jose Antonio Ortega Ruiz +;; Copyright (C) 2009, 2010, 2011, 2012, 2013 Jose Antonio Ortega Ruiz ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the Modified BSD License. You should @@ -72,7 +72,7 @@ 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 ,path))) + (let* ((c `(:eval (:ge add-to-load-path ,(expand-file-name path)))) (r (geiser-eval--send/result c))) (message "%s" (if r "Added" "Failed!")))) -- cgit v1.2.3