From 01f9ba177ce62b167d8cb5910a0aeb98cb647f55 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 12 Oct 2001 19:25:04 +0000 Subject: [PATCH] (minibuffer-local*-map): Remove redundant bindings. --- lisp/simple.el | 30 ------------------------------ 1 file changed, 30 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index ea0d3ce27de..b80a2bdf273 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -682,36 +682,6 @@ to handle recursive uses of the minibuffer.") (setq minibuffer-history-position nil) (defvar minibuffer-history-search-history nil) -(mapcar - (lambda (key-and-command) - (mapcar - (lambda (keymap-and-completionp) - ;; Arg is (KEYMAP-SYMBOL . COMPLETION-MAP-P). - ;; If the cdr of KEY-AND-COMMAND (the command) is a cons, - ;; its car is used if COMPLETION-MAP-P is nil, its cdr if it is t. - (define-key (symbol-value (car keymap-and-completionp)) - (car key-and-command) - (let ((command (cdr key-and-command))) - (if (consp command) - ;; (and ... nil) => ... turns back on the completion-oriented - ;; history commands which rms turned off since they seem to - ;; do things he doesn't like. - (if (and (cdr keymap-and-completionp) nil) ;XXX turned off - (progn (error "EMACS BUG!") (cdr command)) - (car command)) - command)))) - '((minibuffer-local-map . nil) - (minibuffer-local-ns-map . nil) - (minibuffer-local-completion-map . t) - (minibuffer-local-must-match-map . t) - (read-expression-map . nil)))) - '(("\en" . (next-history-element . next-complete-history-element)) - ([next] . (next-history-element . next-complete-history-element)) - ("\ep" . (previous-history-element . previous-complete-history-element)) - ([prior] . (previous-history-element . previous-complete-history-element)) - ("\er" . previous-matching-history-element) - ("\es" . next-matching-history-element))) - (defvar minibuffer-text-before-history nil "Text that was in this minibuffer before any history commands. This is nil if there have not yet been any history commands -- 2.11.4.GIT