gptel-rewrite: Make text replacement preserve overlays

karthink · Dec 20, 2024 · 14f77bf · 14f77bf
1 parent 0ce1628
commit 14f77bf
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/gptel-rewrite.el b/gptel-rewrite.el
@@ -258,8 +258,8 @@ BUF is the buffer to modify, defaults to the overlay buffer."
                do (overlay-put ov 'before-string nil)
                (with-current-buffer buf
                  (goto-char ov-beg)
-                 (delete-region ov-beg ov-end)
-                 (insert response))))
+                 (insert response)
+                 (delete-region (point) (+ (point) (- ov-end ov-beg))))))
     (message "Replaced region(s) with LLM output in buffer: %s."
              (buffer-name ov-buf))))