diff options
| -rw-r--r-- | elisp/geiser-autodoc.el | 6 |
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) |