diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-04-27 01:28:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-04-27 01:28:39 +0000 |
| commit | fed9da131cfdb6ff93ceac042e639150eae8d3ee (patch) | |
| tree | de5960cacf5ffd19ea6c141635bb40dfca070fcd /lisp/ielm.el | |
| parent | c6a635346e792dd12dce4f2b1386bfdce14773ac (diff) | |
| download | emacs-fed9da131cfdb6ff93ceac042e639150eae8d3ee.tar.gz | |
(ielm-eval-input): Use variables *, **, *** not :, ::, :::.
(inferior-emacs-lisp-mode): Corresponding changes.
Diffstat (limited to 'lisp/ielm.el')
| -rw-r--r-- | lisp/ielm.el | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/lisp/ielm.el b/lisp/ielm.el index d891ec79453..9983c01a0f5 100644 --- a/lisp/ielm.el +++ b/lisp/ielm.el @@ -303,15 +303,15 @@ simply inserts a newline." (if (ielm-is-whitespace (substring ielm-string ielm-pos)) ;; need this awful let convolution to work around ;; an Emacs bug involving local vbls and let binding - (let ((:save :) - (::save ::) - (:::save :::)) + (let ((*save *) + (**save **) + (***save ***)) (save-excursion (set-buffer ielm-working-buffer) (condition-case err - (let ((: :save) - (:: ::save) - (::: :::save) + (let ((* *save) + (** **save) + (*** ***save) (ielm-obuf (current-buffer))) (setq ielm-result (eval ielm-form)) (setq ielm-wbuf (current-buffer)) @@ -388,7 +388,7 @@ Uses the interface provided by `comint-mode' (which see). * \\[comint-dynamic-complete] completes Lisp symbols (or filenames, within strings), or indents the line if there is nothing to complete. -During evaluations, the values of the variables `:', `::', and `:::' +During evaluations, the values of the variables `*', `**', and `***' are the results of the previous, second previous and third previous evaluations respectively. @@ -438,12 +438,12 @@ Customised bindings may be defined in `ielm-map', which currently contains: (setq fill-paragraph-function 'lisp-fill-paragraph) ;; Value holders - (setq : nil) - (make-local-variable ':) - (setq :: nil) - (make-local-variable '::) - (setq ::: nil) - (make-local-variable ':::) + (setq * nil) + (make-local-variable '*) + (setq ** nil) + (make-local-variable '**) + (setq *** nil) + (make-local-variable '***) ;; font-lock support (make-local-variable 'font-lock-defaults) |