aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2023-01-21 08:51:54 -0500
committerStefan Monnier2023-03-19 14:51:27 -0400
commit3748c8a62e80e9bbd41fb307e5a4b1ec84e642b9 (patch)
tree84eac2560bc02d9b286255260992ace21bd1090d
parentde81349bd898a2c26f9ae15ed967484c7475646f (diff)
downloademacs-3748c8a62e80e9bbd41fb307e5a4b1ec84e642b9.tar.gz
emacs-3748c8a62e80e9bbd41fb307e5a4b1ec84e642b9.zip
(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).
-rw-r--r--lisp/international/textsec.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/international/textsec.el b/lisp/international/textsec.el
index 1540f806e3b..e69e7c19842 100644
--- a/lisp/international/textsec.el
+++ b/lisp/international/textsec.el
@@ -320,7 +320,8 @@ affected by bidi controls in STRING."
320 ;; state at end of STRING which could then affect the following 320 ;; state at end of STRING which could then affect the following
321 ;; text. 321 ;; text.
322 (insert string "a1א:!") 322 (insert string "a1א:!")
323 (let ((pos (bidi-find-overridden-directionality 1 (point-max) nil))) 323 (let ((pos (bidi-find-overridden-directionality
324 (point-min) (point-max) nil)))
324 (and (fixnump pos) 325 (and (fixnump pos)
325 (1- pos))))) 326 (1- pos)))))
326 327