# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 893729442 0
# Node ID 444b6677cc4e29ce609ce4b6e13b2d2b31555e2b
# Parent  1a370f7cc0c17480ad61268ab7e2de91b2dcda45
(ielm-eval-input): More of previous change.

diff -r 1a370f7cc0c1 -r 444b6677cc4e lisp/ielm.el
--- a/lisp/ielm.el	Mon Apr 27 23:48:59 1998 +0000
+++ b/lisp/ielm.el	Tue Apr 28 02:10:42 1998 +0000
@@ -348,9 +348,9 @@
 		(setq ielm-output (concat ielm-output "*** " ielm-error-type " ***  "))
 		(setq ielm-output (concat ielm-output ielm-result)))
 	    ;; There was no error, so shift the ::: values
-	    (setq ::: ::)
-	    (setq :: :)
-	    (setq : ielm-result))
+	    (setq *** **)
+	    (setq ** *)
+	    (setq * ielm-result))
 	  (setq ielm-output (concat ielm-output "\n"))))
     (setq ielm-output (concat ielm-output ielm-prompt))
     (comint-output-filter (ielm-process) ielm-output)))