From 2a76df54515f4a0f3adc4e5e401c46434bb210e0 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Wed, 28 Jul 2010 01:08:25 +0200 Subject: Displaying variable values in autodoc. --- elisp/geiser-autodoc.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'elisp/geiser-autodoc.el') diff --git a/elisp/geiser-autodoc.el b/elisp/geiser-autodoc.el index 06a10e7..1af0ae2 100644 --- a/elisp/geiser-autodoc.el +++ b/elisp/geiser-autodoc.el @@ -131,11 +131,16 @@ when `geiser-autodoc-display-module-p' is on." (defun geiser-autodoc--str* (full-signature) (geiser-autodoc--str (list (car full-signature)) full-signature)) +(defsubst geiser-autodoc--value-str (proc module value) + (let ((name (geiser-autodoc--proc-name proc module))) + (if value (format "%s => %s" name value) name))) + (defun geiser-autodoc--str (desc signature) (let ((proc (car desc)) (args (cdr (assoc 'args signature))) (module (cdr (assoc 'module signature)))) - (if (not args) (geiser-autodoc--proc-name proc module) + (if (not args) + (geiser-autodoc--value-str proc module (cdr (assoc 'value signature))) (save-current-buffer (set-buffer (geiser-syntax--font-lock-buffer)) (erase-buffer) -- cgit v1.2.3