martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(*, **, ***): Add defvars.

Browse Source
This commit is contained in:
Richard M. Stallman
1998-04-29 05:20:31 +00:00
parent 7820b28f31
commit d38e7d5f4a
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/ielm.el
View File

@@ -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))