# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 754052596 0
# Node ID b8731641d26a624c9633386e1576a8e42cb2fd8c
# Parent  0a4e46e153048eb5f20f4012459f15f093963853
(repeat-complex-command): Undo Oct 2 change.

diff -r 0a4e46e15304 -r b8731641d26a lisp/simple.el
--- a/lisp/simple.el	Tue Nov 23 10:57:16 1993 +0000
+++ b/lisp/simple.el	Tue Nov 23 11:03:16 1993 +0000
@@ -420,18 +420,15 @@
 		 "Redo: " (prin1-to-string elt) read-expression-map t
 		 (cons 'command-history arg)))
 
-;;;  read-from-minibuffer handles the adding of what is read to the history
-;;;  variable.
-;;;
-;;;	  ;; If command was added to command-history as a string,
-;;;	  ;; get rid of that.  We want only evallable expressions there.
-;;;	  (if (stringp (car command-history))
-;;;	      (setq command-history (cdr command-history)))
-;;;
-;;;	  ;; If command to be redone does not match front of history,
-;;;	  ;; add it to the history.
-;;;	  (or (equal newcmd (car command-history))
-;;;	      (setq command-history (cons newcmd command-history)))
+	  ;; If command was added to command-history as a string,
+	  ;; get rid of that.  We want only evallable expressions there.
+	  (if (stringp (car command-history))
+	      (setq command-history (cdr command-history)))
+
+	  ;; If command to be redone does not match front of history,
+	  ;; add it to the history.
+	  (or (equal newcmd (car command-history))
+	      (setq command-history (cons newcmd command-history)))
 	  (eval newcmd))
       (ding))))