From 5c584c3511f02f1b1491ade21e4d0212746b2e81 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Thu, 26 Sep 2002 21:56:42 +0000
Subject: [PATCH] (inferior-emacs-lisp-mode): Treat the header as output, if
 comint-use-prompt-regexp-instead-of-fields is nil.

---
 lisp/ielm.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lisp/ielm.el b/lisp/ielm.el
index 87ca67f6c4d..d2c015b18bd 100644
--- 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))
-- 
2.39.2