-\\{command-history-map}"
- (interactive)
- (Command-history-setup)
- (setq major-mode 'command-history-mode)
- (setq mode-name "Command History")
- (use-local-map command-history-map)
- (run-mode-hooks 'command-history-mode-hook))
-
-(defun Command-history-setup ()
- (kill-all-local-variables)
- (use-local-map command-history-map)