[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/chistory.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/chistory.el |
Date: |
Fri, 04 Apr 2003 01:21:48 -0500 |
Index: emacs/lisp/chistory.el
diff -c emacs/lisp/chistory.el:1.14 emacs/lisp/chistory.el:1.15
*** emacs/lisp/chistory.el:1.14 Mon Dec 9 18:46:11 2002
--- emacs/lisp/chistory.el Sat Dec 21 15:18:51 2002
***************
*** 125,130 ****
--- 125,140 ----
(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))
+
(defun command-history-mode ()
"Major mode for listing and repeating recent commands.
***************
*** 148,163 ****
"If non-nil, its value is called on entry to `command-history-mode'."
:type 'hook
:group 'chistory)
-
- (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))
(defun command-history-repeat ()
"Repeat the command shown on the current line.
--- 158,163 ----
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/chistory.el,
Miles Bader <=