Limit the maximum string size to be displayed in echo area

clojure-emacs · May 13, 2024 · 4d9b205 · 4d9b205
1 parent b421bbb
commit 4d9b205
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/cider-overlays.el b/cider-overlays.el
@@ -316,7 +316,11 @@ focused."
                          (cider--make-result-overlay font-value
                            :where point
                            :duration cider-eval-result-duration
-                           :prepend-face (or overlay-face 'cider-result-overlay-face)))))
+                           :prepend-face (or overlay-face 'cider-result-overlay-face))))
+         (max-message-width (* 10 (window-width))))
+    (when (> (string-width font-value) max-message-width)
+      (setq font-value (concat (substring font-value 0 (- max-message-width 3))
+                               "...")))
     (message
      "%s"
      (propertize (format "%s%s" cider-eval-result-prefix font-value)