-(defvar command-history-map nil)
-(unless command-history-map
- (setq command-history-map (make-sparse-keymap))
- (set-keymap-parent command-history-map lisp-mode-shared-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))
+(defvar command-history-map
+ (let ((map (make-sparse-keymap)))
+ (set-keymap-parent map lisp-mode-shared-map)
+ (suppress-keymap 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'.")