[nongnu] elpa/gptel 0787592609 12/20: gptel-context: Fix context deletion overlay bug

[ELPA Syncer]

branch: elpa/gptel
commit 078759260935ae5502bbc8f7f8a4a010547ee10a
Author: daedsidog <41439659+daedsidog@users.noreply.github.com>
Commit: karthink <karthikchikmagalur@gmail.com>

    gptel-context: Fix context deletion overlay bug
    
    gptel-context.el (gptel-context-flag-deletion):  Select overlays
    when deleting context chunks correctly.
---
 gptel-context.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/gptel-context.el b/gptel-context.el
index 76d68de311..54f6c2edd4 100644
--- a/gptel-context.el
+++ b/gptel-context.el
@@ -456,12 +456,13 @@ If non-nil, indicates backward movement.")
         (mapc #'delete-overlay marked-ovs)
       (save-excursion
         (dolist (ov overlays)
-          (goto-char (overlay-start ov))
-          (setq deletion-ov (make-overlay (overlay-start ov) (overlay-end ov)))
-          (overlay-put deletion-ov 'gptel-context (overlay-get ov 
'gptel-context))
-          (overlay-put deletion-ov 'priority -80)
-          (overlay-put deletion-ov 'face 'gptel-context-deletion-face)
-          (overlay-put deletion-ov 'gptel-context-deletion-mark t))))
+          (when (overlay-get ov 'gptel-context)
+            (goto-char (overlay-start ov))
+            (setq deletion-ov (make-overlay (overlay-start ov) (overlay-end 
ov)))
+            (overlay-put deletion-ov 'gptel-context (overlay-get ov 
'gptel-context))
+            (overlay-put deletion-ov 'priority -80)
+            (overlay-put deletion-ov 'face 'gptel-context-deletion-face)
+            (overlay-put deletion-ov 'gptel-context-deletion-mark t)))))
     (if (use-region-p)
         (deactivate-mark)
       (if gptel-context--buffer-reverse