From e95c545180a63cce49e8cdeff0d2660c2ddac9ec Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Fri, 15 Apr 2022 11:06:44 +0200 Subject: [PATCH] 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. --- lisp/emacs-lisp/text-property-search.el | 1 - 1 file changed, 1 deletion(-) 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)) -- 2.39.5