From 9a14aa781cf79eccf20aba73b91dce65c26ff2e2 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 7 Mar 2010 21:29:13 +0100 Subject: Implementations can now specify additional binding forms. --- elisp/geiser-completion.el | 20 +++++++++++++++++--- 1 file changed, 17 insertions(+), 3 deletions(-) (limited to 'elisp/geiser-completion.el') diff --git a/elisp/geiser-completion.el b/elisp/geiser-completion.el index 9efe89f..09c021f 100644 --- a/elisp/geiser-completion.el +++ b/elisp/geiser-completion.el @@ -134,11 +134,25 @@ terminates a current completion." ;;; Completion functionality: +(defvar geiser-completion--binding-forms nil) +(geiser-impl--register-local-variable + 'geiser-completion--binding-forms 'binding-forms nil + "A list of forms introducing local bindings, a la let or lambda.") + +(defvar geiser-completion--binding-forms* nil) +(geiser-impl--register-local-variable + 'geiser-completion--binding-forms* 'binding-forms* nil + "A list of forms introducing nested local bindings, a la let*.") + +(defsubst geiser-completion--locals () + (mapcar 'symbol-name + (geiser-syntax--locals-around-point + geiser-completion--binding-forms + geiser-completion--binding-forms*))) + (defun geiser-completion--symbol-list (prefix) (delete-duplicates - (append (all-completions prefix - (mapcar 'symbol-name - (geiser-syntax--locals-around-point))) + (append (all-completions prefix (geiser-completion--locals)) (geiser-eval--send/result `(:eval ((:ge completions) ,prefix)))) :test 'string=)) -- cgit v1.2.3