Mercurial > emacs
comparison lisp/ielm.el @ 21795:444b6677cc4e
(ielm-eval-input): More of previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 28 Apr 1998 02:10:42 +0000 |
| parents | 6e9ef4991da8 |
| children | 8ba41a7b6464 |
comparison
equal
deleted
inserted
replaced
| 21794:1a370f7cc0c1 | 21795:444b6677cc4e |
|---|---|
| 346 (progn | 346 (progn |
| 347 (if ielm-noisy (ding)) | 347 (if ielm-noisy (ding)) |
| 348 (setq ielm-output (concat ielm-output "*** " ielm-error-type " *** ")) | 348 (setq ielm-output (concat ielm-output "*** " ielm-error-type " *** ")) |
| 349 (setq ielm-output (concat ielm-output ielm-result))) | 349 (setq ielm-output (concat ielm-output ielm-result))) |
| 350 ;; There was no error, so shift the ::: values | 350 ;; There was no error, so shift the ::: values |
| 351 (setq ::: ::) | 351 (setq *** **) |
| 352 (setq :: :) | 352 (setq ** *) |
| 353 (setq : ielm-result)) | 353 (setq * ielm-result)) |
| 354 (setq ielm-output (concat ielm-output "\n")))) | 354 (setq ielm-output (concat ielm-output "\n")))) |
| 355 (setq ielm-output (concat ielm-output ielm-prompt)) | 355 (setq ielm-output (concat ielm-output ielm-prompt)) |
| 356 (comint-output-filter (ielm-process) ielm-output))) | 356 (comint-output-filter (ielm-process) ielm-output))) |
| 357 | 357 |
| 358 ;;; Process and marker utilities | 358 ;;; Process and marker utilities |