diff options
| author | Alexander Konstantinov <akonst89+gitlab@gmail.com> | 2018-08-02 23:22:10 +0000 |
|---|---|---|
| committer | Alexander Konstantinov <akonst89@googlemail.com> | 2018-11-12 00:27:38 +0100 |
| commit | 99fa2dbc2ef079babd68b513135e51c6d5991c96 (patch) | |
| tree | 2bb8e889b60f47423d1b09f91613ecbe89aa77bb /elisp/geiser-company.el | |
| parent | fa5bba9e4537c643935494265798896e39fff845 (diff) | |
| download | geiser-guile-99fa2dbc2ef079babd68b513135e51c6d5991c96.tar.gz geiser-guile-99fa2dbc2ef079babd68b513135e51c6d5991c96.tar.bz2 | |
Make the geiser-company 'doc-buffer command work again
Diffstat (limited to 'elisp/geiser-company.el')
| -rw-r--r-- | elisp/geiser-company.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/elisp/geiser-company.el b/elisp/geiser-company.el index 368afb3..6108241 100644 --- a/elisp/geiser-company.el +++ b/elisp/geiser-company.el @@ -43,15 +43,18 @@ (defun geiser-company--doc-buffer (id) (let* ((impl geiser-impl--implementation) - (module (geiser-doc-module (geiser-eval--get-module) impl)) + (module (geiser-eval--get-module)) (symbol (make-symbol id)) (ds (geiser-doc--get-docstring symbol module))) (if (or (not ds) (not (listp ds))) - (message "No documentation available for '%s'" symbol) + (progn + (message "No documentation available for '%s'" symbol) + nil) (with-current-buffer (get-buffer-create "*company-documentation*") (geiser-doc--render-docstring ds symbol module impl) (current-buffer))))) + (defun geiser-company--location (id) (ignore-errors (when (not (geiser-autodoc--inhibit)) |