Fix an error in 'highlight-confusing-reorderings'

* lisp/international/mule-cmds.el
(highlight-confusing-reorderings): Don't signal an error when
a confusingly-reordered sequence ends at EOB.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 91219ca480cab4c448587d2bb046b0045289d3ae..d36d878c19a1883653413ec9f60077b8f3d17d05 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -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