- (setq buffer-read-only t)
- (use-local-map (or keymap command-history-map))
- (setq major-mode (or majormode 'command-history-mode))
- (setq mode-name (or modename "Command History")))
-
-(defvar command-history-hook nil
- "If non-nil, its value is called on entry to `command-history-mode'.")
-
-(defvar command-history-map nil)
-(if command-history-map
- nil
- (setq command-history-map
- (nconc (make-sparse-keymap) shared-lisp-mode-map))
- (suppress-keymap command-history-map)
- (define-key command-history-map "x" 'command-history-repeat)
- (define-key command-history-map "\n" 'next-line)
- (define-key command-history-map "\r" 'next-line)
- (define-key command-history-map "\177" 'previous-line))
+ (setq buffer-read-only t))
+
+(defcustom command-history-hook nil
+ "If non-nil, its value is called on entry to `command-history-mode'."
+ :type 'hook
+ :group 'chistory)