[Emacs-diffs] scratch/prop-search 9f8377b: Don't move when unsuccessfully searching backwards

[Lars Ingebrigtsen]

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

    Don't move when unsuccessfully searching backwards
---
 lisp/emacs-lisp/text-property-search.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/text-property-search.el 
b/lisp/emacs-lisp/text-property-search.el
index 9d05aa3..cd4471a 100644
--- a/lisp/emacs-lisp/text-property-search.el
+++ b/lisp/emacs-lisp/text-property-search.el
@@ -136,10 +136,10 @@ See `text-property-search-forward' for further 
documentation."
          (not not-immediate))
     (text-property--find-end-backward (1- (point)) property value predicate))
    (t
-    (forward-char -1)
     (let ((origin (point))
           (ended nil)
           pos)
+      (forward-char -1)
       ;; Fix the next candidate.
       (while (not ended)
         (setq pos (previous-single-property-change (point) property))