summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Mendler <mail@daniel-mendler.de>2022-11-18 11:45:32 +0100
committerDaniel Mendler <mail@daniel-mendler.de>2022-11-18 11:46:03 +0100
commitcfc97d4885a48470f0b82d68e01dd130db4c34e3 (patch)
treedfe14a7ec6817331f2859e0c6ce8d8963c281a21
parent7aa006e0005fd54cbca140eb45c5f3272ae281ab (diff)
corfu-infoframe: Reduce print length (Fix #249)
-rw-r--r--extensions/corfu-infoframe.el6
1 files changed, 5 insertions, 1 deletions
diff --git a/extensions/corfu-infoframe.el b/extensions/corfu-infoframe.el
index 1c30753..da897d9 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