summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2013-02-07 03:20:43 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2013-02-07 03:20:43 +0100
commit2e581e278a1864be9143e841ec1b5c403dce0c86 (patch)
tree44701771e7757e50e34ad1ce63221464ff2d4f61
parent7916065e7156db3f128c1e5fd27783b4a18baa2f (diff)
downloadgeiser-chez-2e581e278a1864be9143e841ec1b5c403dce0c86.tar.gz
geiser-chez-2e581e278a1864be9143e841ec1b5c403dce0c86.tar.bz2
Accepting ~ in geiser-add-to-load-path
-rw-r--r--elisp/geiser-compile.el4
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!"))))