diff options
author | jao <jao@gnu.org> | 2022-09-17 17:59:44 +0100 |
---|---|---|
committer | jao <jao@gnu.org> | 2022-09-17 17:59:44 +0100 |
commit | 486c39cfbdf1789fe493535b7e0ae72ff518e53e (patch) | |
tree | bec2d5c3f5ba5e5bc3f7b0662644dfe6d2aeaee5 | |
parent | d0a54c942839a561032b4bc41ca65ff4481bd073 (diff) | |
download | geiser-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.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) |