From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 14 Feb 2021 12:31:10 +0000 (+0100)
Subject: Mark easy-menu-do-define menus as "not interesting"
X-Git-Tag: emacs-28.0.90~3751
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2bfcd93e83d264e6b801e43bfd1a78e345b8221d;p=emacs.git

Mark easy-menu-do-define menus as "not interesting"

* lisp/emacs-lisp/easymenu.el (easy-menu-do-define): Mark menu
keymaps as "not interesting" when doing completion.
---

diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el
index 5303da3746c..39b3193b2f4 100644
--- a/lisp/emacs-lisp/easymenu.el
+++ b/lisp/emacs-lisp/easymenu.el
@@ -183,7 +183,10 @@ This is expected to be bound to a mouse event."
 						  :filter)
 				       'identity)
 				   (symbol-function symbol)))
-			     symbol)))))
+			     symbol))))
+      ;; These symbols are commands, but not interesting for users
+      ;; to `M-x TAB'.
+      (put symbol 'completion-predicate 'ignore))
     (dolist (map (if (keymapp maps) (list maps) maps))
       (define-key map
         (vector 'menu-bar (easy-menu-intern (car menu)))