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

Remove internal text properties when killing text

Browse source 
* eat.el (eat-term-filter-string): Remove 'read-only',
'rear-nonsticky', 'front-sticky' and 'field' text properties.
* eat.el (eat--filter-buffer-substring): Remove
'eat--t-char-width', 'eat--t-sixel-bitmap-size' and
'eat--t-sixel-bitmap' text properties.
This commit is contained in:
Akib Azmain Turja 2023-10-09 00:11:29 +06:00
parent 38ba9a99b0
commit e2fefa6edd
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 15 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
eat.el
View file

@ -4802,6 +4802,10 @@ return \"eat-color\", otherwise return \"eat-mono\"."
(when invisible-p
(delete-region (point) next-change))
(goto-char next-change)))
(remove-text-properties (point-min) (point-max)
'( eat--t-char-width nil
eat--t-sixel-bitmap-size nil
eat--t-sixel-bitmap nil))
(buffer-string)))
@ -6486,14 +6490,17 @@ symbol `buffer', in which case the point of current buffer is set."
When DELETE is given and non-nil, delete the text between BEGIN and
END if it's safe to do so."
(let ((str (buffer-substring begin end)))
(remove-text-properties
0 (length str)
'( eat--before-string nil
eat--shell-prompt-mark-id nil
eat--shell-prompt-mark-overlay nil
eat--shell-prompt-begin nil
eat--shell-prompt-end nil)
str)
(remove-text-properties 0 (length str)
'( read-only nil
rear-nonsticky nil
front-sticky nil
field nil
eat--before-string nil
eat--shell-prompt-mark-id nil
eat--shell-prompt-mark-overlay nil
eat--shell-prompt-begin nil
eat--shell-prompt-end nil)
str)
(setq str (eat-term-filter-string str))
(when (and delete
(or (not eat-terminal)