From: Richard M. Stallman Date: Sat, 21 Dec 2002 20:18:51 +0000 (+0000) Subject: (command-history-map): Move definition up. X-Git-Tag: ttn-vms-21-2-B4~11952 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ba3ca9bc9d30cbd0939880fec41db6d3a22b0558;p=emacs.git (command-history-map): Move definition up. --- diff --git a/lisp/chistory.el b/lisp/chistory.el index aae1d728ee7..8b9c6394046 100644 --- a/lisp/chistory.el +++ b/lisp/chistory.el @@ -125,6 +125,16 @@ The buffer is left in Command History mode." (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 @@ Keybindings: :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."