From: Stefan Kangas <stefankangas@gmail.com>
Date: Fri, 13 Dec 2024 03:48:33 +0000 (+0100)
Subject: Prefer defvar-keymap in perl-mode.el
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=977104c642a5294279957d3ce32e463e688cfed0;p=emacs.git

Prefer defvar-keymap in perl-mode.el

* lisp/progmodes/perl-mode.el (perl-mode-map): Convert to
defvar-keymap.

(cherry picked from commit 4bdadbdc215aacdc474b33426bf8eb1a1bd54e1f)
---

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