Obsolete eldoc-box-eglot-help-at-point

* eldoc-box.el (eldoc-box-eglot-help-at-point): Replace body with a
single call to eldoc-box-help-at-point.
This commit is contained in:
Yuan Fu 2023-04-27 11:54:44 -07:00
parent 939724afef
commit d0dd4e9d40
No known key found for this signature in database
GPG Key ID: 56E19BC57664A442

View File

@ -623,35 +623,15 @@ You can use \[keyboard-quit] to hide the doc."
;;;; Eglot helper ;;;; Eglot helper
(eval-and-compile (make-obsolete 'eldoc-box-eglot-help-at-point 'eldoc-box-help-at-point
(require 'jsonrpc) "v1.11.1")
(when (require 'eglot nil t)
(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 () (defun eldoc-box-eglot-help-at-point ()
"Display documentation of the symbol at point." "Display documentation of the symbol at point.
This is now obsolete, you should use eldoc-box-help-at-point
instead."
(interactive) (interactive)
(when eglot--managed-mode (eldoc-box-help-at-point))
(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)))))
;;;; Comany compatibility ;;;; Comany compatibility
;; ;;