From dffc34a2d4a2320acd2ce454115f2c9631eb4ce2 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 3 Nov 2022 11:25:50 +0200 Subject: [PATCH] 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) --- lisp/emacs-lisp/text-property-search.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) 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) -- 2.39.2