diff options
| -rw-r--r-- | doc/lispref/display.texi | 2 | ||||
| -rw-r--r-- | lisp/progmodes/eglot.el | 10 |
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 |