]> git.eshelyaron.com Git - emacs.git/commitdiff
Don't define a menu if nothing to show there for now
authorJoão Távora <joaotavora@gmail.com>
Mon, 14 May 2018 09:50:49 +0000 (10:50 +0100)
committerJoão Távora <joaotavora@gmail.com>
Mon, 14 May 2018 09:50:49 +0000 (10:50 +0100)
* eglot.el (eglot-menu): Remove it.
(eglot--mode-line-format): Don't define a menu.

lisp/progmodes/eglot.el

index 447724283cfbba5fe2008d2e0914c08b8d9da00f..6dc22135550d1438ef11fba45b81954f81c9b2f8 100644 (file)
@@ -843,10 +843,6 @@ that case, also signal textDocument/didOpen."
 \f
 ;;; 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