From 61c0df5e19e44f50f96002c8c7a75c8a2d3112bb Mon Sep 17 00:00:00 2001 From: Karthik Chikmagalur Date: Sat, 28 Oct 2023 19:34:54 -0700 Subject: [PATCH] gptel, gptel-curl: Make the gptel text-property non-sticky gptel.el (gptel--insert-response): gptel-curl.el (gptel-curl--stream-insert-response): Make the `gptel' text-property rear-nonsticky so typing after it is recognized as part of the user prompt. --- gptel-curl.el | 4 +++- gptel.el | 4 +++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/gptel-curl.el b/gptel-curl.el index e0f9e0c..d6fc08f 100644 --- a/gptel-curl.el +++ b/gptel-curl.el @@ -199,7 +199,9 @@ See `gptel--url-get-response' for details." (when transformer (setq response (funcall transformer response))) - (put-text-property 0 (length response) 'gptel 'response response) + (add-text-properties + 0 (length response) '(gptel response rear-nonsticky t) + response) (goto-char tracking-marker) (insert response)))))) diff --git a/gptel.el b/gptel.el index fca068c..a7870ee 100644 --- a/gptel.el +++ b/gptel.el @@ -624,7 +624,9 @@ See `gptel--url-get-response' for details." (setq response (gptel--transform-response response gptel-buffer)) (save-excursion - (put-text-property 0 (length response) 'gptel 'response response) + (add-text-properties + 0 (length response) '(gptel response rear-nonsticky t) + response) (with-current-buffer (marker-buffer start-marker) (goto-char start-marker) (run-hooks 'gptel-pre-response-hook)