[Emacs-diffs] Changes to emacs/lisp/chistory.el

[Miles Bader]

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 ----