diff options
| author | Kenichi Handa <handa@m17n.org> | 1998-02-04 11:25:47 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1998-02-04 11:25:47 +0000 |
| commit | 4a027a0dfb5721eb98b298f6330fe00511ca428c (patch) | |
| tree | 55519e97fcd72d6ff1bc28e7d4b8ae4f26103d28 /lisp/international/kinsoku.el | |
| parent | d5266ddfc2dd72dc2878305f12a4720e18fe8e26 (diff) | |
| download | emacs-4a027a0dfb5721eb98b298f6330fe00511ca428c.tar.gz | |
Use aref instead of sref.
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. |