From 3fb064a76334c1b04c0e1f6584b8b29f5110d9c5 Mon Sep 17 00:00:00 2001 From: Karthik Chikmagalur Date: Mon, 15 Jan 2024 16:12:15 -0800 Subject: [PATCH] gptel: Better handling of read-only bufs * gptel.el (gptel--insert-response): Turn on visual-line-mode in the response buffer that is created when the gptel buffer is read-only. * gptel-curl.el (gptel-curl--stream-insert-response): Ditto. --- gptel-curl.el | 1 + gptel.el | 1 + 2 files changed, 2 insertions(+) diff --git a/gptel-curl.el b/gptel-curl.el index e290787..4661176 100644 --- a/gptel-curl.el +++ b/gptel-curl.el @@ -284,6 +284,7 @@ See `gptel--url-get-response' for details." (message "Buffer is read only, displaying reply in buffer \"*ChatGPT response*\"") (display-buffer (with-current-buffer (get-buffer-create "*ChatGPT response*") + (visual-line-mode 1) (goto-char (point-max)) (move-marker (plist-get proc-info :position) (point) (current-buffer)) (current-buffer)) diff --git a/gptel.el b/gptel.el index d34cdc6..75f24a6 100644 --- a/gptel.el +++ b/gptel.el @@ -889,6 +889,7 @@ See `gptel--url-get-response' for details." (message "Buffer is read only, displaying reply in buffer \"*ChatGPT response*\"") (display-buffer (with-current-buffer (get-buffer-create "*ChatGPT response*") + (visual-line-mode 1) (goto-char (point-max)) (move-marker start-marker (point) (current-buffer)) (current-buffer))