From 40891308b8e73488d12d385b49d5901397f2087f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 31 Dec 1999 23:41:32 +0000 Subject: [PATCH] (command-history): Renamed from command-history-mode. (Command-history-setup): Don't switch buffers. Take no args, and do not set major-mode, mode-name or the local map. (command-history-mode): New function, does some of those things Command-history-setup used to do. (list-command-history): Call command-history-mode, not Command-history-setup. --- lisp/chistory.el | 28 +++++++++++++++++----------- 1 file changed, 17 insertions(+), 11 deletions(-) diff --git a/lisp/chistory.el b/lisp/chistory.el index 29bc7b9b8d7..6c5eaba8b72 100644 --- a/lisp/chistory.el +++ b/lisp/chistory.el @@ -122,17 +122,22 @@ The buffer is left in Command History mode." (goto-char (point-min)) (if (eobp) (error "No command history") - (Command-history-setup))))) + (command-history-mode))))) -(defun Command-history-setup (&optional majormode modename keymap) - (set-buffer "*Command History*") +(defun command-history-mode () + "Major mode for listing and repeating recent commands." + (Command-history-setup) + (setq major-mode 'command-history-mode) + (setq mode-name "Command History") + (use-local-map command-history-map) + (run-hooks 'command-history-mode-hook)) + +(defun Command-history-setup () + (kill-all-local-variables) (use-local-map (or keymap command-history-map)) (lisp-mode-variables nil) (set-syntax-table emacs-lisp-mode-syntax-table) - (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"))) + (setq buffer-read-only t)) (defcustom command-history-hook nil "If non-nil, its value is called on entry to `command-history-mode'." @@ -163,8 +168,8 @@ The buffer for that command is the previous current buffer." (car (cdr (buffer-list)))))))) ;;;###autoload -(defun command-history-mode () - "Major mode for examining commands from `command-history'. +(defun command-history () + "Examine commands from `command-history' in a buffer. The number of commands listed is controlled by `list-command-history-max'. The command history is filtered by `list-command-history-filter' if non-nil. Use \\\\[command-history-repeat] to repeat the command on the current line. @@ -172,8 +177,9 @@ Use \\\\[command-history-repeat] to repeat the command on t Otherwise much like Emacs-Lisp Mode except that there is no self-insertion and digits provide prefix arguments. Tab does not indent. \\{command-history-map} -Calls the value of `command-history-hook' if that is non-nil. -The Command History listing is recomputed each time this mode is invoked." + +This command always recompiles the Command History listing +and runs the normal hook `command-history-hook'." (interactive) (list-command-history) (pop-to-buffer "*Command History*") -- 2.39.5