From e5392d38ac27c4cf1674997ab38a453877e65109 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 1 Mar 2021 22:12:43 +0100 Subject: 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. --- lisp/cmuscheme.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/cmuscheme.el') 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)) -- cgit v1.2.3