diff options
| author | Stefan Kangas | 2020-09-02 17:31:08 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2020-09-02 17:31:08 +0200 |
| commit | dd2c37d0e1d5dcbcd2658b8a5b9959996a133373 (patch) | |
| tree | 9feb659e6d8d63de4c8ec1b11f715a9d816515ce | |
| parent | 615c15fd859b94e9d28d2424674b7e43aa3149a5 (diff) | |
| download | emacs-dd2c37d0e1d5dcbcd2658b8a5b9959996a133373.tar.gz emacs-dd2c37d0e1d5dcbcd2658b8a5b9959996a133373.zip | |
Fix OBOE in flyspell-check-previous-highlighted-word
* lisp/textmodes/flyspell.el
(flyspell-check-previous-highlighted-word): Fix off-by-one error when
word is at (point-min). (Bug#39898)
Suggested by OGAWA Hirofumi <hirofumi@mail.parknet.co.jp>.
| -rw-r--r-- | lisp/textmodes/flyspell.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index 98059287210..6889d7eadac 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el | |||
| @@ -1904,7 +1904,7 @@ before point that's highlighted as misspelled." | |||
| 1904 | (while (and (setq pos (previous-overlay-change pos)) | 1904 | (while (and (setq pos (previous-overlay-change pos)) |
| 1905 | (not (= pos pos1))) | 1905 | (not (= pos pos1))) |
| 1906 | (setq pos1 pos) | 1906 | (setq pos1 pos) |
| 1907 | (if (> pos (point-min)) | 1907 | (if (>= pos (point-min)) |
| 1908 | (progn | 1908 | (progn |
| 1909 | (setq ovs (overlays-at pos)) | 1909 | (setq ovs (overlays-at pos)) |
| 1910 | (while (consp ovs) | 1910 | (while (consp ovs) |