diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2022-01-22 12:14:17 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2022-01-22 12:14:17 +0200 |
| commit | a604e877cd1f8096f8c428c88c5b960307c12f85 (patch) | |
| tree | ec89fb6c776e832ac49f2e9043dca8a2112ef6f8 /lisp/international | |
| parent | 682b6df6bfc7af98a28b54bd925cd33dead2c25d (diff) | |
| download | emacs-a604e877cd1f8096f8c428c88c5b960307c12f85.tar.gz emacs-a604e877cd1f8096f8c428c88c5b960307c12f85.tar.bz2 emacs-a604e877cd1f8096f8c428c88c5b960307c12f85.zip | |
; Fix last change in 'textsec-bidi-controls-suspicious-p'.
Diffstat (limited to 'lisp/international')
| -rw-r--r-- | lisp/international/textsec.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/international/textsec.el b/lisp/international/textsec.el index adef64bfdf0..6985f4f3efe 100644 --- a/lisp/international/textsec.el +++ b/lisp/international/textsec.el @@ -301,7 +301,9 @@ affected by bidi controls in STRING." ;; state at end of STRING which could then affect the following ;; text. (insert string "a1א:!") - (bidi-find-overridden-directionality 1 (point-max) nil))) + (let ((pos (bidi-find-overridden-directionality 1 (point-max) nil))) + (and (fixnump pos) + (1- pos))))) (defun textsec-name-suspicious-p (name) "Say whether NAME looks suspicious. |