summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-09-17 17:59:44 +0100
committerjao <jao@gnu.org>2022-09-17 17:59:44 +0100
commit486c39cfbdf1789fe493535b7e0ae72ff518e53e (patch)
treebec2d5c3f5ba5e5bc3f7b0662644dfe6d2aeaee5
parentd0a54c942839a561032b4bc41ca65ff4481bd073 (diff)
downloadgeiser-486c39cfbdf1789fe493535b7e0ae72ff518e53e.tar.gz
geiser-486c39cfbdf1789fe493535b7e0ae72ff518e53e.tar.bz2
Fix for autodoc in geiser-capf--company-docsig and beyond
Thanks to Panagiotis Vlantis, see issue #54
-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)