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

Fix prompt navigation when annotation is disabled

Browse source 
* eat.el (eat--pre-prompt): Always set
'eat--shell-prompt-begin'.
* eat.el (eat--post-prompt): Always put special prompt end
marking text property.
This commit is contained in:
Akib Azmain Turja 2022-12-06 22:57:47 +06:00
parent 2c6afa4dc0
commit b42687f146
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
eat.el
View file

@ -4241,8 +4241,7 @@ If HOST isn't the host Emacs is running on, don't do anything."
(defun eat--pre-prompt (_) (defun eat--pre-prompt (_)
"Save the beginning position of shell prompt." "Save the beginning position of shell prompt."
(when eat-enable-shell-prompt-annotation (setq eat--shell-prompt-begin (point-marker)))
(setq eat--shell-prompt-begin (point-marker))))
(defun eat--post-prompt (_) (defun eat--post-prompt (_)
"Put a mark in the marginal area on current line." "Put a mark in the marginal area on current line."
@ -4279,11 +4278,13 @@ If HOST isn't the host Emacs is running on, don't do anything."
(list 'eat--before-string before-str (list 'eat--before-string before-str
'eat--shell-prompt-mark-id identifier 'eat--shell-prompt-mark-id identifier
'eat--shell-prompt-mark-overlay ov)) 'eat--shell-prompt-mark-overlay ov))
(push ov eat--shell-prompt-mark-overlays)) (push ov eat--shell-prompt-mark-overlays)))
;; Put a text property to allow previous or next prompts. (setq eat--shell-prompt-begin nil))))
(put-text-property (1- (point)) (point) (when eat--shell-prompt-begin
'eat--shell-prompt-end t)) (when (< eat--shell-prompt-begin (point))
(setq eat--shell-prompt-begin nil))))) ;; Put a text property to allow previous or next prompts.
(put-text-property (1- (point)) (point)
'eat--shell-prompt-end t))))
(defun eat--update-shell-prompt-mark-overlays (buffer) (defun eat--update-shell-prompt-mark-overlays (buffer)
"Update all overlays used to add mark before shell prompt. "Update all overlays used to add mark before shell prompt.