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

Prefer defvar-keymap in bat-mode.el

Browse source 
* lisp/progmodes/bat-mode.el (bat-mode-map): Prefer defvar-keymap.
(bat-menu): Move to top level.
This commit is contained in:
Stefan Kangas 2025-01-20 18:32:33 +01:00
parent 40d5ff01e5
commit 275df7420c
1 changed files with 9 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/progmodes/bat-mode.el
View file

@ -101,7 +101,15 @@
(,(concat "\\_<" (regexp-opt UNIX) "\\_>")
. font-lock-warning-face)))))
(defvar bat-menu
(defvar-keymap bat-mode-map
"C-c C-/" #'bat-cmd-help ;FIXME: Why not C-c C-? ?
"C-c C-a" #'bat-run-args
"C-c C-c" #'bat-run
"C-c C-t" #'bat-template
"C-c C-v" #'bat-run)
(easy-menu-define bat-menu bat-mode-map
"Menu used for `bat-mode'."
'("Bat"
["Run" bat-run :help "Run script"]
["Run with Args" bat-run-args :help "Run script with args"]
@ -112,16 +120,6 @@
"--"
["Help (Command)" bat-cmd-help :help "Show help page for DOS command"]))
(defvar bat-mode-map
(let ((map (make-sparse-keymap)))
(easy-menu-define nil map nil bat-menu)
(define-key map [?\C-c ?\C-/] 'bat-cmd-help) ;FIXME: Why not C-c C-? ?
(define-key map [?\C-c ?\C-a] 'bat-run-args)
(define-key map [?\C-c ?\C-c] 'bat-run)
(define-key map [?\C-c ?\C-t] 'bat-template)
(define-key map [?\C-c ?\C-v] 'bat-run)
map))
(defvar bat-mode-syntax-table
(let ((table (make-syntax-table)))
(modify-syntax-entry ?\n ">" table)