[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-29 3a651773d29: Eglot: pay better attention to hints' paddingLeft/
From: |
João Távora |
Subject: |
emacs-29 3a651773d29: Eglot: pay better attention to hints' paddingLeft/Right (bug#61924) |
Date: |
Fri, 3 Mar 2023 08:17:18 -0500 (EST) |
branch: emacs-29
commit 3a651773d29afb48ac4229cd19e532bd57a4ee2d
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>
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.
---
lisp/icomplete.el | 1 +
lisp/progmodes/eglot.el | 2 ++
2 files changed, 3 insertions(+)
diff --git a/lisp/icomplete.el b/lisp/icomplete.el
index 0adb0e5afeb..4f39afb69f4 100644
--- a/lisp/icomplete.el
+++ b/lisp/icomplete.el
@@ -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
diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index b17370ebf8b..a11ec0e4bbd 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-29 3a651773d29: Eglot: pay better attention to hints' paddingLeft/Right (bug#61924),
João Távora <=