From bfb486d8026424ec0859036b3686df9cab1383df Mon Sep 17 00:00:00 2001 From: Slava Akhmechet Date: Thu, 11 Jan 2024 15:50:08 -0600 Subject: [PATCH] Eglot: Simplify overlay handling in manual example * doc/misc/eglot.texi (Extending Eglot): Simplify. Copyright-paperwork-exempt: yes --- doc/misc/eglot.texi | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/doc/misc/eglot.texi b/doc/misc/eglot.texi index a5c3a967af1..85fef6be553 100644 --- a/doc/misc/eglot.texi +++ b/doc/misc/eglot.texi @@ -1405,8 +1405,6 @@ The remainder of the implementation consists of standard Elisp techniques to loop over arrays, manage buffers and overlays. @lisp -(defvar-local eglot-clangd-inactive-region-overlays '()) - (cl-defmethod eglot-handle-notification (_server (_method (eql textDocument/inactiveRegions)) &key regions textDocument &allow-other-keys) @@ -1414,14 +1412,14 @@ techniques to loop over arrays, manage buffers and overlays. (cl-getf textDocument :uri)))) (buffer (find-buffer-visiting path))) (with-current-buffer buffer - (mapc #'delete-overlay eglot-clangd-inactive-region-overlays) + (remove-overlays nil nil 'inactive-code t) (cl-loop for r across regions for (beg . end) = (eglot-range-region r) for ov = (make-overlay beg end) do (overlay-put ov 'face 'shadow) - (push ov eglot-clangd-inactive-region-overlays))))) + (overlay-put ov 'inactive-code t))))) @end lisp @end itemize -- 2.39.2