[nongnu] elpa/gptel 4593d0b475 1/5: gptel-rewrite: Handle read-only buffers correctly

[ELPA Syncer]

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

    gptel-rewrite: Handle read-only buffers correctly
    
    * gptel-rewrite.el (gptel--rewrite-callback): Handle read-only
    buffers correctly.  Since we don't modify the buffers there should
    be no issue using gptel-rewrite in read-only buffers (like eww).
---
 gptel-rewrite.el | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/gptel-rewrite.el b/gptel-rewrite.el
index f5e77f21f9..90facba4b8 100644
--- a/gptel-rewrite.el
+++ b/gptel-rewrite.el
@@ -370,7 +370,8 @@ INFO is the async communication channel for the rewrite 
request."
     (cond
      ((stringp response)                ;partial or fully successful result
       (with-current-buffer proc-buf     ;auxiliary buffer, insert text here 
and copy to overlay
-        (let ((inhibit-modification-hooks nil))
+        (let ((inhibit-modification-hooks nil)
+              (inhibit-read-only t))
           (when (= (buffer-size) 0)
             (buffer-disable-undo)
             (insert-buffer-substring buf (overlay-start ov) (overlay-end ov))
@@ -394,11 +395,12 @@ INFO is the async communication channel for the rewrite 
request."
      (t (let ((proc-buf (cdr-safe (plist-get info :context))) ;finished 
successfully
               (mkb (propertize "<mouse-1>" 'face 'help-key-binding)))
           (with-current-buffer proc-buf
-            (delete-region (point) (point-max))
-            (when (and (plist-get info :newline)
-                       (not (eq (char-before (point-max)) ?\n)))
-              (insert "\n"))
-            (font-lock-ensure)
+            (let ((inhibit-read-only t))
+              (delete-region (point) (point-max))
+              (when (and (plist-get info :newline)
+                         (not (eq (char-before (point-max)) ?\n)))
+                (insert "\n"))
+              (font-lock-ensure))
             (overlay-put ov 'display (buffer-string))
             (kill-buffer proc-buf))
           (when (buffer-live-p buf)