diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-02-14 13:31:10 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-02-14 13:31:10 +0100 |
| commit | 2bfcd93e83d264e6b801e43bfd1a78e345b8221d (patch) | |
| tree | aab91f290f08072ffdc24a9efdeccb7fe52cfd6b /lisp/emacs-lisp | |
| parent | 9291e7316f98ab0858b323f72047ffd5a23d9ac9 (diff) | |
| download | emacs-2bfcd93e83d264e6b801e43bfd1a78e345b8221d.tar.gz emacs-2bfcd93e83d264e6b801e43bfd1a78e345b8221d.tar.bz2 emacs-2bfcd93e83d264e6b801e43bfd1a78e345b8221d.zip | |
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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/easymenu.el | 5 |
1 files changed, 4 insertions, 1 deletions
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))) |