Mercurial > emacs

changeset 21834:8ba41a7b6464

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(*, **, ***): Add defvars.
author Richard M. Stallman <rms@gnu.org>
date Wed, 29 Apr 1998 05:20:31 +0000
parents a9d4f3acae4e
children f1df0fd84e42
files lisp/ielm.el
diffstat 1 files changed, 10 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ielm.el	Wed Apr 29 05:06:46 1998 +0000
+++ b/lisp/ielm.el	Wed Apr 29 05:20:31 1998 +0000
@@ -94,6 +94,15 @@
   :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 @@
 		(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))