diff options
Diffstat (limited to 'lisp/progmodes/scheme.el')
| -rw-r--r-- | lisp/progmodes/scheme.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el index 94dfbf53dd7..f1bd51309d9 100644 --- a/lisp/progmodes/scheme.el +++ b/lisp/progmodes/scheme.el @@ -174,13 +174,12 @@ (defvar scheme-mode-map nil "Keymap for Scheme mode. -All commands in `shared-lisp-mode-map' are inherited by this map.") +All commands in `lisp-mode-shared-map' are inherited by this map.") -(if scheme-mode-map - () +(unless scheme-mode-map (let ((map (make-sparse-keymap "Scheme"))) - (setq scheme-mode-map - (nconc (make-sparse-keymap) shared-lisp-mode-map)) + (setq scheme-mode-map (make-sparse-keymap)) + (set-keymap-parent scheme-mode-map shared-lisp-mode-map) (define-key scheme-mode-map [menu-bar] (make-sparse-keymap)) (define-key scheme-mode-map [menu-bar scheme] (cons "Scheme" map)) |