diff options
Diffstat (limited to 'lisp/array.el')
| -rw-r--r-- | lisp/array.el | 46 |
1 files changed, 22 insertions, 24 deletions
diff --git a/lisp/array.el b/lisp/array.el index d68aaa5cf62..d22d58ca059 100644 --- a/lisp/array.el +++ b/lisp/array.el | |||
| @@ -775,32 +775,30 @@ Return COLUMN." | |||
| 775 | 775 | ||
| 776 | ;;; Array mode. | 776 | ;;; Array mode. |
| 777 | 777 | ||
| 778 | (defvar array-mode-map nil | 778 | (defvar array-mode-map |
| 779 | (let ((map (make-keymap))) | ||
| 780 | (define-key map "\M-ad" 'array-display-local-variables) | ||
| 781 | (define-key map "\M-am" 'array-make-template) | ||
| 782 | (define-key map "\M-ae" 'array-expand-rows) | ||
| 783 | (define-key map "\M-ar" 'array-reconfigure-rows) | ||
| 784 | (define-key map "\M-a=" 'array-what-position) | ||
| 785 | (define-key map "\M-ag" 'array-goto-cell) | ||
| 786 | (define-key map "\M-af" 'array-fill-rectangle) | ||
| 787 | (define-key map "\C-n" 'array-next-row) | ||
| 788 | (define-key map "\C-p" 'array-previous-row) | ||
| 789 | (define-key map "\C-f" 'array-forward-column) | ||
| 790 | (define-key map "\C-b" 'array-backward-column) | ||
| 791 | (define-key map "\M-n" 'array-copy-down) | ||
| 792 | (define-key map "\M-p" 'array-copy-up) | ||
| 793 | (define-key map "\M-f" 'array-copy-forward) | ||
| 794 | (define-key map "\M-b" 'array-copy-backward) | ||
| 795 | (define-key map "\M-\C-n" 'array-copy-row-down) | ||
| 796 | (define-key map "\M-\C-p" 'array-copy-row-up) | ||
| 797 | (define-key map "\M-\C-f" 'array-copy-column-forward) | ||
| 798 | (define-key map "\M-\C-b" 'array-copy-column-backward) | ||
| 799 | map) | ||
| 779 | "Keymap used in array mode.") | 800 | "Keymap used in array mode.") |
| 780 | 801 | ||
| 781 | (if array-mode-map | ||
| 782 | () | ||
| 783 | (setq array-mode-map (make-keymap)) | ||
| 784 | ;; Bind keys. | ||
| 785 | (define-key array-mode-map "\M-ad" 'array-display-local-variables) | ||
| 786 | (define-key array-mode-map "\M-am" 'array-make-template) | ||
| 787 | (define-key array-mode-map "\M-ae" 'array-expand-rows) | ||
| 788 | (define-key array-mode-map "\M-ar" 'array-reconfigure-rows) | ||
| 789 | (define-key array-mode-map "\M-a=" 'array-what-position) | ||
| 790 | (define-key array-mode-map "\M-ag" 'array-goto-cell) | ||
| 791 | (define-key array-mode-map "\M-af" 'array-fill-rectangle) | ||
| 792 | (define-key array-mode-map "\C-n" 'array-next-row) | ||
| 793 | (define-key array-mode-map "\C-p" 'array-previous-row) | ||
| 794 | (define-key array-mode-map "\C-f" 'array-forward-column) | ||
| 795 | (define-key array-mode-map "\C-b" 'array-backward-column) | ||
| 796 | (define-key array-mode-map "\M-n" 'array-copy-down) | ||
| 797 | (define-key array-mode-map "\M-p" 'array-copy-up) | ||
| 798 | (define-key array-mode-map "\M-f" 'array-copy-forward) | ||
| 799 | (define-key array-mode-map "\M-b" 'array-copy-backward) | ||
| 800 | (define-key array-mode-map "\M-\C-n" 'array-copy-row-down) | ||
| 801 | (define-key array-mode-map "\M-\C-p" 'array-copy-row-up) | ||
| 802 | (define-key array-mode-map "\M-\C-f" 'array-copy-column-forward) | ||
| 803 | (define-key array-mode-map "\M-\C-b" 'array-copy-column-backward)) | ||
| 804 | 802 | ||
| 805 | (put 'array-mode 'mode-class 'special) | 803 | (put 'array-mode 'mode-class 'special) |
| 806 | 804 | ||