From a70a730f48a8aed26450989c785f120df36774ea Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Thu, 8 Sep 2022 19:33:29 +0300 Subject: [PATCH] PORT: don't use the 2nd arg to looking-at, added only in Emacs 29 --- sweep.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/sweep.el b/sweep.el index 44baa15..096edd5 100644 --- a/sweep.el +++ b/sweep.el @@ -329,16 +329,16 @@ FLAG and VALUE are specified as strings and read as Prolog terms." (save-match-data (when point (goto-char point)) (unless (bobp) (backward-char)) - (while (looking-at "[[:alnum:]_]" t) + (while (looking-at-p "[[:alnum:]_]") (backward-char)) - (when (looking-at ":[[:lower:]]") + (when (looking-at-p ":[[:lower:]]") (unless (bobp) (backward-char)) - (while (looking-at "[[:alnum:]_]" t) + (while (looking-at-p "[[:alnum:]_]") (backward-char))) (forward-char) - (when (looking-at "[[:lower:]]" t) + (when (looking-at-p "[[:lower:]]") (let ((start (point))) - (while (looking-at "[[:alnum:]:_]" t) + (while (looking-at-p "[[:alnum:]:_]") (forward-char)) (cons start (point)))))))) -- 2.39.5