# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1002914661 0
# Node ID 12413db4a01f3fecfc01ef8eb77156ecf9a8c530
# Parent  2a5c5dd111142d798fc6f39d22898ba7930305f0
(minibuffer-local-map): Also bind next, C-n, C-s, prior,
C-p and C-r.  Remove redundant bindings from inheriting maps.

diff -r 2a5c5dd11114 -r 12413db4a01f lisp/bindings.el
--- a/lisp/bindings.el	Fri Oct 12 19:20:47 2001 +0000
+++ b/lisp/bindings.el	Fri Oct 12 19:24:21 2001 +0000
@@ -594,15 +594,15 @@
 (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))