diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-02-07 03:20:43 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-02-07 03:20:43 +0100 |
| commit | ae3f3fcbe03181e8b673cd527d557b4e734359ad (patch) | |
| tree | 54fa31e74f8103c36fef9b67a75ee81bab3bbd50 | |
| parent | 7255bae6c221b985a40f440356c9143ddfa2e236 (diff) | |
| download | geiser-ae3f3fcbe03181e8b673cd527d557b4e734359ad.tar.gz geiser-ae3f3fcbe03181e8b673cd527d557b4e734359ad.tar.bz2 | |
Accepting ~ in geiser-add-to-load-path
| -rw-r--r-- | elisp/geiser-compile.el | 4 |
1 files changed, 2 insertions, 2 deletions
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!")))) |