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/cmuscheme.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/cmuscheme.el')
| -rw-r--r-- | lisp/cmuscheme.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el index f41f2bf7027..772891d5d31 100644 --- a/lisp/cmuscheme.el +++ b/lisp/cmuscheme.el @@ -132,7 +132,7 @@ (define-key scheme-mode-map "\C-c\C-l" 'scheme-load-file) (define-key scheme-mode-map "\C-c\C-k" 'scheme-compile-file) ;k for "kompile" -(let ((map (lookup-key scheme-mode-map [menu-bar Scheme]))) +(let ((map (lookup-key scheme-mode-map [menu-bar scheme]))) (define-key map [separator-eval] '("--")) (define-key map [compile-file] '("Compile Scheme File" . scheme-compile-file)) |