procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* lisp/emacs-lisp/easymenu.el (easy-menu-do-define): Mark menu
keymaps as "not interesting" when doing completion.
This commit is contained in:
Lars Ingebrigtsen 2021-02-14 13:31:10 +01:00
parent 9291e7316f
commit 2bfcd93e83
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/easymenu.el
View file

@ -183,7 +183,10 @@ This is expected to be bound to a mouse event."
:filter) :filter)
'identity) 'identity)
(symbol-function symbol))) (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)) (dolist (map (if (keymapp maps) (list maps) maps))
(define-key map (define-key map
(vector 'menu-bar (easy-menu-intern (car menu))) (vector 'menu-bar (easy-menu-intern (car menu)))