(textsec-bidi-controls-suspicious-p): Minor tweak

* lisp/international/textsec.el (textsec-bidi-controls-suspicious-p):
Don't assume point-min==1 (and point-min is marginally more
efficient, to boot).
This commit is contained in:
Stefan Monnier 2023-01-21 08:51:54 -05:00
parent de81349bd8
commit 3748c8a62e

View file

@ -320,7 +320,8 @@ affected by bidi controls in STRING."
;; state at end of STRING which could then affect the following
;; text.
(insert string "a1א:!")
(let ((pos (bidi-find-overridden-directionality 1 (point-max) nil)))
(let ((pos (bidi-find-overridden-directionality
(point-min) (point-max) nil)))
(and (fixnump pos)
(1- pos)))))