Mercurial > emacs
changeset 17852:a9f18d920c11
(enable-kinsoku): Name changed form do-kinsoku.
(fill-region-as-paragraph): Do `kinsoku' processing only if both
enable-kinsoku and enable-multibyte-characters are non-nil.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sat, 17 May 1997 02:01:42 +0000 |
| parents | 6e7bb77cd7e1 |
| children | 3af728d1f6cf |
| files | lisp/textmodes/fill.el |
| diffstat | 1 files changed, 7 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/fill.el Fri May 16 22:49:59 1997 +0000 +++ b/lisp/textmodes/fill.el Sat May 17 02:01:42 1997 +0000 @@ -51,9 +51,11 @@ "Mode-specific function to fill a paragraph, or nil if there is none. If the function returns nil, then `fill-paragraph' does its normal work.") -(defvar do-kinsoku t - "*Non-nil means do `kinsoku' processing. -See the document of `kinsoku' for more detail.") +(defvar enable-kinsoku t + "*Non-nil means enable `kinsoku' processing on filling paragraph. +`Kinsoku' processing is to prohibit specific characters to be placed +at beginning or end of line. See the documentation of kinsoku for + more detail.") (defun set-fill-prefix () "Set the fill prefix to the current line up to point. @@ -391,7 +393,8 @@ ;; Normally, move back over the single space between the words. (if (= (preceding-char) ?\ ) (forward-char -1)) ;; Do KINSOKU processing. - (if do-kinsoku (kinsoku linebeg))) + (if (and enable-multibyte-characters enable-kinsoku) + (kinsoku linebeg))) ;; If the left margin and fill prefix by themselves ;; pass the fill-column, keep at least one word.