diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-12-08 17:15:28 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-12-08 17:48:25 +0100 |
| commit | 6cf358d7a270ce6fc7d032187fe042a9bf234240 (patch) | |
| tree | e4c0c23d4f94fe4d0f35f227522a29e954b871d4 /lisp/mail | |
| parent | 5922c972cd1ab7b52f10552a94bbbbe488a58ae0 (diff) | |
| download | emacs-6cf358d7a270ce6fc7d032187fe042a9bf234240.tar.gz emacs-6cf358d7a270ce6fc7d032187fe042a9bf234240.tar.bz2 emacs-6cf358d7a270ce6fc7d032187fe042a9bf234240.zip | |
Define some more keymaps in one step
* lisp/calc/calc-store.el (calc-var-name-map):
* lisp/mail/rmailsum.el (rmail-summary-edit-map):
* lisp/speedbar.el (speedbar-buffers-key-map): Define in one step.
* lisp/progmodes/ebrowse.el (ebrowse-global-submap-4)
(ebrowse-global-submap-5): Define in one step and use defvar-keymap.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rmailsum.el | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 9dd9573a9fc..8fc3fc095cc 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -1480,13 +1480,11 @@ argument says to read a file name and use that file as the inbox." (declare-function rmail-output-read-file-name "rmailout" ()) (declare-function mail-send-and-exit "sendmail" (&optional arg)) -(defvar rmail-summary-edit-map nil) -(if rmail-summary-edit-map - nil - (setq rmail-summary-edit-map - (nconc (make-sparse-keymap) text-mode-map)) - (define-key rmail-summary-edit-map "\C-c\C-c" 'rmail-cease-edit) - (define-key rmail-summary-edit-map "\C-c\C-]" 'rmail-abort-edit)) +(defvar rmail-summary-edit-map + (let ((map (nconc (make-sparse-keymap) text-mode-map))) + (define-key map "\C-c\C-c" #'rmail-cease-edit) + (define-key map "\C-c\C-]" #'rmail-abort-edit) + map)) (defun rmail-summary-edit-current-message () "Edit the contents of this message." |