diff options
author | Stefan Kangas <stefan@marxist.se> | 2021-12-13 14:14:19 +0100 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2021-12-13 14:16:03 +0100 |
commit | 38f782f48df3a35c2735707892610325a5cba92d (patch) | |
tree | a23304946bae8a01b365f70d910e73100c678473 | |
parent | 3a773cbbf56509b18e3138c47509622d533abf37 (diff) | |
download | emacs-38f782f48df3a35c2735707892610325a5cba92d.tar.gz |
* lisp/ielm.el (ielm-map): Use defvar-keymap.
-rw-r--r-- | lisp/ielm.el | 34 |
1 files changed, 16 insertions, 18 deletions
diff --git a/lisp/ielm.el b/lisp/ielm.el index 0ddd83f1003..ec7f010a4d5 100644 --- a/lisp/ielm.el +++ b/lisp/ielm.el @@ -154,24 +154,22 @@ This variable is buffer-local.") "Message to display when IELM is started.") (defvaralias 'inferior-emacs-lisp-mode-map 'ielm-map) -(defvar ielm-map - (let ((map (make-sparse-keymap))) - (define-key map "\t" 'ielm-tab) - (define-key map "\C-m" 'ielm-return) - (define-key map "\e\C-m" 'ielm-return-for-effect) - (define-key map "\C-j" 'ielm-send-input) - (define-key map "\e\C-x" 'eval-defun) ; for consistency with - (define-key map "\e\t" 'completion-at-point) ; lisp-interaction-mode - ;; These bindings are from `lisp-mode-shared-map' -- can you inherit - ;; from more than one keymap?? - (define-key map "\e\C-q" 'indent-sexp) - (define-key map "\177" 'backward-delete-char-untabify) - ;; Some convenience bindings for setting the working buffer - (define-key map "\C-c\C-b" 'ielm-change-working-buffer) - (define-key map "\C-c\C-f" 'ielm-display-working-buffer) - (define-key map "\C-c\C-v" 'ielm-print-working-buffer) - map) - "Keymap for IELM mode.") +(defvar-keymap ielm-map + :doc "Keymap for IELM mode." + "TAB" #'ielm-tab + "RET" #'ielm-return + "M-RET" #'ielm-return-for-effect + "C-j" #'ielm-send-input + "C-M-x" #'eval-defun ; for consistency with + "M-TAB" #'completion-at-point ; lisp-interaction-mode + ;; These bindings are from `lisp-mode-shared-map' -- can you inherit + ;; from more than one keymap?? + "C-M-q" #'indent-sexp + "DEL" #'backward-delete-char-untabify + ;; Some convenience bindings for setting the working buffer + "C-c C-b" #'ielm-change-working-buffer + "C-c C-f" #'ielm-display-working-buffer + "C-c C-v" #'ielm-print-working-buffer) (easy-menu-define ielm-menu ielm-map "IELM mode menu." |