;;; chistory.el --- list command history
-;; Copyright (C) 1985 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 2001-2016 Free Software Foundation, Inc.
;; Author: K. Shane Hartman
-;; Maintainer: FSF
+;; Maintainer: emacs-devel@gnu.org
+;; Keywords: convenience
;; This file is part of GNU Emacs.
-;; GNU Emacs is free software; you can redistribute it and/or modify
+;; 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 2, or (at your option)
-;; any later version.
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; 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. If not, see <http://www.gnu.org/licenses/>.
;;; 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 ()
(buffer-read-only nil)
(count (or list-command-history-max -1)))
(while (and (/= count 0) history)
- (if (and (boundp 'list-command-history-filter)
- list-command-history-filter
+ (if (and (bound-and-true-p list-command-history-filter)
(funcall list-command-history-filter (car history)))
nil
(setq count (1- count))
(prin1 (car history))
(terpri))
(setq history (cdr history))))
- (save-excursion
- (set-buffer "*Command History*")
+ (with-current-buffer "*Command History*"
(goto-char (point-min))
(if (eobp)
(error "No command history")
- (Command-history-setup)))))
-
-(defun Command-history-setup (&optional majormode modename keymap)
- (set-buffer "*Command History*")
- (use-local-map (or keymap command-history-map))
+ (command-history-mode)))))
+
+(define-obsolete-variable-alias 'command-history-map
+ 'command-history-mode-map "24.1")
+(defvar command-history-mode-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'.")
+
+(define-derived-mode command-history-mode fundamental-mode "Command History"
+ "Major mode for listing and repeating recent commands.
+
+Keybindings:
+\\{command-history-mode-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")))
-
-(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)
(defun command-history-repeat ()
"Repeat the command shown on the current line.
(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*")