;;; chistory.el --- list command history
;; Copyright (C) 1985, 2001, 2002, 2003, 2004, 2005,
-;; 2006, 2007, 2008 Free Software Foundation, Inc.
+;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
;; Author: K. Shane Hartman
;; Maintainer: FSF
'(command-history-mode
list-command-history
electric-command-history)
- "*A list of symbols to be ignored by `default-command-history-filter'.
+ "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).
(memq (car frob) default-command-history-filter-garbage)))
(defcustom list-command-history-max 32
- "*If non-nil, maximum length of the listing produced by `list-command-history'."
+ "If non-nil, maximum length of the listing produced by `list-command-history'."
:type '(choice integer (const nil))
:group 'chistory)
(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-mode)))))
-(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'.")
(defun command-history-mode ()
"Major mode for listing and repeating recent commands.