mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Eglot: unbreak from Emacs 26.3 (two-arg setq-local)

Browse source 
* lisp/progmodes/eglot.el (eglot--hierarchy-1): Use two-arg setq-local
This commit is contained in:
João Távora 2025-03-08 05:15:57 +00:00
parent 331492a148
commit d81cdf9fd2
1 changed files with 13 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

27
lisp/progmodes/eglot.el
View file

@ -4601,20 +4601,19 @@ If NOERROR, return predicate, else erroring function."
(eglot--error "No hierarchy information here"))
(with-current-buffer (get-buffer-create name)
(eglot-hierarchy-mode)
(setq-local
eglot--hierarchy-roots roots
eglot--hierarchy-specs specs
eglot--cached-server server
eglot--hierarchy-source-major-mode mode
buffer-read-only t
revert-buffer-function
(lambda (&rest _ignore)
;; flush cache, would defeat purpose of a revert
(mapc (lambda (r)
(eglot--dbind ((HierarchyItem) name) r
(set-text-properties 0 1 nil name)))
eglot--hierarchy-roots)
(eglot--hierarchy-2)))
(setq-local eglot--hierarchy-roots roots)
(setq-local eglot--hierarchy-specs specs)
(setq-local eglot--cached-server server)
(setq-local eglot--hierarchy-source-major-mode mode)
(setq-local buffer-read-only t)
(setq-local revert-buffer-function
(lambda (&rest _ignore)
;; flush cache, would defeat purpose of a revert
(mapc (lambda (r)
(eglot--dbind ((HierarchyItem) name) r
(set-text-properties 0 1 nil name)))
eglot--hierarchy-roots)
(eglot--hierarchy-2)))
(eglot--hierarchy-2))))
(defun eglot--hierarchy-2 ()