diff options
| author | Stefan Monnier | 2001-10-12 19:24:21 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2001-10-12 19:24:21 +0000 |
| commit | a77dfeb06d10fc917cc1cb9430a65c90995e957e (patch) | |
| tree | 2d78523f23031ef4221a53733f7b03cd3bad33c5 | |
| parent | f892ac1d28d6ea6981a4a45a35f46b4464d80442 (diff) | |
| download | emacs-a77dfeb06d10fc917cc1cb9430a65c90995e957e.tar.gz emacs-a77dfeb06d10fc917cc1cb9430a65c90995e957e.zip | |
(minibuffer-local-map): Also bind next, C-n, C-s, prior,
C-p and C-r. Remove redundant bindings from inheriting maps.
| -rw-r--r-- | lisp/bindings.el | 18 |
1 files 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." | |||
| 594 | (define-key esc-map "!" 'shell-command) | 594 | (define-key esc-map "!" 'shell-command) |
| 595 | (define-key esc-map "|" 'shell-command-on-region) | 595 | (define-key esc-map "|" 'shell-command-on-region) |
| 596 | 596 | ||
| 597 | ;; This is an experiment--make up and down arrows do history. | 597 | (let ((map minibuffer-local-map)) |
| 598 | (define-key minibuffer-local-map [up] 'previous-history-element) | 598 | (define-key map "\en" 'next-history-element) |
| 599 | (define-key minibuffer-local-map [down] 'next-history-element) | 599 | (define-key map [next] 'next-history-element) |
| 600 | (define-key minibuffer-local-ns-map [up] 'previous-history-element) | 600 | (define-key map [down] 'next-history-element) |
| 601 | (define-key minibuffer-local-ns-map [down] 'next-history-element) | 601 | (define-key map "\ep" 'previous-history-element) |
| 602 | (define-key minibuffer-local-completion-map [up] 'previous-history-element) | 602 | (define-key map [prior] 'previous-history-element) |
| 603 | (define-key minibuffer-local-completion-map [down] 'next-history-element) | 603 | (define-key map [up] 'previous-history-element) |
| 604 | (define-key minibuffer-local-must-match-map [up] 'previous-history-element) | 604 | (define-key map "\es" 'next-matching-history-element) |
| 605 | (define-key minibuffer-local-must-match-map [down] 'next-history-element) | 605 | (define-key map "\er" 'previous-matching-history-element)) |
| 606 | 606 | ||
| 607 | (define-key global-map "\C-u" 'universal-argument) | 607 | (define-key global-map "\C-u" 'universal-argument) |
| 608 | (let ((i ?0)) | 608 | (let ((i ?0)) |