contrib/lisp/org-velocity: Fix failure for big window

* contrib/lisp/org-velocity.el (org-velocity-incremental-read): Reversed
  the estimation against window-height.

contrib/lisp/org-velocity.el

@@ -671,7 +671,7 @@ Stop searching once there are more matches than can be displayed."
                      ;; Truncate the index to the size of the buffer to be
                      ;; displayed.
                      (with-selected-window match-window
-                       (if (> (window-height) (length org-velocity-index))
+                       (if (< (window-height) (length org-velocity-index))
                            ;; (subseq org-velocity-index 0 (window-height))
                            (let ((hints (copy-sequence org-velocity-index)))
                              (setcdr (nthcdr (window-height) hints) nil)