[Emacs-diffs] scratch/prop-search 392003d: Adjust the beginning of the backwards range, too

[Lars Ingebrigtsen]

branch: scratch/prop-search
commit 392003d1d7f8372474d233e50cc9980e0e17527c
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    Adjust the beginning of the backwards range, too
---
 lisp/emacs-lisp/text-property-search.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lisp/emacs-lisp/text-property-search.el 
b/lisp/emacs-lisp/text-property-search.el
index cf467cb..4d4e391 100644
--- a/lisp/emacs-lisp/text-property-search.el
+++ b/lisp/emacs-lisp/text-property-search.el
@@ -78,6 +78,7 @@ See `text-property-search-forward' for further documentation."
       ;; backwards when searching backwards.  Also adjust the end
       ;; point to the correct place.
       (cl-rotatef (prop-match-beginning match) (prop-match-end match))
+      (setf (prop-match-beginning match) (1+ (prop-match-beginning match)))
       (setf (prop-match-end match) (1+ (prop-match-end match))))
     match))