* eat.el (eat-prompt-newline): Make ring if needed

This commit is contained in:
Akib Azmain Turja 2023-09-14 21:23:02 +06:00
parent 7bff1c4974
commit dd2a176820
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B

3
eat.el
View file

@ -5798,6 +5798,9 @@ MODE should one of:
(if (not (<= (eat-term-end eat--terminal) (point)))
(call-interactively #'newline)
(unless (= (eat-term-end eat--terminal) (point-max))
(unless eat--prompt-input-ring
(setq eat--prompt-input-ring
(make-ring eat-prompt-input-ring-size)))
(ring-insert eat--prompt-input-ring
(buffer-substring-no-properties
(eat-term-end eat--terminal) (point-max))))