* eat.el (eat-prompt-newline): Make ring if needed
This commit is contained in:
parent
7bff1c4974
commit
dd2a176820
1 changed files with 3 additions and 0 deletions
3
eat.el
3
eat.el
|
@ -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))))
|
||||
|
|
Loading…
Add table
Reference in a new issue