Take into account hscroll, switch to cl-lib.