diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el index c2a8562eb97..76648f310e6 100644 --- a/lisp/progmodes/eglot.el +++ b/lisp/progmodes/eglot.el @@ -2283,10 +2283,11 @@ If it is activated, also signal textDocument/didOpen." ["Rewrite" eglot-code-action-rewrite :visible (eglot-server-capable :codeActionProvider)] ["Quickfix" eglot-code-action-quickfix - :visible (eglot-server-capable :codeActionProvider)])) + :visible (eglot-server-capable :codeActionProvider)] + "--")) -(easy-menu-define eglot-server-menu nil "Monitor server communication" - '("Debugging the server communication" +(easy-menu-define eglot-server-menu nil "Manage server communication" + '("Server menu" ["Reconnect to server" eglot-reconnect] ["Quit server" eglot-shutdown] "--" @@ -2297,6 +2298,9 @@ If it is activated, also signal textDocument/didOpen." (interactive) (customize-variable 'eglot-events-buffer-size))])) +(add-to-list 'eglot-menu + `(eglot-server-menu menu-item "Server menu" ,eglot-server-menu) t) + ;;; Mode-line ;;;