master 2bfcd93 03/12: Mark easy-menu-do-define menus as "not interesting"

[Lars Ingebrigtsen]

branch: master
commit 2bfcd93e83d264e6b801e43bfd1a78e345b8221d
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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.
---
 lisp/emacs-lisp/easymenu.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el
index 5303da3..39b3193 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)))