diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-03-01 22:12:43 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-03-01 22:12:43 +0100 |
| commit | e5392d38ac27c4cf1674997ab38a453877e65109 (patch) | |
| tree | a1c4fcf671034019208d8f9d38d481fd15d6dbee /lisp/emacs-lisp/easymenu.el | |
| parent | 0d827c7f52b92aaffe751cf937427938f1ac67de (diff) | |
| download | emacs-e5392d38ac27c4cf1674997ab38a453877e65109.tar.gz | |
Make easymenu downcase the menu symbol for greater backwards compat
* lisp/cmuscheme.el (map): Revert previous fix.
* lisp/woman.el (woman-dired-define-keys): Ditto.
* lisp/emacs-lisp/easymenu.el (easy-menu-do-define): Downcase the
menu name for greater backwards compatibility.
Diffstat (limited to 'lisp/emacs-lisp/easymenu.el')
| -rw-r--r-- | lisp/emacs-lisp/easymenu.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index faa69241f9f..d3c3d5e65f1 100644 --- a/lisp/emacs-lisp/easymenu.el +++ b/lisp/emacs-lisp/easymenu.el @@ -190,7 +190,11 @@ This is expected to be bound to a mouse event." (function-put symbol 'completion-predicate #'ignore)) (dolist (map (if (keymapp maps) (list maps) maps)) (define-key map - (vector 'menu-bar (easy-menu-intern (car menu))) + (vector 'menu-bar (if (symbolp (car menu)) + (car menu) + ;; If a string, then use the downcased + ;; version for greater backwards compatibiltiy. + (intern (downcase (car menu))))) (easy-menu-binding keymap (car menu)))))) (defun easy-menu-filter-return (menu &optional name) |