From 977104c642a5294279957d3ce32e463e688cfed0 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Fri, 13 Dec 2024 04:48:33 +0100 Subject: [PATCH] Prefer defvar-keymap in perl-mode.el * lisp/progmodes/perl-mode.el (perl-mode-map): Convert to defvar-keymap. (cherry picked from commit 4bdadbdc215aacdc474b33426bf8eb1a1bd54e1f) --- lisp/progmodes/perl-mode.el | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index a182e303880..8490fddebd2 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el @@ -100,15 +100,13 @@ "Abbrev table in use in `perl-mode' buffers.") (define-abbrev-table 'perl-mode-abbrev-table ()) -(defvar perl-mode-map - (let ((map (make-sparse-keymap))) - (define-key map "\e\C-a" 'perl-beginning-of-function) - (define-key map "\e\C-e" 'perl-end-of-function) - (define-key map "\e\C-h" 'perl-mark-function) - (define-key map "\e\C-q" 'perl-indent-exp) - (define-key map "\177" 'backward-delete-char-untabify) - map) - "Keymap used in Perl mode.") +(defvar-keymap perl-mode-map + :doc "Keymap used in Perl mode." + "C-M-a" #'perl-beginning-of-function + "C-M-e" #'perl-end-of-function + "C-M-h" #'perl-mark-function + "C-M-q" #'perl-indent-exp + "DEL" #'backward-delete-char-untabify) (defvar perl-mode-syntax-table (let ((st (make-syntax-table (standard-syntax-table)))) -- 2.39.2