summaryrefslogtreecommitdiff
path: root/elisp/geiser-syntax.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-15 21:39:02 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-15 21:39:02 +0100
commit90cab862978ec01dfb7fa2b06592d835400d798c (patch)
tree40f424d592aa835ffe99582daf9800b6f6249e6a /elisp/geiser-syntax.el
parent9df5971ee7aa9c5562a96c4e0af3be944b9fd78b (diff)
downloadgeiser-90cab862978ec01dfb7fa2b06592d835400d798c.tar.gz
geiser-90cab862978ec01dfb7fa2b06592d835400d798c.tar.bz2
Nits.
Diffstat (limited to 'elisp/geiser-syntax.el')
-rw-r--r--elisp/geiser-syntax.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el
index 24e51df..1897898 100644
--- a/elisp/geiser-syntax.el
+++ b/elisp/geiser-syntax.el
@@ -67,7 +67,8 @@
(save-excursion
(let* ((p (geiser-syntax--end-of-thing))
(current (cons (symbol-at-point) 0))
- (data (when (car current) (list current))))
+ (data))
+;; (data (when (car current) (list current))))
(ignore-errors
(while (not (bobp))
(backward-up-list)
@@ -80,7 +81,7 @@
(forward-sexp)
(when (< (point) p) (setq arg-no (1+ arg-no))))
(push (cons proc arg-no) data))))))
- (reverse data))))
+ (reverse (if (car current) (push current data) data)))))
(defun geiser-syntax--prepare-scheme-for-elisp-reader ()
(goto-char (point-min))