[nongnu] elpa/gptel c75af01daf 4/5: gptel-rewrite: Handle aborting requests

[ELPA Syncer]

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

    gptel-rewrite: Handle aborting requests
    
    * gptel-rewrite.el (gptel--rewrite-callback): Clean up correctly
    when aborting a rewrite request.
---
 gptel-rewrite.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/gptel-rewrite.el b/gptel-rewrite.el
index df82c28f44..b2babb939d 100644
--- a/gptel-rewrite.el
+++ b/gptel-rewrite.el
@@ -396,12 +396,14 @@ INFO is the async communication channel for the rewrite 
request."
           (cl-callf concat (overlay-get ov 'gptel-rewrite) response)
           (overlay-put ov 'display (buffer-string))))
       (unless (plist-get info :stream) (gptel--rewrite-callback t info)))
-     ((null response)                   ;finished with error
-      (message (concat "LLM response error: %s. Rewrite/refactor in buffer %s 
canceled.")
-               (plist-get info :status) (plist-get info :buffer))
+     ((eq response 'abort)              ;request aborted
       (when-let* ((proc-buf (cdr-safe (plist-get info :context))))
         (kill-buffer proc-buf))
       (delete-overlay ov))
+     ((null response)                   ;finished with error
+      (message (concat "LLM response error: %s. Rewrite/refactor in buffer %s 
canceled.")
+               (plist-get info :status) (plist-get info :buffer))
+      (gptel--rewrite-callback 'abort info))
      (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