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

Use defvar-keymap for command-history-mode-map

Browse source 
* lisp/chistory.el (command-history-mode-map): Use defvar-keymap.
This commit is contained in:
Stefan Kangas 2025-03-14 23:11:15 +01:00
parent c29be6a2ec
commit 6b295347a9
1 changed files with 8 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/chistory.el
View file

@ -119,16 +119,14 @@ The buffer is left in Command History mode."
(error "No command history")
(command-history-mode)))))
(defvar command-history-mode-map
(let ((map (make-sparse-keymap)))
(set-keymap-parent map (make-composed-keymap lisp-mode-shared-map
special-mode-map))
(define-key map "x" #'command-history-repeat)
(define-key map "\n" #'next-line)
(define-key map "\r" #'next-line)
(define-key map "\177" #'previous-line)
map)
"Keymap for `command-history-mode'.")
(defvar-keymap command-history-mode-map
:doc "Keymap for `command-history-mode'."
:parent (make-composed-keymap lisp-mode-shared-map
special-mode-map)
"x" #'command-history-repeat
"C-j" #'next-line
"RET" #'next-line
"DEL" #'previous-line)
(define-derived-mode command-history-mode special-mode "Command History"
"Major mode for listing and repeating recent commands.