"Fix" hl-line bleeding into buffer bg (part 2)

At least highlight up to n-1's character in 2nd-to-last line, as
promised.
This commit is contained in:
Henrik Lissner 2020-06-01 19:36:27 -04:00
parent 86625d3d42
commit c2ea4c90d9
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -58,12 +58,11 @@
(let ((bol (line-beginning-position))
(eol (line-end-position))
(eob (point-max)))
(cond ((or (= bol eob)
(= (1+ eol) eob))
(cond ((= bol eob)
nil)
((= eol eob)
(cons bol eol))
((eobp)
((= (1+ eol) eob)
(cons bol (1- eob)))
((or (= eol eob) (eobp))
(cons bol eol))
((cons bol (line-beginning-position 2)))))
(cons (line-beginning-position)