diff options
| author | Lars Ingebrigtsen | 2022-04-15 11:06:44 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-04-15 11:06:44 +0200 |
| commit | e95c545180a63cce49e8cdeff0d2660c2ddac9ec (patch) | |
| tree | d279ecc4d34338d7302b3f4121694c91b823b644 | |
| parent | 504779f744ccc33c2177dafa34e21d83f6c640a0 (diff) | |
| download | emacs-e95c545180a63cce49e8cdeff0d2660c2ddac9ec.tar.gz emacs-e95c545180a63cce49e8cdeff0d2660c2ddac9ec.zip | |
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.
| -rw-r--r-- | lisp/emacs-lisp/text-property-search.el | 1 |
1 files changed, 0 insertions, 1 deletions
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." | |||
| 166 | (let ((origin (point)) | 166 | (let ((origin (point)) |
| 167 | (ended nil) | 167 | (ended nil) |
| 168 | pos) | 168 | pos) |
| 169 | (forward-char -1) | ||
| 170 | ;; Find the previous candidate. | 169 | ;; Find the previous candidate. |
| 171 | (while (not ended) | 170 | (while (not ended) |
| 172 | (setq pos (previous-single-property-change (point) property)) | 171 | (setq pos (previous-single-property-change (point) property)) |