From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 29 Apr 1998 05:20:31 +0000 (+0000)
Subject: (*, **, ***): Add defvars.
X-Git-Tag: emacs-20.3~1243
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d38e7d5f4ab044bbb7974ab63f3aaba188fb9a17;p=emacs.git

(*, **, ***): Add defvars.
---

diff --git a/lisp/ielm.el b/lisp/ielm.el
index 7c2dc4d6409..2f2a9861e6c 100644
--- a/lisp/ielm.el
+++ b/lisp/ielm.el
@@ -94,6 +94,15 @@ such as `edebug-defun' to work with such inputs."
   :type 'hook
   :group 'ielm)
 
+(defvar * nil
+  "Most recent value evaluated in IELM.")
+
+(defvar ** nil
+  "Second-most-recent value evaluated in IELM.")
+
+(defvar *** nil
+  "Third-most-recent value evaluated in IELM.")
+  
 ;;; System variables
 
 (defvar ielm-working-buffer nil
@@ -347,7 +356,7 @@ simply inserts a newline."
 		(if ielm-noisy (ding))
 		(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
+	    ;; There was no error, so shift the *** values
 	    (setq *** **)
 	    (setq ** *)
 	    (setq * ielm-result))