[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 32f1ec449d 2/2: * lisp/abbrev.el (edit-abbrevs-mode-map): Use def
From: |
Stefan Kangas |
Subject: |
master 32f1ec449d 2/2: * lisp/abbrev.el (edit-abbrevs-mode-map): Use defvar-keymap. |
Date: |
Sun, 9 Jan 2022 19:15:11 -0500 (EST) |
branch: master
commit 32f1ec449d760a2a551fb411808d0b4c7d64418c
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
* lisp/abbrev.el (edit-abbrevs-mode-map): Use defvar-keymap.
---
lisp/abbrev.el | 12 +++++-------
1 file changed, 5 insertions(+), 7 deletions(-)
diff --git a/lisp/abbrev.el b/lisp/abbrev.el
index 515c046ce5..8247130e32 100644
--- a/lisp/abbrev.el
+++ b/lisp/abbrev.el
@@ -67,13 +67,11 @@ be replaced by its expansion."
(define-obsolete-variable-alias 'edit-abbrevs-map
'edit-abbrevs-mode-map "24.4")
-(defvar edit-abbrevs-mode-map
- (let ((map (make-sparse-keymap)))
- (define-key map "\C-x\C-s" 'abbrev-edit-save-buffer)
- (define-key map "\C-x\C-w" 'abbrev-edit-save-to-file)
- (define-key map "\C-c\C-c" 'edit-abbrevs-redefine)
- map)
- "Keymap used in `edit-abbrevs'.")
+(defvar-keymap edit-abbrevs-mode-map
+ :doc "Keymap used in `edit-abbrevs'."
+ "C-x C-s" #'abbrev-edit-save-buffer
+ "C-x C-w" #'abbrev-edit-save-to-file
+ "C-c C-c" #'edit-abbrevs-redefine)
(defun kill-all-abbrevs ()
"Undefine all defined abbrevs."