From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 28 Feb 2021 14:08:21 +0000 (+0100)
Subject: Adjust cmuscheme.el menu bar after previous scheme.el change
X-Git-Tag: emacs-28.0.90~3499
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=05100407543deef4191ba0453ec4b89ef40dde90;p=emacs.git

Adjust cmuscheme.el menu bar after previous scheme.el change

* lisp/cmuscheme.el (map): Adjust the keymap lookup after recent
scheme.el change (bug#46820).
---

diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el
index 772891d5d31..f41f2bf7027 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))