From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 15 Apr 2022 09:06:44 +0000 (+0200)
Subject: Fix off-by-one error in text-property-search-backward
X-Git-Tag: emacs-29.0.90~1931^2~552
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e95c545180a63cce49e8cdeff0d2660c2ddac9ec;p=emacs.git

Fix off-by-one error in text-property-search-backward

* lisp/emacs-lisp/text-property-search.el
(text-property-search-backward): Fix off-by-one error -- this
would result in not finding the previous (non-)match when at the
first character in a field.
---

diff --git a/lisp/emacs-lisp/text-property-search.el b/lisp/emacs-lisp/text-property-search.el
index 9f86a28eb64..2494e948078 100644
--- a/lisp/emacs-lisp/text-property-search.el
+++ b/lisp/emacs-lisp/text-property-search.el
@@ -166,7 +166,6 @@ and if a matching region is found, place point at the start of the region."
     (let ((origin (point))
           (ended nil)
           pos)
-      (forward-char -1)
       ;; Find the previous candidate.
       (while (not ended)
         (setq pos (previous-single-property-change (point) property))