branch: externals/corfu
commit cfc97d4885a48470f0b82d68e01dd130db4c34e3
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@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
