From a77dfeb06d10fc917cc1cb9430a65c90995e957e Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 12 Oct 2001 19:24:21 +0000 Subject: [PATCH] (minibuffer-local-map): Also bind next, C-n, C-s, prior, C-p and C-r. Remove redundant bindings from inheriting maps. --- lisp/bindings.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/lisp/bindings.el b/lisp/bindings.el index 04606badb24..d0f06120fea 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -594,15 +594,15 @@ language you are using." (define-key esc-map "!" 'shell-command) (define-key esc-map "|" 'shell-command-on-region) -;; This is an experiment--make up and down arrows do history. -(define-key minibuffer-local-map [up] 'previous-history-element) -(define-key minibuffer-local-map [down] 'next-history-element) -(define-key minibuffer-local-ns-map [up] 'previous-history-element) -(define-key minibuffer-local-ns-map [down] 'next-history-element) -(define-key minibuffer-local-completion-map [up] 'previous-history-element) -(define-key minibuffer-local-completion-map [down] 'next-history-element) -(define-key minibuffer-local-must-match-map [up] 'previous-history-element) -(define-key minibuffer-local-must-match-map [down] 'next-history-element) +(let ((map minibuffer-local-map)) + (define-key map "\en" 'next-history-element) + (define-key map [next] 'next-history-element) + (define-key map [down] 'next-history-element) + (define-key map "\ep" 'previous-history-element) + (define-key map [prior] 'previous-history-element) + (define-key map [up] 'previous-history-element) + (define-key map "\es" 'next-matching-history-element) + (define-key map "\er" 'previous-matching-history-element)) (define-key global-map "\C-u" 'universal-argument) (let ((i ?0)) -- 2.39.2