;;; chistory.el --- list command history
;; Copyright (C) 1985 Free Software Foundation, Inc.
-;; Principal author K. Shane Hartman
+
+;; Author: K. Shane Hartman
+;; Maintainer: FSF
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING. If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with GNU Emacs; see the file COPYING. If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+;;; Commentary:
;; This really has nothing to do with list-command-history per se, but
-;; its a nice alternative to C-x ESC (repeat-complex-command) and
+;; its a nice alternative to C-x ESC ESC (repeat-complex-command) and
;; functions as a lister if given no pattern. It's not important
;; enough to warrant a file of its own.
+;;; Code:
+
+(defgroup chistory nil
+ "List command history."
+ :group 'keyboard)
+
;;;###autoload
(defun repeat-matching-complex-command (&optional pattern)
"Edit and re-evaluate complex command with name matching PATTERN.
editing and the result is evaluated."
(interactive "sRedo Command (regexp): ")
(if pattern
- (if (equal (setq pattern
- (substring pattern
- (or (string-match "[ \t]*[^ \t]" pattern)
- (length pattern))))
- "")
- (setq pattern nil)))
+ (if (string-match "[^ \t]" pattern)
+ (setq pattern (substring pattern (match-beginning 0)))
+ (setq pattern nil)))
(let ((history command-history)
(temp)
(what))
(while (and history (not what))
(setq temp (car history))
(if (and (or (not pattern) (string-match pattern (symbol-name (car temp))))
- (y-or-n-p (format "Redo %s? " (setq temp (prin1-to-string temp)))))
+ (y-or-n-p (format "Redo %S? " temp)))
(setq what (car history))
(setq history (cdr history))))
(if (not what)
(setq command-history (cdr command-history)))
(edit-and-eval-command "Redo: " what))))
-(defvar default-command-history-filter-garbage
+(defcustom default-command-history-filter-garbage
'(command-history-mode
list-command-history
electric-command-history)
- "*A list of symbols. If `default-list-command-history-filter' is
-given a list whose car is an element of this list, then it will return
-non-nil (indicating the list should be discarded from the history).
-Initially, all commands related to the command history are discarded.")
+ "*A list of symbols to be ignored by `default-command-history-filter'.
+If that function is given a list whose car is an element of this list,
+then it will return non-nil (indicating the list should be discarded from
+the history).
+Initially, all commands related to the command history are discarded."
+ :type '(repeat symbol)
+ :group 'chistory)
(defvar list-command-history-filter 'default-command-history-filter
- "If non-nil, should be the name of a function of one argument.
+ "Predicate to test which commands should be excluded from the history listing.
+If non-nil, should be the name of a function of one argument.
It is passed each element of the command history when
\\[list-command-history] is called. If the filter returns non-nil for
some element, that element is excluded from the history listing. The
(or (not (consp frob))
(memq (car frob) default-command-history-filter-garbage)))
-(defvar list-command-history-max 32
- "*If non-nil, should be a positive number which specifies the maximum
-length of the Command History listing produced by `list-command-history'.")
+(defcustom list-command-history-max 32
+ "*If non-nil, maximum length of the listing produced by `list-command-history'."
+ :type '(choice integer (const nil))
+ :group 'chistory)
;;;###autoload
(defun list-command-history ()
(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*")
- (use-local-map (or keymap command-history-map))
+(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 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))
-(defvar command-history-hook nil
- "If non-nil, its value is called on entry to `command-history-mode'.")
+(defcustom command-history-hook nil
+ "If non-nil, its value is called on entry to `command-history-mode'."
+ :type 'hook
+ :group 'chistory)
(defvar command-history-map nil)
-(if command-history-map
- nil
- (setq command-history-map
- (nconc (make-sparse-keymap) shared-lisp-mode-map))
+(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)
(beginning-of-line)
(read (current-buffer)))
(set-buffer
- (cdr (buffer-list)))))))
+ (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-map>\\[command-history-repeat] to repeat the command on the current line.
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*")