refactor: replace point-at-{b,e}ol

These were deprecated in 29.1. We'll switch to pol-bol and pos-eol
if/when we drop 28.x support.
This commit is contained in:
Henrik Lissner
2025-01-05 00:53:32 -05:00
parent 7de9723334
commit 3f1a471127
7 changed files with 12 additions and 11 deletions

View File

@ -49,7 +49,7 @@ fails. If before is nil, it will return the first line where predicate fails, ot
the last line where predicate holds."
(save-excursion
(goto-char start)
(goto-char (point-at-bol))
(goto-char (line-beginning-position))
(let ((bnd (if (> 0 direction)
(point-min)
(point-max)))
@ -57,9 +57,9 @@ the last line where predicate holds."
(when skip (forward-line direction))
(cl-loop while (and (/= (point) bnd) (funcall predicate base-indent))
do (progn
(when before (setq pt (point-at-bol)))
(when before (setq pt (line-beginning-position)))
(forward-line direction)
(unless before (setq pt (point-at-bol)))))
(unless before (setq pt (line-beginning-position)))))
pt)))
(defun +fold-hideshow-indent-range (&optional point)