Mercurial > emacs
comparison lisp/international/kinsoku.el @ 20843:b60871b4710f
Use aref instead of sref.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 04 Feb 1998 11:25:47 +0000 |
| parents | 8b4a66c66dd6 |
| children | 30beacf88b75 |
comparison
equal
deleted
inserted
replaced
| 20842:428831a6f4d1 | 20843:b60871b4710f |
|---|---|
| 76 $(0"#"$"%"&"'"(")"*"+","2"3"4"j"k"l"x%7(B")) | 76 $(0"#"$"%"&"'"(")"*"+","2"3"4"j"k"l"x%7(B")) |
| 77 (len (length kinsoku-bol)) | 77 (len (length kinsoku-bol)) |
| 78 (idx 0) | 78 (idx 0) |
| 79 ch) | 79 ch) |
| 80 (while (< idx len) | 80 (while (< idx len) |
| 81 (setq ch (sref kinsoku-bol idx) | 81 (setq ch (aref kinsoku-bol idx) |
| 82 idx (+ idx (char-bytes ch))) | 82 idx (1+ idx)) |
| 83 (modify-category-entry ch ?>))) | 83 (modify-category-entry ch ?>))) |
| 84 | 84 |
| 85 ;; Setting character category `<' for characters which should not be | 85 ;; Setting character category `<' for characters which should not be |
| 86 ;; placed at end of line. | 86 ;; placed at end of line. |
| 87 (let* ((kinsoku-eol | 87 (let* ((kinsoku-eol |
| 113 $(0$|$}$~%!%"%#%$%%%&%'%(%)%*%+%:(B")) | 113 $(0$|$}$~%!%"%#%$%%%&%'%(%)%*%+%:(B")) |
| 114 (len (length kinsoku-eol)) | 114 (len (length kinsoku-eol)) |
| 115 (idx 0) | 115 (idx 0) |
| 116 ch) | 116 ch) |
| 117 (while (< idx len) | 117 (while (< idx len) |
| 118 (setq ch (sref kinsoku-eol idx) | 118 (setq ch (aref kinsoku-eol idx) |
| 119 idx (+ idx (char-bytes ch))) | 119 idx (1+ idx)) |
| 120 (modify-category-entry ch ?<))) | 120 (modify-category-entry ch ?<))) |
| 121 | 121 |
| 122 ;; Try to resolve `kinsoku' restriction by making the current line longer. | 122 ;; Try to resolve `kinsoku' restriction by making the current line longer. |
| 123 (defun kinsoku-longer () | 123 (defun kinsoku-longer () |
| 124 (let ((pos-and-column (save-excursion | 124 (let ((pos-and-column (save-excursion |