From 2aca862187b9bee3f00848797e3abc0ebf4e4988 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <git@henrik.io>
Date: Wed, 22 Jun 2022 19:10:04 +0200
Subject: [PATCH] fix(cli): prevent oversized error data spam

A backtrace with a sufficiently large object (especially with circular
references) could unhelpfully flood the screen.
---
 core/core-cli-lib.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/core/core-cli-lib.el b/core/core-cli-lib.el
index b389e8346..eda5acbad 100644
--- a/core/core-cli-lib.el
+++ b/core/core-cli-lib.el
@@ -935,7 +935,11 @@ considered as well."
                      (error-message-string data)
                    (get (car data) 'error-message)))
          (unless generic?
-           (print! "%s %S" (bold "Details:") (cdr data)))
+           (print! "%s %s" (bold "Details:")
+                   (let* ((print-level 3)
+                          (print-circle t)
+                          (print-escape-newlines t))
+                     (prin1-to-string (cdr data)))))
          (when backtrace
            (print! (bold "Backtrace:"))
            (print-group!