branch: elpa/gptel
commit 078759260935ae5502bbc8f7f8a4a010547ee10a
Author: daedsidog <[email protected]>
Commit: karthink <[email protected]>
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
