From 486c39cfbdf1789fe493535b7e0ae72ff518e53e Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 17 Sep 2022 17:59:44 +0100 Subject: Fix for autodoc in geiser-capf--company-docsig and beyond Thanks to Panagiotis Vlantis, see issue #54 --- elisp/geiser-autodoc.el | 6 ++++-- 1 file 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) -- cgit v1.2.3