# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 728934102 0
# Node ID 34da3c151be442150025e1787d94b1dfbeb4be65
# Parent  0b79cade13e341207eecd08e481eddfd35941723
Restore nuked information in minibuffer history bindings.
Use intelligent method of disabling completion-oriented bindings.

diff -r 0b79cade13e3 -r 34da3c151be4 lisp/simple.el
--- a/lisp/simple.el	Fri Feb 05 02:06:38 1993 +0000
+++ b/lisp/simple.el	Fri Feb 05 17:41:42 1993 +0000
@@ -442,7 +442,7 @@
 	      ;; 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 @@
       (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)))