diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-11-13 01:58:35 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-11-13 01:58:35 +0100 |
| commit | 3a9ce0781e3b3b9cd51db35ef417475d2a4dddf6 (patch) | |
| tree | 3860150c67d3a990465d8938ce0ec3b6be2191e7 /elisp/geiser-autodoc.el | |
| parent | 6c58b24bfe84292d813adff6531be15c9f7c9cfc (diff) | |
| download | geiser-3a9ce0781e3b3b9cd51db35ef417475d2a4dddf6.tar.gz geiser-3a9ce0781e3b3b9cd51db35ef417475d2a4dddf6.tar.bz2 | |
Bug fix: displaying signatures correctly in xref buffers.
Diffstat (limited to 'elisp/geiser-autodoc.el')
| -rw-r--r-- | elisp/geiser-autodoc.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/elisp/geiser-autodoc.el b/elisp/geiser-autodoc.el index 39dc636..d0345e0 100644 --- a/elisp/geiser-autodoc.el +++ b/elisp/geiser-autodoc.el @@ -119,9 +119,12 @@ when `geiser-autodoc-display-module-p' is on." (defsubst geiser-autodoc--proc-name (proc module) (let ((str (if module (format geiser-autodoc-procedure-name-format module proc) - proc))) + (format "%s" proc)))) (propertize str 'face 'geiser-font-lock-autodoc-procedure-name))) +(defun geiser-autodoc--str* (full-signature) + (geiser-autodoc--str (list (car full-signature)) full-signature)) + (defun geiser-autodoc--str (desc signature) (let ((proc (car desc)) (args (cdr (assoc 'args signature))) |