From 0d6264f2683c0e867bebe18005434e3e1a67a4e5 Mon Sep 17 00:00:00 2001 From: Karthik Chikmagalur Date: Tue, 5 Mar 2024 22:51:14 -0800 Subject: [PATCH] gptel-curl: Adjust response beginning position gptel-curl.el (gptel-curl--stream-cleanup, gptel-curl--stream-insert-response): Don't consider `gptel-response-prefix-string` part of the response for the purpose of running `gptel-post-response-functions`. --- gptel-curl.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/gptel-curl.el b/gptel-curl.el index c696f0f..bb7fc39 100644 --- a/gptel-curl.el +++ b/gptel-curl.el @@ -206,7 +206,7 @@ PROCESS and _STATUS are process parameters." (progn ;; Finish handling response (with-current-buffer (marker-buffer start-marker) - (setq response-beg (+ start-marker 2) + (setq response-beg (marker-position start-marker) response-end (marker-position tracking-marker)) (pulse-momentary-highlight-region response-beg tracking-marker) (when gptel-mode (save-excursion (goto-char tracking-marker) @@ -262,7 +262,8 @@ See `gptel--url-get-response' for details." (insert "\n\n") (when gptel-mode ;; Put prefix before AI response. - (insert (gptel-response-prefix-string)))) + (insert (gptel-response-prefix-string))) + (move-marker start-marker (point))) (setq tracking-marker (set-marker (make-marker) (point))) (set-marker-insertion-type tracking-marker t) (plist-put info :tracking-marker tracking-marker))