[nongnu] elpa/gptel 61c0df5e19 119/273: gptel, gptel-curl: Make the gptel text-property non-sticky

[ELPA Syncer]

branch: elpa/gptel
commit 61c0df5e19e44f50f96002c8c7a75c8a2d3112bb
Author: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
Commit: Karthik Chikmagalur <karthikchikmagalur@gmail.com>

    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 e0f9e0c827..d6fc08fc73 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 fca068c322..a7870ee54e 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)