Eglot: pay better attention to hints' paddingLeft/Right (bug#61924)
* lisp/progmodes/eglot.el (eglot--update-hints-1): Consider :json-false, which is a non-nil value.
This commit is contained in:
parent
9e105d483f
commit
3a651773d2
2 changed files with 3 additions and 0 deletions
|
@ -661,6 +661,7 @@ Usually run by inclusion in `minibuffer-setup-hook'."
|
|||
(setq-local icomplete-hide-common-prefix nil
|
||||
;; Ask `icomplete-completions' to return enough completions candidates.
|
||||
icomplete-prospects-height 25
|
||||
truncate-lines t
|
||||
redisplay-adhoc-scroll-in-resize-mini-windows nil))
|
||||
|
||||
;;;###autoload
|
||||
|
|
|
@ -3603,8 +3603,10 @@ If NOERROR, return predicate, else erroring function."
|
|||
(goto-char (eglot--lsp-position-to-point position))
|
||||
(when (or (> (point) to) (< (point) from)) (cl-return))
|
||||
(let ((left-pad (and paddingLeft
|
||||
(not (eq paddingLeft :json-false))
|
||||
(not (memq (char-before) '(32 9))) " "))
|
||||
(right-pad (and paddingRight
|
||||
(not (eq paddingRight :json-false))
|
||||
(not (memq (char-after) '(32 9))) " ")))
|
||||
(cl-flet
|
||||
((do-it (text lpad rpad)
|
||||
|
|
Loading…
Add table
Reference in a new issue