procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix an error in 'highlight-confusing-reorderings'

Browse source 
* lisp/international/mule-cmds.el
(highlight-confusing-reorderings): Don't signal an error when
a confusingly-reordered sequence ends at EOB.
This commit is contained in:
Eli Zaretskii 2021-11-06 19:13:44 +02:00
parent ab6700949e
commit dd0bc52014
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/international/mule-cmds.el
View file

@ -3338,9 +3338,11 @@ or the active region if that is set."
(re-search-backward reorder-starters nil t)))
(finish
(save-excursion
(re-search-forward reorder-enders nil t))))
(let ((fin (re-search-forward reorder-enders nil t)))
(if fin (1- fin)
(point-max))))))
(with-silent-modifications
(add-text-properties start (1- finish)
(add-text-properties start finish
'(font-lock-face
confusingly-reordered
face confusingly-reordered