Zengtudor/ccls
1
0
Fork 0
mirror of https://github.com/MaskRay/ccls.git synced 2024-11-22 07:35:08 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

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
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
eglot.md

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