diff options
| author | Stefan Kangas | 2024-12-13 04:48:33 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2024-12-13 04:48:33 +0100 |
| commit | 4bdadbdc215aacdc474b33426bf8eb1a1bd54e1f (patch) | |
| tree | b2ef4bf7c88659bfc11bd5aedef7c14e5f67daf8 | |
| parent | a9fcf55d5bb25bd2535d2595652ef15bd3816cea (diff) | |
| download | emacs-4bdadbdc215aacdc474b33426bf8eb1a1bd54e1f.tar.gz emacs-4bdadbdc215aacdc474b33426bf8eb1a1bd54e1f.zip | |
Prefer defvar-keymap in perl-mode.el
* lisp/progmodes/perl-mode.el (perl-mode-map): Convert to
defvar-keymap.
| -rw-r--r-- | lisp/progmodes/perl-mode.el | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index 3c32fac3f42..a503aa4dee6 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el | |||
| @@ -100,15 +100,13 @@ | |||
| 100 | "Abbrev table in use in `perl-mode' buffers.") | 100 | "Abbrev table in use in `perl-mode' buffers.") |
| 101 | (define-abbrev-table 'perl-mode-abbrev-table ()) | 101 | (define-abbrev-table 'perl-mode-abbrev-table ()) |
| 102 | 102 | ||
| 103 | (defvar perl-mode-map | 103 | (defvar-keymap perl-mode-map |
| 104 | (let ((map (make-sparse-keymap))) | 104 | :doc "Keymap used in Perl mode." |
| 105 | (define-key map "\e\C-a" 'perl-beginning-of-function) | 105 | "C-M-a" #'perl-beginning-of-function |
| 106 | (define-key map "\e\C-e" 'perl-end-of-function) | 106 | "C-M-e" #'perl-end-of-function |
| 107 | (define-key map "\e\C-h" 'perl-mark-function) | 107 | "C-M-h" #'perl-mark-function |
| 108 | (define-key map "\e\C-q" 'perl-indent-exp) | 108 | "C-M-q" #'perl-indent-exp |
| 109 | (define-key map "\177" 'backward-delete-char-untabify) | 109 | "DEL" #'backward-delete-char-untabify) |
| 110 | map) | ||
| 111 | "Keymap used in Perl mode.") | ||
| 112 | 110 | ||
| 113 | (defvar perl-mode-syntax-table | 111 | (defvar perl-mode-syntax-table |
| 114 | (let ((st (make-syntax-table (standard-syntax-table)))) | 112 | (let ((st (make-syntax-table (standard-syntax-table)))) |