added backquote because uri and range were nil when clicking on text button

brotherbus 2024-01-30 15:23:20 +00:00
parent 97a2c32a84
commit 27664acdbd

@ -48,10 +48,10 @@ the children of class at point."
(cl-destructuring-bind (&key uri range) (plist-get node :location)
(insert (make-string depth ?\ ) (plist-get node :name) "\n")
(make-text-button (+ (point-at-bol 0) depth) (point-at-eol 0)
'action (lambda (_arg)
'action `(lambda (_arg)
(interactive)
(find-file (eglot--uri-to-path uri))
(goto-char (car (eglot--range-region range)))))
(find-file (eglot--uri-to-path ',uri))
(goto-char (car (eglot--range-region ',range)))))
(cl-loop for child across (plist-get node :children)
do (push (cons (1+ depth) child) tree)))))))
(eglot--error "Hierarchy unavailable")))