Mercurial > emacs
changeset 48915:36f7a48a9735
(command-history-map): Move definition up.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 21 Dec 2002 20:18:51 +0000 |
| parents | bb52f186fa1e |
| children | af752f3c5c09 |
| files | lisp/chistory.el |
| diffstat | 1 files changed, 10 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/chistory.el Sat Dec 21 20:18:03 2002 +0000 +++ b/lisp/chistory.el Sat Dec 21 20:18:51 2002 +0000 @@ -125,6 +125,16 @@ (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. @@ -149,16 +159,6 @@ :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. The buffer for that command is the previous current buffer."