       ;; Trim down the entries
       (setf (cdr cut-off-point) nil))
 
-    (values entries truncate-p)))
-
-(defun* lusty--display-entries (entries truncated-p)
+    entries))
+
+(defun* lusty--display-entries (entries)
 
   (when (endp entries)
     (lusty--print-no-entries)

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

(defun lusty-truncate-entries (entries)
  (let* ((lusty-buffer (get-buffer-create lusty-buffer-name))
         (max-possibly-displayable-entries

         (matches
          (ecase lusty--active-mode
            (:file-explorer (lusty-file-explorer-matches minibuffer-text))
            (:buffer-explorer (lusty-buffer-explorer-matches minibuffer-text))))
         (truncated-matches (lusty-truncate-entries matches)))

    ;; Update the matches window.
    (let ((lusty-buffer (get-buffer-create lusty-buffer-name)))
      (with-current-buffer lusty-buffer
        (setq buffer-read-only t)
        (let ((buffer-read-only nil))
          (erase-buffer)
          (lusty--display-entries truncated-matches)
          (setq lusty--previous-printed-matches truncated-matches)
          (goto-char (point-min))))

      ;; If only our matches window is open,
      (when (one-window-p t)
        ;; Restore original window configuration before fitting the
        ;; window so the minibuffer won't grow and look silly.
        (set-window-configuration lusty--initial-window-config))
      (fit-window-to-buffer (display-buffer lusty-buffer))
      (set-buffer-modified-p nil))))

(defun lusty-buffer-explorer-matches (text)
  (let* ((buffers (lusty-filter-buffers (buffer-list))))
