procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Prefer defvar-keymap in perl-mode.el

Browse source 
* lisp/progmodes/perl-mode.el (perl-mode-map): Convert to
defvar-keymap.
This commit is contained in:
Stefan Kangas 2024-12-13 04:48:33 +01:00
parent a9fcf55d5b
commit 4bdadbdc21
1 changed files with 7 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/progmodes/perl-mode.el
View file

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