From 42a7cb94c88e9a04668a89012795401d81a842aa Mon Sep 17 00:00:00 2001 From: Henrik Ahlgren Date: Mon, 3 Feb 2025 12:31:41 +0200 Subject: [PATCH] gptel: Use json-mode to inspect query if available * gptel.el (gptel--inspect-query): Use json-mode when inspecting the query (dry run), if json-mode is available. --- gptel.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/gptel.el b/gptel.el index da0178dd..ec312ad8 100644 --- a/gptel.el +++ b/gptel.el @@ -2281,12 +2281,14 @@ JSON query instead of the Lisp structure gptel uses." (buffer-disable-undo) (erase-buffer) (if (eq format 'json) - (progn (fundamental-mode) - (insert (gptel--json-encode request-data)) - (json-pretty-print-buffer)) - (lisp-data-mode) - (prin1 request-data) - (pp-buffer)) + (progn (if (fboundp 'json-mode) + (json-mode) + (fundamental-mode)) + (insert (gptel--json-encode request-data)) + (json-pretty-print-buffer)) + (lisp-data-mode) + (prin1 request-data) + (pp-buffer)) (setq-local gptel--fsm-last request-fsm) (goto-char (point-min)) (view-mode 1)