From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 3 Nov 2022 09:25:50 +0000 (+0200)
Subject: Fix 'text-property-search-backward' with 1-char long properties
X-Git-Tag: emacs-29.0.90~1616^2~338
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dffc34a2d4a2320acd2ce454115f2c9631eb4ce2;p=emacs.git

Fix 'text-property-search-backward' with 1-char long properties

* lisp/emacs-lisp/text-property-search.el
(text-property--find-end-backward): Don't miss the end of
text-property value at point.  This fixes searches backward when
the property is on a single character position.  (Bug#58937)
---

diff --git a/lisp/emacs-lisp/text-property-search.el b/lisp/emacs-lisp/text-property-search.el
index d11980f4f45..d41222bdbf1 100644
--- a/lisp/emacs-lisp/text-property-search.el
+++ b/lisp/emacs-lisp/text-property-search.el
@@ -208,8 +208,14 @@ and if a matching region is found, place point at the start of the region."
                 (goto-char end)
                 (setq ended t)))))
       ;; End this at the first place the property changes value.
-      (setq end (previous-single-property-change
-                 (point) property nil (point-min)))
+      (setq end
+            (if (and (> (point) (point-min))
+                     (text-property--match-p
+                      value (get-text-property (1- (point)) property)
+                      predicate))
+                (previous-single-property-change (point)
+                                                 property nil (point-min))
+              (point)))
       (goto-char end))
     (make-prop-match :beginning end
                      :end (1+ start)