From 12d77d75b267a9c41994d24a3ee7a9a1d63d023b Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
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