From 4dc0f0fc0e5e9f4e80cd9a192ac854697bc49d46 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 9 Aug 1997 03:41:42 +0000 Subject: [PATCH] (enable-kinsoku): Doc fix. --- lisp/textmodes/fill.el | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 88a685c2562..5609eef944d 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -52,10 +52,10 @@ A value of nil means that any change in indentation starts a new paragraph." If the function returns nil, then `fill-paragraph' does its normal work.") (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.") + "*Non-nil means enable \"kinsoku\" processing on filling paragraph. +Kinsoku processing is designed to prevent certain characters from being +placed at the beginning or end of a line by filling. +See the documentation of `kinsoku' for more information.") (defun set-fill-prefix () "Set the fill prefix to the current line up to point. @@ -450,7 +450,11 @@ space does not end a sentence, so don't break a line there." ;; Normally, move back over the single space between the words. (if (= (preceding-char) ?\ ) (forward-char -1)) ;; Do KINSOKU processing. - (if (and enable-multibyte-characters enable-kinsoku) + (if (and enable-multibyte-characters enable-kinsoku + (save-excursion + (goto-char from) + (skip-chars-forward "\0-\177" to) + (/= (point) to))) (kinsoku linebeg))) ;; If the left margin and fill prefix by themselves -- 2.39.2