branch: elpa/geiser-gauche
commit bdaeb166d836f008f7cc274115c905b116d372d7
Author: András Simonyi <andras.simo...@gmail.com>
Commit: András Simonyi <andras.simo...@gmail.com>
Fix comletion bug
---
geiser-gauche.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/geiser-gauche.el b/geiser-gauche.el
index 14229ce..a0bf7e5 100644
--- a/geiser-gauche.el
+++ b/geiser-gauche.el
@@ -70,13 +70,12 @@
;;; Utils
-(defconst geiser-gauche--load-dir (f-dirname load-file-name)
- "The dir from geicher-gauche was loaded.")
+(defconst geiser-gauche--load-dir (file-name-directory load-file-name)
+ "The directory from which geiser-gauche was loaded.")
(defun geiser-gauche--symbol-begin (_module)
"Return the beginning position of the symbol at point."
- (max (save-excursion (beginning-of-line) (point))
- (save-excursion (skip-syntax-backward "^(>") (1- (point)))))
+ (save-excursion (skip-syntax-backward "^'-()>") (point)))
;;; Guess whether buffer is Gauche
