Address (literal) edge cases with hl-line eob fix

This commit is contained in:
Henrik Lissner 2017-12-11 15:23:42 -05:00
parent e109d72121
commit 4560fe7163
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -278,9 +278,14 @@ local value, whether or not it's permanent-local. Therefore, we cycle
(when (boundp 'display-line-numbers)
(defun doom--line-range ()
(cons (line-beginning-position)
(if (save-excursion (forward-line) (eobp))
(line-end-position)
(line-beginning-position 2))))
(cond ((save-excursion
(goto-char (line-end-position))
(and (eobp) (not (bolp))))
(1- (line-end-position)))
((or (eobp) (save-excursion (forward-line) (eobp)))
(line-end-position))
(t
(line-beginning-position 2)))))
(setq hl-line-range-function #'doom--line-range))
(after! evil