From 12d77d75b267a9c41994d24a3ee7a9a1d63d023b Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Thu, 2 Sep 2010 06:15:58 +0200 Subject: Yet another fix for scan locals (completion) --- elisp/geiser-syntax.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'elisp') diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el index e7c2a9f..773f71f 100644 --- a/elisp/geiser-syntax.el +++ b/elisp/geiser-syntax.el @@ -265,7 +265,8 @@ (when name (push name locals)) (when use-names (dolist (n names) (push n locals))) (dolist (f (butlast rest)) - (when (eq (car f) 'define) (push (cadr f) locals))) + (when (and (listp f) (eq (car f) 'define)) + (push (cadr f) locals))) (geiser-syntax--scan-locals bfs sbfs (car (last (or rest names))) partial -- cgit v1.2.3