From 7a3d1f828a12b3d1b570b4e6cda540fd98b7f7fc Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sat, 21 Feb 2009 00:01:27 +0100 Subject: Offer also local bindings as possible completions in M-TAB. --- elisp/geiser-completion.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'elisp/geiser-completion.el') diff --git a/elisp/geiser-completion.el b/elisp/geiser-completion.el index fd22044..accbd3d 100644 --- a/elisp/geiser-completion.el +++ b/elisp/geiser-completion.el @@ -155,7 +155,8 @@ terminates a current completion." (defun geiser-completion--complete (prefix modules) (let* ((symbols (if modules (geiser-completion--module-list) - (geiser-completion--symbol-list prefix))) + (append (geiser-syntax--local-bindings) + (geiser-completion--symbol-list prefix)))) (completions (all-completions prefix symbols)) (partial (try-completion prefix symbols)) (partial (if (eq partial t) prefix partial))) -- cgit v1.2.3