awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-28 16:51:08 -05:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
Download Patch File Download Diff File Expand all files Collapse all files

6
modules/editor/fold/autoload/hideshow.el
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)

2
modules/email/mu4e/autoload/email.el
View File

@@ -225,7 +225,7 @@ is tomorrow. With two prefixes, select the deadline."
(when (re-search-forward sec nil t)
(let (org-M-RET-may-split-line
(lev (org-outline-level))
(folded-p (invisible-p (point-at-eol)))
(folded-p (invisible-p (line-end-position)))
(from (plist-get msg :from)))
(when (consp (car from)) ; Occurs when using mu4e 1.8+.
(setq from (car from)))

2
modules/lang/cc/autoload.el
View File

@@ -113,7 +113,7 @@ the children of class at point."
(pcase-let ((`(,depth . ,node) (pop tree)))
(cl-destructuring-bind (&key uri range) (plist-get node :location)
(insert (make-string depth ?\ ) (plist-get node :name) "\n")
(make-text-button (+ (point-at-bol 0) depth) (point-at-eol 0)
(make-text-button (+ (line-beginning-position 0) depth) (line-end-position 0)
'action (lambda (_arg)
(interactive)
(find-file (eglot--uri-to-path uri))

2
modules/lang/org/autoload/org-tables.el
View File

@@ -61,7 +61,7 @@ re-align the table if necessary. (Necessary because org-mode has a
(save-match-data
(when (and (org-at-table-p)
(not (org-region-active-p))
(string-match-p "|" (buffer-substring (point-at-bol) (point)))
(string-match-p "|" (buffer-substring (line-beginning-position) (point)))
(looking-at-p ".*?|"))
(let ((pos (point))
(noalign (looking-at-p "[^|\n\r]* |"))

2
modules/term/eshell/autoload/eshell.el
View File

@@ -151,7 +151,7 @@ Once the eshell process is killed, the previous frame layout is restored."
(cond ((modulep! :completion ivy)
(require 'em-hist)
(let* ((ivy-completion-beg (eshell-bol))
(ivy-completion-end (point-at-eol))
(ivy-completion-end (line-end-position))
(input (buffer-substring-no-properties
ivy-completion-beg
ivy-completion-end)))