diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-05-17 17:25:27 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-05-27 10:00:14 +0200 |
| commit | 7d74b8f632b1af75b837f5b5259cd1758aab1489 (patch) | |
| tree | 2db8b463375349b7d726fe1320e09e52b746fb3c /lisp/progmodes/scheme.el | |
| parent | 4ed0f6e9658279c25f66072c2ddef96aa6f7a93c (diff) | |
| download | emacs-7d74b8f632b1af75b837f5b5259cd1758aab1489.tar.gz emacs-7d74b8f632b1af75b837f5b5259cd1758aab1489.tar.bz2 emacs-7d74b8f632b1af75b837f5b5259cd1758aab1489.zip | |
Prefer defvar-keymap in some progmodes
* lisp/progmodes/asm-mode.el (asm-mode-map):
* lisp/progmodes/bug-reference.el (bug-reference-map):
* lisp/progmodes/erts-mode.el (erts-mode-map):
* lisp/progmodes/flymake.el (flymake-mode-map)
(flymake-diagnostics-buffer-mode-map):
* lisp/progmodes/icon.el (icon-mode-map):
* lisp/progmodes/js.el (js-mode-map):
* lisp/progmodes/m4-mode.el (m4-mode-map):
* lisp/progmodes/mixal-mode.el (mixal-mode-map):
* lisp/progmodes/scheme.el (scheme-mode-map): Prefer defvar-keymap.
Diffstat (limited to 'lisp/progmodes/scheme.el')
| -rw-r--r-- | lisp/progmodes/scheme.el | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el index cd397733d2d..cf1d3949835 100644 --- a/lisp/progmodes/scheme.el +++ b/lisp/progmodes/scheme.el @@ -1,7 +1,6 @@ ;;; scheme.el --- Scheme (and DSSSL) editing mode -*- lexical-binding: t; -*- -;; Copyright (C) 1986-1988, 1997-1998, 2001-2022 Free Software -;; Foundation, Inc. +;; Copyright (C) 1986-2022 Free Software Foundation, Inc. ;; Author: Bill Rozas <jinx@martigny.ai.mit.edu> ;; Adapted-by: Dave Love <d.love@dl.ac.uk> @@ -201,12 +200,10 @@ (defvar scheme-mode-line-process "") -(defvar scheme-mode-map - (let ((map (make-sparse-keymap))) - (set-keymap-parent map lisp-mode-shared-map) - map) - "Keymap for Scheme mode. -All commands in `lisp-mode-shared-map' are inherited by this map.") +(defvar-keymap scheme-mode-map + :doc "Keymap for Scheme mode. +All commands in `lisp-mode-shared-map' are inherited by this map." + :parent lisp-mode-shared-map) (easy-menu-define scheme-mode-menu scheme-mode-map "Menu for Scheme mode." |