aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ielm.el11
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))