Fix for autodoc in geiser-capf--company-docsig and beyond

Thanks to Panagiotis Vlantis, see issue #54

1 files changed, 4 insertions, 2 deletions

diff --git a/elisp/geiser-autodoc.el b/elisp/geiser-autodoc.el
index 1ce2936..20ef499 100644
--- a/elisp/geiser-autodoc.el
+++ b/elisp/geiser-autodoc.el
@@ -64,8 +64,10 @@ when `geiser-autodoc-display-module-p' is on."
     (when res
       (dolist (item res)
         (push (cons (format "%s" (car item)) (cdr item)) signs))
-      (let ((str (geiser-autodoc--autodoc (geiser-syntax--scan-sexps) nil signs)))
-        (funcall callback str))
+      (when (functionp callback)
+        (let* ((path (geiser-syntax--scan-sexps))
+               (str (geiser-autodoc--autodoc path nil signs)))
+          (funcall callback str)))
       (setq geiser-autodoc--cached-signatures signs))))
 
 (defun geiser-autodoc--get-signatures (funs callback)