diff options
| author | Stefan Kangas | 2022-05-12 11:07:51 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2022-05-12 11:08:09 +0200 |
| commit | dc662f21f42fc6226c5a6424399caec32329dbc1 (patch) | |
| tree | 1d240511515676cbea93bec35aece0472a0b16f4 /lisp/array.el | |
| parent | 89c6e412dd6bcb3a8e5e90d9a52cf6f6fd233776 (diff) | |
| download | emacs-dc662f21f42fc6226c5a6424399caec32329dbc1.tar.gz emacs-dc662f21f42fc6226c5a6424399caec32329dbc1.zip | |
* lisp/array.el (array-mode-map): Prefer defvar-keymap.
Diffstat (limited to 'lisp/array.el')
| -rw-r--r-- | lisp/array.el | 44 |
1 files changed, 21 insertions, 23 deletions
diff --git a/lisp/array.el b/lisp/array.el index 31cf9cf3028..08c5ff45ddd 100644 --- a/lisp/array.el +++ b/lisp/array.el | |||
| @@ -767,29 +767,27 @@ Return COLUMN." | |||
| 767 | 767 | ||
| 768 | ;;; Array mode. | 768 | ;;; Array mode. |
| 769 | 769 | ||
| 770 | (defvar array-mode-map | 770 | (defvar-keymap array-mode-map |
| 771 | (let ((map (make-keymap))) | 771 | :doc "Keymap used in array mode." |
| 772 | (define-key map "\M-ad" #'array-display-local-variables) | 772 | "M-a d" #'array-display-local-variables |
| 773 | (define-key map "\M-am" #'array-make-template) | 773 | "M-a m" #'array-make-template |
| 774 | (define-key map "\M-ae" #'array-expand-rows) | 774 | "M-a e" #'array-expand-rows |
| 775 | (define-key map "\M-ar" #'array-reconfigure-rows) | 775 | "M-a r" #'array-reconfigure-rows |
| 776 | (define-key map "\M-a=" #'array-what-position) | 776 | "M-a =" #'array-what-position |
| 777 | (define-key map "\M-ag" #'array-goto-cell) | 777 | "M-a g" #'array-goto-cell |
| 778 | (define-key map "\M-af" #'array-fill-rectangle) | 778 | "M-a f" #'array-fill-rectangle |
| 779 | (define-key map "\C-n" #'array-next-row) | 779 | "C-n" #'array-next-row |
| 780 | (define-key map "\C-p" #'array-previous-row) | 780 | "C-p" #'array-previous-row |
| 781 | (define-key map "\C-f" #'array-forward-column) | 781 | "C-f" #'array-forward-column |
| 782 | (define-key map "\C-b" #'array-backward-column) | 782 | "C-b" #'array-backward-column |
| 783 | (define-key map "\M-n" #'array-copy-down) | 783 | "M-n" #'array-copy-down |
| 784 | (define-key map "\M-p" #'array-copy-up) | 784 | "M-p" #'array-copy-up |
| 785 | (define-key map "\M-f" #'array-copy-forward) | 785 | "M-f" #'array-copy-forward |
| 786 | (define-key map "\M-b" #'array-copy-backward) | 786 | "M-b" #'array-copy-backward |
| 787 | (define-key map "\M-\C-n" #'array-copy-row-down) | 787 | "C-M-n" #'array-copy-row-down |
| 788 | (define-key map "\M-\C-p" #'array-copy-row-up) | 788 | "C-M-p" #'array-copy-row-up |
| 789 | (define-key map "\M-\C-f" #'array-copy-column-forward) | 789 | "C-M-f" #'array-copy-column-forward |
| 790 | (define-key map "\M-\C-b" #'array-copy-column-backward) | 790 | "C-M-b" #'array-copy-column-backward) |
| 791 | map) | ||
| 792 | "Keymap used in array mode.") | ||
| 793 | 791 | ||
| 794 | 792 | ||
| 795 | (put 'array-mode 'mode-class 'special) | 793 | (put 'array-mode 'mode-class 'special) |