Mercurial > emacs
changeset 39842:12413db4a01f
(minibuffer-local-map): Also bind next, C-n, C-s, prior,
C-p and C-r. Remove redundant bindings from inheriting maps.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 12 Oct 2001 19:24:21 +0000 |
| parents | 2a5c5dd11114 |
| children | a292df89e830 |
| files | lisp/bindings.el |
| diffstat | 1 files changed, 9 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- 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))