[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master d66fb46b42: * lisp/rect.el (rectangle-mark-mode-map): Prefer defv
From: |
Stefan Kangas |
Subject: |
master d66fb46b42: * lisp/rect.el (rectangle-mark-mode-map): Prefer defvar-keymap. |
Date: |
Mon, 18 Jul 2022 09:21:26 -0400 (EDT) |
branch: master
commit d66fb46b42137fd97616aa179b4faed0694e282b
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
* lisp/rect.el (rectangle-mark-mode-map): Prefer defvar-keymap.
---
lisp/rect.el | 23 +++++++++++------------
1 file changed, 11 insertions(+), 12 deletions(-)
diff --git a/lisp/rect.el b/lisp/rect.el
index e717d2ac7e..47df95b04e 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -634,18 +634,17 @@ with a prefix argument, prompt for START-AT and FORMAT."
(add-function :around region-insert-function
#'rectangle--insert-region)
-(defvar rectangle-mark-mode-map
- (let ((map (make-sparse-keymap)))
- (define-key map [?\C-o] 'open-rectangle)
- (define-key map [?\C-t] 'string-rectangle)
- (define-key map [remap exchange-point-and-mark]
- 'rectangle-exchange-point-and-mark)
- (dolist (cmd '(right-char left-char forward-char backward-char
- next-line previous-line))
- (define-key map (vector 'remap cmd)
- (intern (format "rectangle-%s" cmd))))
- map)
- "Keymap used while marking a rectangular region.")
+(defvar-keymap rectangle-mark-mode-map
+ :doc "Keymap used while marking a rectangular region."
+ "C-o" #'open-rectangle
+ "C-t" #'string-rectangle
+ "<remap> <exchange-point-and-mark>" #'rectangle-exchange-point-and-mark
+ "<remap> <right-char>" #'rectangle-right-char
+ "<remap> <left-char>" #'rectangle-left-char
+ "<remap> <forward-char>" #'rectangle-forward-char
+ "<remap> <backward-char>" #'rectangle-backward-char
+ "<remap> <next-line>" #'rectangle-next-line
+ "<remap> <previous-line>" #'rectangle-previous-line)
;;;###autoload
(define-minor-mode rectangle-mark-mode
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master d66fb46b42: * lisp/rect.el (rectangle-mark-mode-map): Prefer defvar-keymap.,
Stefan Kangas <=