[elpa] externals/corfu cfc97d4885 7/7: corfu-infoframe: Reduce print length (Fix #249)

[ELPA Syncer]

branch: externals/corfu
commit cfc97d4885a48470f0b82d68e01dd130db4c34e3
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    corfu-infoframe: Reduce print length (Fix #249)
---
 extensions/corfu-infoframe.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/extensions/corfu-infoframe.el b/extensions/corfu-infoframe.el
index 1c3075329e..da897d952f 100644
--- a/extensions/corfu-infoframe.el
+++ b/extensions/corfu-infoframe.el
@@ -157,7 +157,11 @@ See `frame-edges' for details.")
   (when-let* ((fun (plist-get corfu--extra :company-doc-buffer))
               (res (save-excursion
                      (let ((inhibit-message t)
-                           (message-log-max nil))
+                           (message-log-max nil)
+                           ;; Reduce print length for elisp backend (#249)
+                           (print-level 3)
+                           (print-length (* corfu-infoframe-max-width
+                                            corfu-infoframe-max-height)))
                        (funcall fun candidate)))))
     (with-current-buffer (or (car-safe res) res)
       (setq res (replace-regexp-in-string