From: Stefan Kangas <stefankangas@gmail.com>
Date: Fri, 14 Mar 2025 22:11:15 +0000 (+0100)
Subject: Use defvar-keymap for command-history-mode-map
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d87bf1c440939c99d25c97f3d51fa9ed068d8740;p=emacs.git

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

* lisp/chistory.el (command-history-mode-map): Use defvar-keymap.

(cherry picked from commit 6b295347a9f7491ae4c16d942b3b12a54fc2373a)
---

diff --git a/lisp/chistory.el b/lisp/chistory.el
index 110edbeceee..7b2c678418b 100644
--- a/lisp/chistory.el
+++ b/lisp/chistory.el
@@ -117,16 +117,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.