mirror of
https://github.com/doomemacs/doomemacs
synced 2025-08-01 12:17:25 -05:00
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:
@ -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)
|
||||
|
Reference in New Issue
Block a user