# HG changeset patch # User Richard M. Stallman # Date 893827231 0 # Node ID 8ba41a7b64649d19ac60c69e1d586127be3f5756 # Parent a9d4f3acae4ede809584a158cc0f90a2e96c2c65 (*, **, ***): Add defvars. diff -r a9d4f3acae4e -r 8ba41a7b6464 lisp/ielm.el --- 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))