summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--elisp/geiser-completion.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/elisp/geiser-completion.el b/elisp/geiser-completion.el
index 0752e5c..60b288e 100644
--- a/elisp/geiser-completion.el
+++ b/elisp/geiser-completion.el
@@ -136,7 +136,8 @@ terminates a current completion."
(defun geiser-completion--symbol-list (prefix)
(delete-duplicates
- (append (mapcar (lambda (s) (format "%s" s)) (geiser-syntax--locals-around-point))
+ (append (all-completions prefix
+ (mapcar 'symbol-name (geiser-syntax--locals-around-point)))
(geiser-eval--send/result `(:eval ((:ge completions) ,prefix))))
:test 'string=))
@@ -150,10 +151,9 @@ terminates a current completion."
(completion-table-dynamic 'geiser-completion--module-list))
(defun geiser-completion--complete (prefix modules)
- (let* ((symbols (if modules (geiser-completion--module-list prefix)
- (geiser-completion--symbol-list prefix)))
- (completions (all-completions prefix symbols))
- (partial (try-completion prefix symbols))
+ (let* ((completions (if modules (geiser-completion--module-list prefix)
+ (geiser-completion--symbol-list prefix)))
+ (partial (try-completion prefix completions))
(partial (if (eq partial t) prefix partial)))
(cons completions partial)))