procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(kinsoku): Check the variable enable-kinsoku.

Browse source
This commit is contained in:
Kenichi Handa 1998-10-19 00:40:10 +00:00
parent 22c47bc5ff
commit 11e60d924c
1 changed files with 12 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/international/kinsoku.el
View file

@ -157,6 +157,7 @@ shorter.
`Kinsoku' is a Japanese word which originally means ordering to stay `Kinsoku' is a Japanese word which originally means ordering to stay
in one place, and is used for the text processing described above in in one place, and is used for the text processing described above in
the context of text formatting." the context of text formatting."
(if enable-kinsoku
(if (or (and (if (or (and
;; The character after point can't be placed at beginning ;; The character after point can't be placed at beginning
;; of line. ;; of line.
@ -167,6 +168,6 @@ the context of text formatting."
(not (kinsoku-longer))) (not (kinsoku-longer)))
;; The character before point can't be placed at end of line. ;; The character before point can't be placed at end of line.
(aref (char-category-set (preceding-char)) ?<)) (aref (char-category-set (preceding-char)) ?<))
(kinsoku-shorter linebeg))) (kinsoku-shorter linebeg))))
;; kinsoku.el ends here ;; kinsoku.el ends here