Mercurial > emacs
comparison lisp/ielm.el @ 47626:9e91beee44a6
(inferior-emacs-lisp-mode): Treat the header as output,
if comint-use-prompt-regexp-instead-of-fields is nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 26 Sep 2002 21:56:42 +0000 |
| parents | 86b3a5572fda |
| children | cdc87bc8e049 |
comparison
equal
deleted
inserted
replaced
| 47625:8a11d295c3f3 | 47626:9e91beee44a6 |
|---|---|
| 508 (set (make-local-variable 'comint-inhibit-carriage-motion) t) | 508 (set (make-local-variable 'comint-inhibit-carriage-motion) t) |
| 509 | 509 |
| 510 ;; Add a silly header | 510 ;; Add a silly header |
| 511 (insert ielm-header) | 511 (insert ielm-header) |
| 512 (ielm-set-pm (point-max)) | 512 (ielm-set-pm (point-max)) |
| 513 (unless comint-use-prompt-regexp-instead-of-fields | |
| 514 (add-text-properties | |
| 515 1 (point-max) | |
| 516 '(rear-nonsticky t field output inhibit-line-move-field-capture t))) | |
| 513 (comint-output-filter (ielm-process) ielm-prompt) | 517 (comint-output-filter (ielm-process) ielm-prompt) |
| 514 (set-marker comint-last-input-start (ielm-pm)) | 518 (set-marker comint-last-input-start (ielm-pm)) |
| 515 (set-process-filter (get-buffer-process (current-buffer)) 'comint-output-filter)) | 519 (set-process-filter (get-buffer-process (current-buffer)) 'comint-output-filter)) |
| 516 | 520 |
| 517 (run-hooks 'ielm-mode-hook)) | 521 (run-hooks 'ielm-mode-hook)) |