Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/rect.el (rectangle-mark-mode-map): Prefer defvar-keymap.

Browse source
This commit is contained in:
Stefan Kangas 2022-07-18 15:21:15 +02:00
parent bd8d8c75c0
commit d66fb46b42
1 changed files with 11 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
lisp/rect.el
View file

@ -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