# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 893640519 0
# Node ID 6e9ef4991da8c3035b9413297ddf80c88ba307f7
# Parent  5dc3fe7cd300356484524549b8dedf46be851a4e
(ielm-eval-input): Use variables *, **, *** not :, ::, :::.
(inferior-emacs-lisp-mode): Corresponding changes.

diff -r 5dc3fe7cd300 -r 6e9ef4991da8 lisp/ielm.el
--- a/lisp/ielm.el	Mon Apr 27 01:22:08 1998 +0000
+++ b/lisp/ielm.el	Mon Apr 27 01:28:39 1998 +0000
@@ -303,15 +303,15 @@
 	      (if (ielm-is-whitespace (substring ielm-string ielm-pos))
 		  ;; need this awful let convolution to work around
 		  ;; an Emacs bug involving local vbls and let binding
-		  (let ((:save :)
-			(::save ::)
-			(:::save :::))
+		  (let ((*save *)
+			(**save **)
+			(***save ***))
 		    (save-excursion
 		      (set-buffer ielm-working-buffer)
 		      (condition-case err
-			  (let ((: :save)
-				(:: ::save)
-				(::: :::save)
+			  (let ((* *save)
+				(** **save)
+				(*** ***save)
 				(ielm-obuf (current-buffer)))
 			    (setq ielm-result (eval ielm-form))
 			    (setq ielm-wbuf (current-buffer))
@@ -388,7 +388,7 @@
 * \\[comint-dynamic-complete] completes Lisp symbols (or filenames, within strings), 
   or indents the line if there is nothing to complete.
 
-During evaluations, the values of the variables `:', `::', and `:::'
+During evaluations, the values of the variables `*', `**', and `***'
 are the results of the previous, second previous and third previous
 evaluations respectively.
 
@@ -438,12 +438,12 @@
   (setq fill-paragraph-function 'lisp-fill-paragraph)
 
   ;; Value holders
-  (setq : nil)
-  (make-local-variable ':)
-  (setq :: nil)
-  (make-local-variable '::)
-  (setq ::: nil)
-  (make-local-variable ':::)
+  (setq * nil)
+  (make-local-variable '*)
+  (setq ** nil)
+  (make-local-variable '**)
+  (setq *** nil)
+  (make-local-variable '***)
 
   ;; font-lock support
   (make-local-variable 'font-lock-defaults)