From fbd678c1d48c69e7a07730eea9a852236b9af737 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Mon, 4 May 2009 20:49:20 +0200
Subject: Autodoc: support for info about variables.

---
 elisp/geiser-autodoc.el | 33 ++++++++++++++++++---------------
 1 file changed, 18 insertions(+), 15 deletions(-)

(limited to 'elisp/geiser-autodoc.el')

diff --git a/elisp/geiser-autodoc.el b/elisp/geiser-autodoc.el
index 6565d88..f6d36a8 100644
--- a/elisp/geiser-autodoc.el
+++ b/elisp/geiser-autodoc.el
@@ -122,21 +122,24 @@ when `geiser-autodoc-display-module-p' is on."
     str))
 
 (defun geiser-autodoc--str (signature pos module)
-  (when signature
-    (save-current-buffer
-      (set-buffer (geiser-syntax--font-lock-buffer))
-      (erase-buffer)
-      (let* ((proc (car signature))
-             (args (cdr signature))
-             (current 1)
-             (pos (if (> pos (length args)) (length args) pos)))
-        (insert (format "(%s" (geiser-autodoc--proc-name proc module)))
-        (dolist (a args)
-          (insert " ")
-          (geiser-autodoc--insert-arg a current pos)
-          (setq current (1+ current)))
-        (insert ")")
-        (buffer-string)))))
+  (when (consp signature)
+    (let* ((proc (car signature))
+           (args (cdr signature))
+           (len (if (listp args) (length args) 0))
+           (current 1)
+           (pos (if (> pos len) len pos)))
+      (if (eq args 'variable)
+          (geiser-autodoc--proc-name proc module)
+        (save-current-buffer
+          (set-buffer (geiser-syntax--font-lock-buffer))
+          (erase-buffer)
+          (insert (format "(%s" (geiser-autodoc--proc-name proc module)))
+          (dolist (a args)
+            (insert " ")
+            (geiser-autodoc--insert-arg a current pos)
+            (setq current (1+ current)))
+          (insert ")")
+          (buffer-string))))))
 
 
 ;;; Autodoc function:
-- 
cgit v1.2.3