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