[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/gptel d7c9848dd6 1/2: gptel-rewrite: Make overlay front-ad
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/gptel d7c9848dd6 1/2: gptel-rewrite: Make overlay front-advance |
Date: |
Mon, 2 Dec 2024 22:00:01 -0500 (EST) |
branch: elpa/gptel
commit d7c9848dd6bb033e350835065dd10a2167dcde4a
Author: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
Commit: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
gptel-rewrite: Make overlay front-advance
* gptel-rewrite.el (gptel--rewrite-callback): Make the rewrite
overlay front-advance, so you can insert text before it.
* README.org: Fix typo.
---
README.org | 2 +-
gptel-rewrite.el | 4 ++--
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/README.org b/README.org
index 32813e5b4c..66a961efe2 100644
--- a/README.org
+++ b/README.org
@@ -987,7 +987,7 @@ And then browse through or remove context from the context
buffer:
*** Rewrite, refactor or fill in a region
-In any buffer: with a region selected, you can modify text, rewrite prose or
refactor code with `gptel-rewrite`. Example with prose:
+In any buffer: with a region selected, you can modify text, rewrite prose or
refactor code with =gptel-rewrite=. Example with prose:
#+html: <p align="center">
https://github.com/user-attachments/assets/e3b436b3-9bde-4c1f-b2ce-3f7df1984933
diff --git a/gptel-rewrite.el b/gptel-rewrite.el
index b2babb939d..cf17b656fa 100644
--- a/gptel-rewrite.el
+++ b/gptel-rewrite.el
@@ -370,7 +370,7 @@ Show the rewrite result in an overlay over the original
text, and
set up dispatch actions.
RESPONSE is the response received. It may also be t (to indicate
-success) or the symbol `error' (to indicate failure.)
+success) nil (to indicate failure), or the symbol `abort'.
INFO is the async communication channel for the rewrite request."
(when-let* ((ov-and-buf (plist-get info :context))
@@ -601,7 +601,7 @@ generated from functions."
:system gptel--rewrite-directive
:stream gptel-stream
:context
- (let ((ov (make-overlay (region-beginning) (region-end))))
+ (let ((ov (make-overlay (region-beginning) (region-end) nil t)))
(overlay-put ov 'category 'gptel)
(overlay-put ov 'evaporate t)
(cons ov (generate-new-buffer "*gptel-rewrite*")))