From 43ec41dcc0c018974eed09c86b7d50d328f90b5c Mon Sep 17 00:00:00 2001 From: Bas Alberts Date: Wed, 30 Mar 2022 01:02:16 -0400 Subject: [PATCH] =?UTF-8?q?*=20eldoc-box.el=20(eldoc-box-eglot-help-at-poi?= =?UTF-8?q?nt):=20Don=E2=80=99t=20display=20nil.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- eldoc-box.el | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/eldoc-box.el b/eldoc-box.el index dc78664..4b401c7 100644 --- a/eldoc-box.el +++ b/eldoc-box.el @@ -475,12 +475,15 @@ If (point) != last point, cleanup frame.") (interactive) (when eglot--managed-mode (let ((eldoc-box-position-function #'eldoc-box--default-at-point-position-function)) - (eldoc-box--display - (eglot--dbind ((Hover) contents range) - (jsonrpc-request (eglot--current-server-or-lose) :textDocument/hover - (eglot--TextDocumentPositionParams)) - (when (seq-empty-p contents) (eglot--error "No hover info here")) - (eglot--hover-info contents range)))) + (let ((hover-info + (eglot--dbind ((Hover) contents range) + (jsonrpc-request (eglot--current-server-or-lose) :textDocument/hover + (eglot--TextDocumentPositionParams)) + (when (seq-empty-p contents) (eglot--error "No hover info here")) + (eglot--hover-info contents range)))) + (if hover-info + (eldoc-box--display hover-info) + (eglot--error "No hover info here")))) (setq eldoc-box-eglot-help-at-point-last-point (point)) (run-with-timer 0.1 nil #'eldoc-box--eglot-help-at-point-cleanup)))