diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-06 21:14:54 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-06 21:14:54 +0200 |
| commit | 7265c941f5b09f9a4c4eb4d70a361ead4bbb2b3e (patch) | |
| tree | 9c61f926a76b218543df35100db0d2e7f38f100a /elisp/geiser-autodoc.el | |
| parent | 1ed3aca4b58fe3cf51d5a91e2bf4371f38d17122 (diff) | |
| download | geiser-guile-7265c941f5b09f9a4c4eb4d70a361ead4bbb2b3e.tar.gz geiser-guile-7265c941f5b09f9a4c4eb4d70a361ead4bbb2b3e.tar.bz2 | |
Elisp: better fix for previous bug.
Diffstat (limited to 'elisp/geiser-autodoc.el')
| -rw-r--r-- | elisp/geiser-autodoc.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/elisp/geiser-autodoc.el b/elisp/geiser-autodoc.el index 4b797fc..06a10e7 100644 --- a/elisp/geiser-autodoc.el +++ b/elisp/geiser-autodoc.el @@ -81,11 +81,7 @@ when `geiser-autodoc-display-module-p' is on." (defun geiser-autodoc--sanitize-args (args) (cond ((null args) nil) ((listp args) - (let* ((arg (car args)) - (arg (if (and (consp arg) (eq (caar arg) ':keyword)) - (format "(#:%s %s)" (cdar arg) (cdr arg)) - arg))) - (cons arg (geiser-autodoc--sanitize-args (cdr args))))) + (cons (car args) (geiser-autodoc--sanitize-args (cdr args)))) (t '(...)))) (defun geiser-autodoc--insert-arg-group (args current &optional pos) @@ -96,7 +92,7 @@ when `geiser-autodoc-display-module-p' is on." (numberp current) (setq current (1+ current)) (= (1+ pos) current)) - (and (symbolp current) + (and (keywordp current) (listp a) (eq current (car a)))) (put-text-property p (point) |