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/progmodes/prolog.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/progmodes/prolog.el') diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el index 6437bbd4c1c..f8edc2b1f7b 100644 --- a/lisp/progmodes/prolog.el +++ b/lisp/progmodes/prolog.el @@ -2282,12 +2282,12 @@ between them)." (backward-paragraph) (unless (bobp) (forward-line)) (if (string-match "^/\\*[^a-zA-Z]*$" (thing-at-point 'line)) - (narrow-to-region (point-at-eol) (point-max)))) + (narrow-to-region (line-end-position) (point-max)))) (save-excursion (forward-paragraph) (forward-line -1) (if (string-match "^[^a-zA-Z]*\\*/$" (thing-at-point 'line)) - (narrow-to-region (point-min) (point-at-bol)))) + (narrow-to-region (point-min) (line-beginning-position)))) (let ((fill-prefix (prolog-guess-fill-prefix))) (fill-paragraph nil)))) ))) -- cgit v1.2.3