From 188cd6da28f271144fb88b9280532f18aec0b3dd Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Mon, 14 May 2018 10:50:49 +0100 Subject: [PATCH] Don't define a menu if nothing to show there for now * eglot.el (eglot-menu): Remove it. (eglot--mode-line-format): Don't define a menu. --- lisp/progmodes/eglot.el | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el index 447724283cf..6dc22135550 100644 --- a/lisp/progmodes/eglot.el +++ b/lisp/progmodes/eglot.el @@ -843,10 +843,6 @@ that case, also signal textDocument/didOpen." ;;; Mode-line, menu and other sugar ;;; -(defvar eglot-menu) - -(easy-menu-define eglot-menu eglot-mode-map "EGLOT" `("EGLOT" )) - (defvar eglot--mode-line-format `(:eval (eglot--mode-line-format))) (put 'eglot--mode-line-format 'risky-local-variable t) @@ -881,8 +877,7 @@ Uses THING, FACE, DEFS and PREPEND." (`(,_id ,doing ,done-p ,detail) (and proc (eglot--spinner proc))) (`(,status ,serious-p) (and proc (eglot--status proc)))) (append - `(,(eglot--mode-line-props "eglot" 'eglot-mode-line - '((down-mouse-1 eglot-menu "pop up EGLOT menu")))) + `(,(eglot--mode-line-props "eglot" 'eglot-mode-line nil)) (when name `(":" ,(eglot--mode-line-props name 'eglot-mode-line -- 2.39.2