[overlays] Fix overlay slowness when huge result is displayed

Author: alexander-yakushev

CHANGELOG.md

@@ -16,6 +16,7 @@
 ### Bugs fixed
 
 - [#3763](https://github.com/clojure-emacs/cider/issues/3763): Fix `cider-docview-render` completion popup error when symbol being completed does not have a docstring.
+- [#3774](https://github.com/clojure-emacs/cider/issues/3774): Fix overlay hangup when evaluating huge values.
 
 ## 1.16.1 (2024-12-03)
 

cider-overlays.el

@@ -232,6 +232,7 @@ overlay."
                ;; Specify `default' face, otherwise unformatted text will
                ;; inherit the face of the following text.
                (display-string (format (propertize format 'face 'default) value))
+               (very-long-value (> (length value) 10000))
                (o nil))
           ;; Remove any overlay at the position we're creating a new one, if it
           ;; exists.
@@ -245,13 +246,17 @@ overlay."
           ;; If the display spans multiple lines or is very long, display it at
           ;; the beginning of the next line.
           (when (or (string-match "\n." display-string)
+                    ;; string-width can be very slow with huge results, so check
+                    ;; with a cheaper predicate first.
+                    very-long-value
                     (> (string-width display-string)
                        (- (window-width) (current-column))))
             (setq display-string (concat " \n" display-string)))
           ;; Put the cursor property only once we're done manipulating the
           ;; string, since we want it to be at the first char.
           (put-text-property 0 1 'cursor 0 display-string)
-          (when (> (string-width display-string) (* 3 (window-width)))
+          (when (or very-long-value
+                    (> (string-width display-string) (* 3 (window-width))))
             (setq display-string
                   (concat (substring display-string 0 (* 3 (window-width)))
                           (substitute-command-keys
@@ -285,7 +290,7 @@ overlay."
             (when (and (<= (window-start win) (point) (window-end win))
                        ;; Right edge is visible. This is a little conservative
                        ;; if the overlay contains line breaks.
-                       (or (< (+ (current-column) (string-width value))
+                       (or (< (+ (current-column) (string-width display-string))
                               (window-width win))
                            (not truncate-lines)))
               o)))))))