aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--doc/lispref/display.texi2
-rw-r--r--lisp/progmodes/eglot.el10
2 files changed, 7 insertions, 5 deletions
diff --git a/doc/lispref/display.texi b/doc/lispref/display.texi
index 7655ca8839d..9b6e4f609bf 100644
--- a/doc/lispref/display.texi
+++ b/doc/lispref/display.texi
@@ -8527,7 +8527,7 @@ the effect of setting @code{ctl-arrow} to a non-@code{nil} value
8527 (make-glyph-code (+ i 64) 'escape-glyph))))) 8527 (make-glyph-code (+ i 64) 'escape-glyph)))))
8528(aset disptab 127 8528(aset disptab 127
8529 (vector (make-glyph-code ?^ 'escape-glyph) 8529 (vector (make-glyph-code ?^ 'escape-glyph)
8530 (make-glyph-code ?? 'escape-glyph))))) 8530 (make-glyph-code ?? 'escape-glyph)))
8531@end example 8531@end example
8532 8532
8533@defun display-table-slot display-table slot 8533@defun display-table-slot display-table slot
diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 7d5d786dea3..dff79ba7773 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -3769,8 +3769,9 @@ If NOERROR, return predicate, else erroring function."
3769 (if peg-after-p 3769 (if peg-after-p
3770 (make-overlay (point) (1+ (point)) nil t) 3770 (make-overlay (point) (1+ (point)) nil t)
3771 (make-overlay (1- (point)) (point) nil nil nil))) 3771 (make-overlay (1- (point)) (point) nil nil nil)))
3772 (do-it (label lpad rpad firstp) 3772 (do-it (label lpad rpad i)
3773 (let* ((tweak-cursor-p (and firstp peg-after-p)) 3773 (let* ((firstp (zerop i))
3774 (tweak-cursor-p (and firstp peg-after-p))
3774 (ov (make-ov)) 3775 (ov (make-ov))
3775 (text (concat lpad label rpad))) 3776 (text (concat lpad label rpad)))
3776 (when tweak-cursor-p (put-text-property 0 1 'cursor 1 text)) 3777 (when tweak-cursor-p (put-text-property 0 1 'cursor 1 text))
@@ -3781,17 +3782,18 @@ If NOERROR, return predicate, else erroring function."
3781 (1 'eglot-type-hint-face) 3782 (1 'eglot-type-hint-face)
3782 (2 'eglot-parameter-hint-face) 3783 (2 'eglot-parameter-hint-face)
3783 (_ 'eglot-inlay-hint-face)))) 3784 (_ 'eglot-inlay-hint-face))))
3785 (overlay-put ov 'priority i)
3784 (overlay-put ov 'eglot--inlay-hint t) 3786 (overlay-put ov 'eglot--inlay-hint t)
3785 (overlay-put ov 'evaporate t) 3787 (overlay-put ov 'evaporate t)
3786 (overlay-put ov 'eglot--overlay t)))) 3788 (overlay-put ov 'eglot--overlay t))))
3787 (if (stringp label) (do-it label left-pad right-pad t) 3789 (if (stringp label) (do-it label left-pad right-pad 0)
3788 (cl-loop 3790 (cl-loop
3789 for i from 0 for ldetail across label 3791 for i from 0 for ldetail across label
3790 do (eglot--dbind ((InlayHintLabelPart) value) ldetail 3792 do (eglot--dbind ((InlayHintLabelPart) value) ldetail
3791 (do-it value 3793 (do-it value
3792 (and (zerop i) left-pad) 3794 (and (zerop i) left-pad)
3793 (and (= i (1- (length label))) right-pad) 3795 (and (= i (1- (length label))) right-pad)
3794 (zerop i)))))))))) 3796 i)))))))))
3795 (jsonrpc-async-request 3797 (jsonrpc-async-request
3796 (eglot--current-server-or-lose) 3798 (eglot--current-server-or-lose)
3797 :textDocument/inlayHint 3799 :textDocument/inlayHint