Eglot: auto-expand first level in type and call hierarchies

* lisp/progmodes/eglot.el (eglot--hierarchy-2): Use widget-apply-action.

(cherry picked from commit 37c07f383b053a40b31439076bec0b170c1281de)

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 995d47a1306ca96124392304840ff89f884b7cbe..f01b41f1c5622f454ccea4f5f91a84dea79b7703 100644 (file)
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -4637,7 +4637,8 @@ If NOERROR, return predicate, else erroring function."
     (let ((inhibit-read-only t))
       (erase-buffer)
       (mapc (lambda (r)
-              (widget-create (convert r)))
+              (let ((w (widget-create (convert r))))
+                (widget-apply-action w)))
             eglot--hierarchy-roots)
       (goto-char (point-min))))
     (pop-to-buffer (current-buffer)))