diff --git a/eldoc-box.el b/eldoc-box.el index a7c0e4f..a32a26c 100644 --- a/eldoc-box.el +++ b/eldoc-box.el @@ -623,35 +623,15 @@ You can use \[keyboard-quit] to hide the doc." ;;;; Eglot helper -(eval-and-compile - (require 'jsonrpc) - (when (require 'eglot nil t) +(make-obsolete 'eldoc-box-eglot-help-at-point 'eldoc-box-help-at-point + "v1.11.1") - (defvar eglot--managed-mode) - (declare-function eglot--dbind "eglot.el") - (declare-function eglot--hover-info "eglot.el") - (declare-function eglot--current-server-or-lose "eglot.el") - (declare-function eglot--TextDocumentPositionParams "eglot.el") - (declare-function eglot--error "eglot.el") - (declare-function jsonrpc-request "jsonrpc") - - - (defun eldoc-box-eglot-help-at-point () - "Display documentation of the symbol at point." - (interactive) - (when eglot--managed-mode - (let ((eldoc-box-position-function #'eldoc-box--default-at-point-position-function)) - (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--help-at-point-last-point (point)) - (run-with-timer 0.1 nil #'eldoc-box--help-at-point-cleanup))))) +(defun eldoc-box-eglot-help-at-point () + "Display documentation of the symbol at point. +This is now obsolete, you should use ‘eldoc-box-help-at-point’ +instead." + (interactive) + (eldoc-box-help-at-point)) ;;;; Comany compatibility ;;