summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-autodoc.el6
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)