"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)) (let ((bol (line-beginning-position))
(eol (line-end-position)) (eol (line-end-position))
(eob (point-max))) (eob (point-max)))
(cond ((or (= bol eob) (cond ((= bol eob)
(= (1+ eol) eob))
nil) nil)
((= eol eob) ((= (1+ eol) eob)
(cons bol eol)) (cons bol (1- eob)))
((eobp) ((or (= eol eob) (eobp))
(cons bol eol)) (cons bol eol))
((cons bol (line-beginning-position 2))))) ((cons bol (line-beginning-position 2)))))
(cons (line-beginning-position) (cons (line-beginning-position)