Mercurial > emacs
changeset 23492:dc49b662b956
(kinsoku): Check the variable enable-kinsoku.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 19 Oct 1998 00:40:10 +0000 |
| parents | 608e86fcce73 |
| children | d82b305ac37b |
| files | lisp/international/kinsoku.el |
| diffstat | 1 files changed, 12 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/kinsoku.el Mon Oct 19 00:40:10 1998 +0000 +++ b/lisp/international/kinsoku.el Mon Oct 19 00:40:10 1998 +0000 @@ -157,16 +157,17 @@ `Kinsoku' is a Japanese word which originally means ordering to stay in one place, and is used for the text processing described above in the context of text formatting." - (if (or (and - ;; The character after point can't be placed at beginning - ;; of line. - (aref (char-category-set (following-char)) ?>) - ;; We at first try to dissolve this situation by making a - ;; line longer. If it fails, then try making a line - ;; shorter. - (not (kinsoku-longer))) - ;; The character before point can't be placed at end of line. - (aref (char-category-set (preceding-char)) ?<)) - (kinsoku-shorter linebeg))) + (if enable-kinsoku + (if (or (and + ;; The character after point can't be placed at beginning + ;; of line. + (aref (char-category-set (following-char)) ?>) + ;; We at first try to dissolve this situation by making a + ;; line longer. If it fails, then try making a line + ;; shorter. + (not (kinsoku-longer))) + ;; The character before point can't be placed at end of line. + (aref (char-category-set (preceding-char)) ?<)) + (kinsoku-shorter linebeg)))) ;; kinsoku.el ends here