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

Make motion commands work properly

Browse source 
* eat.el (eat--line-mode): Set 'front-sticky' and
'rear-nonsticky' text properties to 't' when enabling mode, and
revert them when disabling.
* eat.el (eat--process-output-queue): Don't add 'front-sticky'
and 'rear-nonsticky' text properties if not in line mode.
* eat.el (eat--sentinel): Don't remove 'front-sticky' and
'rear-nonsticky' text properties, they shouldn't be in the
buffer.
This commit is contained in:
Akib Azmain Turja 2023-10-09 13:35:48 +06:00
parent db63d46739
commit 186cf61945
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 17 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
eat.el
View file

@ -5909,8 +5909,19 @@ MODE should one of:
:interactive nil
:keymap eat-line-mode-map
(if eat--line-mode
(add-hook 'pre-command-hook #'eat--line-move-to-input nil t)
(remove-hook 'pre-command-hook #'eat--line-move-to-input t)))
(let ((inhibit-read-only t))
(add-hook 'pre-command-hook #'eat--line-move-to-input nil t)
(add-text-properties (eat-term-beginning eat-terminal)
(eat-term-end eat-terminal)
'(front-sticky t rear-nonsticky t)))
(remove-hook 'pre-command-hook #'eat--line-move-to-input t)
(let ((inhibit-read-only t))
(when (/= (eat-term-beginning eat-terminal)
(eat-term-end eat-terminal))
(remove-text-properties
(eat-term-beginning eat-terminal)
(eat-term-end eat-terminal)
'(front-sticky nil rear-nonsticky nil))))))
(defun eat-line-mode ()
"Switch to line mode."
@ -6766,8 +6777,9 @@ OS's."
(add-text-properties
(eat-term-beginning eat-terminal)
(eat-term-end eat-terminal)
'( read-only t rear-nonsticky t front-sticky t
field eat-terminal))))
`( read-only t field eat-terminal
,@(when eat--line-mode
'(front-sticky t rear-nonsticky t))))))
(funcall eat--synchronize-scroll-function sync-windows))
(run-hooks 'eat-update-hook))))
@ -6832,8 +6844,7 @@ to it."
(remove-text-properties
(eat-term-beginning eat-terminal)
(eat-term-end eat-terminal)
'( read-only nil rear-nonsticky nil front-sticky nil
field nil))
'(read-only nil field nil))
(eat-term-delete eat-terminal)
(setq eat-terminal nil)
(eat--set-cursor nil :default)