(inferior-emacs-lisp-mode): Treat the header as output,

if comint-use-prompt-regexp-instead-of-fields is nil.

diff --git a/lisp/ielm.el b/lisp/ielm.el
index 87ca67f6c4d51a678d2a698b6a57f6d2253b3132..d2c015b18bd92b85e9c1664f75bc4bc6c36a4414 100644 (file)
--- a/lisp/ielm.el
+++ b/lisp/ielm.el
@@ -510,6 +510,10 @@ Customised bindings may be defined in `ielm-map', which currently contains:
     ;; Add a silly header
     (insert ielm-header)
     (ielm-set-pm (point-max))
+    (unless comint-use-prompt-regexp-instead-of-fields
+      (add-text-properties
+       1 (point-max)
+       '(rear-nonsticky t field output inhibit-line-move-field-capture t)))
     (comint-output-filter (ielm-process) ielm-prompt)
     (set-marker comint-last-input-start (ielm-pm))
     (set-process-filter (get-buffer-process (current-buffer)) 'comint-output-filter))