From b7e867b841f47dcff3aeaef9b5608a237386ce70 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Tue, 23 Aug 2022 04:54:57 +0200 Subject: Make point-at-eol and point-at-bol obsolete * lisp/subr.el (point-at-eol, point-at-bol): Make XEmacs compat aliases obsolete in favor of `pos-bol'/'line-beginning-position' or 'pos-eol'/'line-end-position'. Update callers. Ref: https://lists.gnu.org/r/emacs-devel/2022-08/msg00853.html --- lisp/gnus/gnus-salt.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/gnus/gnus-salt.el') diff --git a/lisp/gnus/gnus-salt.el b/lisp/gnus/gnus-salt.el index 4ef2ebf1dd7..6b7958dcb91 100644 --- a/lisp/gnus/gnus-salt.el +++ b/lisp/gnus/gnus-salt.el @@ -686,7 +686,7 @@ it in the environment specified by BINDINGS." (unless (zerop level) (gnus-tree-indent level) (insert (cadr gnus-tree-parent-child-edges)) - (setq col (- (setq beg (point)) (point-at-bol) 1)) + (setq col (- (setq beg (point)) (line-beginning-position) 1)) ;; Draw "|" lines upwards. (while (progn (forward-line -1) @@ -710,7 +710,7 @@ it in the environment specified by BINDINGS." (defsubst gnus-tree-indent-vertical () (let ((len (- (* (1+ gnus-tree-node-length) gnus-tmp-indent) - (- (point) (point-at-bol))))) + (- (point) (line-beginning-position))))) (when (> len 0) (insert (make-string len ? ))))) -- cgit v1.2.3