diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-04-29 05:20:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-04-29 05:20:31 +0000 |
| commit | d38e7d5f4ab044bbb7974ab63f3aaba188fb9a17 (patch) | |
| tree | 5ea08115fd0f2aa1f6339a83fd22792097e6f68f /lisp/ielm.el | |
| parent | 7820b28f318a34ba4bf9e6adb316a6ba31f14e77 (diff) | |
| download | emacs-d38e7d5f4ab044bbb7974ab63f3aaba188fb9a17.tar.gz | |
(*, **, ***): Add defvars.
Diffstat (limited to 'lisp/ielm.el')
| -rw-r--r-- | lisp/ielm.el | 11 |
1 files changed, 10 insertions, 1 deletions
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)) |