summaryrefslogtreecommitdiff
path: root/elisp/geiser-autodoc.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-08-30 11:19:09 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-08-30 11:19:09 +0200
commitabe824fdc168e3405426b2df47de4178eb3e4276 (patch)
treedcab797745fc8db6aa6b5870bbaaa7ad689994d5 /elisp/geiser-autodoc.el
parente2b9d184157eb789a751d0c32999fe85829e936e (diff)
downloadgeiser-abe824fdc168e3405426b2df47de4178eb3e4276.tar.gz
geiser-abe824fdc168e3405426b2df47de4178eb3e4276.tar.bz2
Biting the bullet: a simple, permissive, scheme reader.
Currently put to (let's hope, good) use for context parsing in autodoc and locals discovery (internal defines are recognised now).
Diffstat (limited to 'elisp/geiser-autodoc.el')
-rw-r--r--elisp/geiser-autodoc.el9
1 files changed, 5 insertions, 4 deletions
diff --git a/elisp/geiser-autodoc.el b/elisp/geiser-autodoc.el
index e00f6b6..75f2e7c 100644
--- a/elisp/geiser-autodoc.el
+++ b/elisp/geiser-autodoc.el
@@ -71,8 +71,7 @@ when `geiser-autodoc-display-module-p' is on."
(defun geiser-autodoc--get-signatures (funs &optional keep-cached)
(when funs
(let ((fs (assq (car funs) geiser-autodoc--cached-signatures)))
- (if fs
- (list fs)
+ (unless fs
(let ((missing) (cached))
(if (not geiser-autodoc--cached-signatures)
(setq missing funs)
@@ -88,8 +87,10 @@ when `geiser-autodoc-display-module-p' is on."
500)))
(when res
(setq geiser-autodoc--cached-signatures
- (append res (if keep-cached geiser-autodoc--cached-signatures cached))))))
- geiser-autodoc--cached-signatures)))))
+ (append res (if keep-cached
+ geiser-autodoc--cached-signatures
+ cached))))))))
+ geiser-autodoc--cached-signatures)))
(defun geiser-autodoc--insert-args (args current &optional pos)
(dolist (a args)