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 | 2e581e278a1864be9143e841ec1b5c403dce0c86 (patch) | |
| tree | 44701771e7757e50e34ad1ce63221464ff2d4f61 | |
| parent | 7916065e7156db3f128c1e5fd27783b4a18baa2f (diff) | |
| download | geiser-guile-2e581e278a1864be9143e841ec1b5c403dce0c86.tar.gz geiser-guile-2e581e278a1864be9143e841ec1b5c403dce0c86.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!")))) |