Luj/eat-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
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
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
eat.el
View file

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