From 14dc693ed971053feb9596d4bc1b1de0b0006584 Mon Sep 17 00:00:00 2001
From: Konstantin Kharlamov <Hi-Angel@yandex.ru>
Date: Sun, 18 Feb 2024 20:47:41 +0300
Subject: evil-surround.el: replace looking-at with looking-at-p

We don't use the match-data in the function, so let's call the
non-mutating version of `looking-back`
---
 evil-surround.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/evil-surround.el b/evil-surround.el
index b68329d..03eec8f 100644
--- a/evil-surround.el
+++ b/evil-surround.el
@@ -222,7 +222,7 @@ Does not modify the buffer."
     (save-excursion
       (save-match-data
         (goto-char (evil-range-beginning range))
-        (while (looking-at regexp) (forward-char))
+        (while (looking-at-p regexp) (forward-char))
         (let ((new-beg (point)))
           (evil-set-range-beginning range new-beg)
           (goto-char (evil-range-end range))
-- 
cgit v1.0