From: Stefan Kangas <stefankangas@gmail.com>
Date: Tue, 18 Feb 2025 05:06:37 +0000 (+0100)
Subject: Prefer defvar-keymap in pascal.el
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=73ad3f70c643a6926ba9c1dec0112e5dbfa9aec2;p=emacs.git

Prefer defvar-keymap in pascal.el

* lisp/progmodes/pascal.el (pascal-mode-map, pascal-outline-map):
Prefer defvar-keymap.

(cherry picked from commit 697e7c321144f1d91bcd8f6ed26c78968a156186)
---

diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el
index 02022a59cac..b6316d4dfe1 100644
--- a/lisp/progmodes/pascal.el
+++ b/lisp/progmodes/pascal.el
@@ -67,35 +67,34 @@
   "Abbrev table in use in Pascal mode buffers.")
 (define-abbrev-table 'pascal-mode-abbrev-table ())
 
-(defvar pascal-mode-map
-  (let ((map (make-sparse-keymap)))
-    (define-key map ";"        'electric-pascal-semi-or-dot)
-    (define-key map "."        'electric-pascal-semi-or-dot)
-    (define-key map ":"        'electric-pascal-colon)
-    (define-key map "="        'electric-pascal-equal)
-    (define-key map "#"        'electric-pascal-hash)
-    ;; These are user preferences, so not to set by default.
-    ;;(define-key map "\r"       'electric-pascal-terminate-line)
-    ;;(define-key map "\t"       'electric-pascal-tab)
-    (define-key map "\M-\t"    'completion-at-point)
-    (define-key map "\M-?"     'completion-help-at-point)
-    (define-key map "\177"     'backward-delete-char-untabify)
-    (define-key map "\M-\C-h"  'pascal-mark-defun)
-    (define-key map "\C-c\C-b" 'pascal-insert-block)
-    (define-key map "\M-*"     'pascal-star-comment)
-    (define-key map "\C-c\C-c" 'pascal-comment-area)
-    (define-key map "\C-c\C-u" 'pascal-uncomment-area)
-    (define-key map "\M-\C-a"  'pascal-beg-of-defun)
-    (define-key map "\M-\C-e"  'pascal-end-of-defun)
-    (define-key map "\C-c\C-d" 'pascal-goto-defun)
-    (define-key map "\C-c\C-o" 'pascal-outline-mode)
-    ;; A command to change the whole buffer won't be used terribly
-    ;; often, so no need for a key binding.
-    ;; (define-key map "\C-cd"    'pascal-downcase-keywords)
-    ;; (define-key map "\C-cu"    'pascal-upcase-keywords)
-    ;; (define-key map "\C-cc"    'pascal-capitalize-keywords)
-    map)
-  "Keymap used in Pascal mode.")
+(defvar-keymap pascal-mode-map
+  :doc "Keymap used in Pascal mode."
+  ";"       #'electric-pascal-semi-or-dot
+  "."       #'electric-pascal-semi-or-dot
+  ":"       #'electric-pascal-colon
+  "="       #'electric-pascal-equal
+  "#"       #'electric-pascal-hash
+  ;; These are user preferences, so not to set by default.
+  ;; "RET"     #'electric-pascal-terminate-line
+  ;; "TAB"     #'electric-pascal-tab
+  "C-M-i"   #'completion-at-point
+  "M-?"     #'completion-help-at-point
+  "DEL"     #'backward-delete-char-untabify
+  "C-M-h"   #'pascal-mark-defun
+  "C-c C-b" #'pascal-insert-block
+  "M-*"     #'pascal-star-comment
+  "C-c C-c" #'pascal-comment-area
+  "C-c C-u" #'pascal-uncomment-area
+  "C-M-a"   #'pascal-beg-of-defun
+  "C-M-e"   #'pascal-end-of-defun
+  "C-c C-d" #'pascal-goto-defun
+  "C-c C-o" #'pascal-outline-mode
+  ;; A command to change the whole buffer won't be used terribly
+  ;; often, so no need for a key binding.
+  ;; "C-c d"   #'pascal-downcase-keywords
+  ;; "C-c u"   #'pascal-upcase-keywords
+  ;; "C-c c"   #'pascal-capitalize-keywords
+  )
 
 (defvar pascal-imenu-generic-expression
   '((nil "^[ \t]*\\(function\\|procedure\\)[ \t\n]+\\([a-zA-Z0-9_.:]+\\)" 2))
@@ -1368,15 +1367,13 @@ The default is a name found in the buffer around point."
 ;;;
 ;;; Pascal-outline-mode
 ;;;
-(defvar pascal-outline-map
-  (let ((map (make-sparse-keymap)))
-    (define-key map "\M-\C-a"  'pascal-outline-prev-defun)
-    (define-key map "\M-\C-e"  'pascal-outline-next-defun)
-    (define-key map "\C-c\C-d" 'pascal-outline-goto-defun)
-    (define-key map "\C-c\C-s" 'pascal-show-all)
-    (define-key map "\C-c\C-h" 'pascal-hide-other-defuns)
-    map)
-  "Keymap used in Pascal Outline mode.")
+(defvar-keymap pascal-outline-map
+  :doc "Keymap used in Pascal Outline mode."
+  "C-M-a"   #'pascal-outline-prev-defun
+  "C-M-e"   #'pascal-outline-next-defun
+  "C-c C-d" #'pascal-outline-goto-defun
+  "C-c C-s" #'pascal-show-all
+  "C-c C-h" #'pascal-hide-other-defuns)
 
 (define-minor-mode pascal-outline-mode
   "Outline-line minor mode for Pascal mode.