From e2fefa6eddbc6bc474fc8a27731f935d85568b58 Mon Sep 17 00:00:00 2001 From: Akib Azmain Turja Date: Mon, 9 Oct 2023 00:11:29 +0600 Subject: [PATCH] Remove internal text properties when killing text * 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. --- eat.el | 23 +++++++++++++++-------- 1 file changed, 15 insertions(+), 8 deletions(-) diff --git a/eat.el b/eat.el index 2390065..2499c99 100644 --- a/eat.el +++ b/eat.el @@ -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)