diff options
| author | Kenichi Handa | 1998-10-19 00:40:10 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1998-10-19 00:40:10 +0000 |
| commit | 11e60d924c1be9151f1307d349304eee8894d7eb (patch) | |
| tree | ae8371033deac5119dd2f0bb628932952b6ebacc | |
| parent | 22c47bc5ff6bbf1ecb9a72a19820d5930b733798 (diff) | |
| download | emacs-11e60d924c1be9151f1307d349304eee8894d7eb.tar.gz emacs-11e60d924c1be9151f1307d349304eee8894d7eb.zip | |
(kinsoku): Check the variable enable-kinsoku.
| -rw-r--r-- | lisp/international/kinsoku.el | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/lisp/international/kinsoku.el b/lisp/international/kinsoku.el index 3aec1a0f1b1..b845774fe55 100644 --- a/lisp/international/kinsoku.el +++ b/lisp/international/kinsoku.el | |||
| @@ -157,16 +157,17 @@ shorter. | |||
| 157 | `Kinsoku' is a Japanese word which originally means ordering to stay | 157 | `Kinsoku' is a Japanese word which originally means ordering to stay |
| 158 | in one place, and is used for the text processing described above in | 158 | in one place, and is used for the text processing described above in |
| 159 | the context of text formatting." | 159 | the context of text formatting." |
| 160 | (if (or (and | 160 | (if enable-kinsoku |
| 161 | ;; The character after point can't be placed at beginning | 161 | (if (or (and |
| 162 | ;; of line. | 162 | ;; The character after point can't be placed at beginning |
| 163 | (aref (char-category-set (following-char)) ?>) | 163 | ;; of line. |
| 164 | ;; We at first try to dissolve this situation by making a | 164 | (aref (char-category-set (following-char)) ?>) |
| 165 | ;; line longer. If it fails, then try making a line | 165 | ;; We at first try to dissolve this situation by making a |
| 166 | ;; shorter. | 166 | ;; line longer. If it fails, then try making a line |
| 167 | (not (kinsoku-longer))) | 167 | ;; shorter. |
| 168 | ;; The character before point can't be placed at end of line. | 168 | (not (kinsoku-longer))) |
| 169 | (aref (char-category-set (preceding-char)) ?<)) | 169 | ;; The character before point can't be placed at end of line. |
| 170 | (kinsoku-shorter linebeg))) | 170 | (aref (char-category-set (preceding-char)) ?<)) |
| 171 | (kinsoku-shorter linebeg)))) | ||
| 171 | 172 | ||
| 172 | ;; kinsoku.el ends here | 173 | ;; kinsoku.el ends here |