[nongnu] elpa/geiser-gauche bdaeb16 097/119: Fix comletion bug

[Philip Kaludercic]

branch: elpa/geiser-gauche
commit bdaeb166d836f008f7cc274115c905b116d372d7
Author: András Simonyi <andras.simonyi@gmail.com>
Commit: András Simonyi <andras.simonyi@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