diff options
Diffstat (limited to 'lisp/international/kinsoku.el')
| -rw-r--r-- | lisp/international/kinsoku.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/international/kinsoku.el b/lisp/international/kinsoku.el index 764d181c5b3..53c26f7d593 100644 --- a/lisp/international/kinsoku.el +++ b/lisp/international/kinsoku.el @@ -78,8 +78,8 @@ The value 0 means there's no limitation.") (idx 0) ch) (while (< idx len) - (setq ch (sref kinsoku-bol idx) - idx (+ idx (char-bytes ch))) + (setq ch (aref kinsoku-bol idx) + idx (1+ idx)) (modify-category-entry ch ?>))) ;; Setting character category `<' for characters which should not be @@ -115,8 +115,8 @@ The value 0 means there's no limitation.") (idx 0) ch) (while (< idx len) - (setq ch (sref kinsoku-eol idx) - idx (+ idx (char-bytes ch))) + (setq ch (aref kinsoku-eol idx) + idx (1+ idx)) (modify-category-entry ch ?<))) ;; Try to resolve `kinsoku' restriction by making the current line longer. |