diff options
| -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." | |||
| 94 | :type 'hook | 94 | :type 'hook |
| 95 | :group 'ielm) | 95 | :group 'ielm) |
| 96 | 96 | ||
| 97 | (defvar * nil | ||
| 98 | "Most recent value evaluated in IELM.") | ||
| 99 | |||
| 100 | (defvar ** nil | ||
| 101 | "Second-most-recent value evaluated in IELM.") | ||
| 102 | |||
| 103 | (defvar *** nil | ||
| 104 | "Third-most-recent value evaluated in IELM.") | ||
| 105 | |||
| 97 | ;;; System variables | 106 | ;;; System variables |
| 98 | 107 | ||
| 99 | (defvar ielm-working-buffer nil | 108 | (defvar ielm-working-buffer nil |
| @@ -347,7 +356,7 @@ simply inserts a newline." | |||
| 347 | (if ielm-noisy (ding)) | 356 | (if ielm-noisy (ding)) |
| 348 | (setq ielm-output (concat ielm-output "*** " ielm-error-type " *** ")) | 357 | (setq ielm-output (concat ielm-output "*** " ielm-error-type " *** ")) |
| 349 | (setq ielm-output (concat ielm-output ielm-result))) | 358 | (setq ielm-output (concat ielm-output ielm-result))) |
| 350 | ;; There was no error, so shift the ::: values | 359 | ;; There was no error, so shift the *** values |
| 351 | (setq *** **) | 360 | (setq *** **) |
| 352 | (setq ** *) | 361 | (setq ** *) |
| 353 | (setq * ielm-result)) | 362 | (setq * ielm-result)) |