Commit d81362b0 authored by Roland McGrath's avatar Roland McGrath
Browse files

Restore nuked information in minibuffer history bindings.

Use intelligent method of disabling completion-oriented bindings.
parent 34238338
...@@ -442,7 +442,7 @@ contains expressions rather than strings.") ...@@ -442,7 +442,7 @@ contains expressions rather than strings.")
;; history commands which rms turned off since they seem to ;; history commands which rms turned off since they seem to
;; do things he doesn't like. ;; do things he doesn't like.
(if (and (cdr keymap-and-completionp) nil) ;XXX turned off (if (and (cdr keymap-and-completionp) nil) ;XXX turned off
(cdr command) (progn (error "EMACS BUG!") (cdr command))
(car command)) (car command))
command)))) command))))
'((minibuffer-local-map . nil) '((minibuffer-local-map . nil)
...@@ -450,10 +450,10 @@ contains expressions rather than strings.") ...@@ -450,10 +450,10 @@ contains expressions rather than strings.")
(minibuffer-local-completion-map . t) (minibuffer-local-completion-map . t)
(minibuffer-local-must-match-map . t) (minibuffer-local-must-match-map . t)
(read-expression-map . nil)))) (read-expression-map . nil))))
'(("\en" . (next-history-element . next-history-element)) '(("\en" . (next-history-element . next-complete-history-element))
([next] . (next-history-element . next-history-element)) ([next] . (next-history-element . next-complete-history-element))
("\ep" . (previous-history-element . previous-history-element)) ("\ep" . (previous-history-element . previous-complete-history-element))
([prior] . (previous-history-element . previous-history-element)) ([prior] . (previous-history-element . previous-complete-history-element))
("\er" . previous-matching-history-element) ("\er" . previous-matching-history-element)
("\es" . next-matching-history-element))) ("\es" . next-matching-history-element)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment