                      (substring row 0
                                 (- (length row)
                                    (length lusty-column-separator)))
-                            "\n")))))
+                     "\n")))
+
+    ;; Report whether we had to truncate the results
+    (> max-rows max-printable-rows)))
 
 ;; Get a starting upperbound on the number of columns.
 (defun lusty-column-count-upperbound (strings)

          (when (<= column-count 1)
            (setq columns (list propertized)
                  widths (list 0)))
          (lusty--print-columns columns widths)))

  (when truncated-p
    (lusty--print-truncated)))

(defun lusty--print-no-entries ()
  (insert lusty-no-entries-string)

  (loop for item in lst
        maximizing (length item)))

;; For performance, trim the entries if we can prove we can't fit them all.
(defun lusty-truncate-entries (entries)
  (let* ((lusty-buffer (get-buffer-create lusty-buffer-name))
         (max-possibly-displayable-entries
