(ielm-eval-input): More of previous change.

71d54f88 · Richard M. Stallman · 1823194b · 71d54f88
Commit 71d54f88 authored Apr 28, 1998 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 3 deletions

lisp/ielm.el lisp/ielm.el +3 -3

No files found.
--- a/lisp/ielm.el
+++ b/lisp/ielm.el
@@ -348,9 +348,9 @@ simply inserts a newline."
 		(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)))