 (defvar lusty--ignored-extensions nil)
 (defvar lusty--highlighted-index 0)
 (defvar lusty--previous-printed-matches '())
-
-(defun lusty-highlight-next ()
-  ; STEVE document
-  (interactive)
-  (incf lusty--highlighted-index)
-  (lusty-update-matches-buffer))
-(defun lusty-highlight-previous ()
-  ; STEVE document
-  (interactive)
-  (decf lusty--highlighted-index)
-  (when (minusp lusty--highlighted-index)
-    (setq lusty--highlighted-index 0))
-  (lusty-update-matches-buffer))
 
 (defun lusty-sort-by-fuzzy-score (strings abbrev)
   ;; TODO: case-sensitive when abbrev contains capital letter

          (let ((buffer-read-only nil))
            (erase-buffer)
            (lusty-display-entries truncated-matches truncated-p)
            (setq lusty--previous-printed-matches truncated-matches)
            (goto-char (point-min))))

        ;; If only our matches window is open,

         (ecase lusty--active-mode
           (:file-explorer (lusty-file-explorer-matches))
           (:buffer-explorer (lusty-buffer-explorer-matches)))))
    (setq lusty--previous-printed-matches matches)
    ;;
    ;; Update the completion window.
    ;; STEVE should not intermingle truncation and buffer update
