diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-08-30 11:19:09 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-08-30 11:19:09 +0200 |
| commit | 2c6f07d95935668a82bbd549901da6d0949fbbe7 (patch) | |
| tree | 9efd9681ac5c927d88aa1108a2ba94210b1bb6d5 /elisp/geiser-autodoc.el | |
| parent | 4308f5bf8babe700df73b384e91c2964ef431e5c (diff) | |
| download | geiser-chez-2c6f07d95935668a82bbd549901da6d0949fbbe7.tar.gz geiser-chez-2c6f07d95935668a82bbd549901da6d0949fbbe7.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.el | 9 |
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) |