From ba3ca9bc9d30cbd0939880fec41db6d3a22b0558 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 21 Dec 2002 20:18:51 +0000 Subject: [PATCH] (command-history-map): Move definition up. --- lisp/chistory.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) 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." -- 2.39.2