diff options
author | Roland McGrath <[email protected]> | 1993-02-05 17:41:42 +0000 |
---|---|---|
committer | Roland McGrath <[email protected]> | 1993-02-05 17:41:42 +0000 |
commit | d81362b0c381dbea6d49c75e9e085e1a8502f206 (patch) | |
tree | 15e1607a6ca3eb1f009b076af70232a22d9ad818 | |
parent | 34238338f9032b0d7130f341cb59b47e9b426565 (diff) |
Restore nuked information in minibuffer history bindings.
Use intelligent method of disabling completion-oriented bindings.
-rw-r--r-- | lisp/simple.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index a3409d0f0d..efe38907cb 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -442,7 +442,7 @@ contains expressions rather than strings.") ;; 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 - (cdr command) + (progn (error "EMACS BUG!") (cdr command)) (car command)) command)))) '((minibuffer-local-map . nil) @@ -450,10 +450,10 @@ contains expressions rather than strings.") (minibuffer-local-completion-map . t) (minibuffer-local-must-match-map . t) (read-expression-map . nil)))) - '(("\en" . (next-history-element . next-history-element)) - ([next] . (next-history-element . next-history-element)) - ("\ep" . (previous-history-element . previous-history-element)) - ([prior] . (previous-history-element . previous-history-element)) + '(("\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))) |