Mercurial > emacs
changeset 19239:8298b8a6a47d
(enable-kinsoku): Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 09 Aug 1997 03:41:42 +0000 |
| parents | 24bfe6095dfe |
| children | c962562027d4 |
| files | lisp/textmodes/fill.el |
| diffstat | 1 files changed, 9 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/fill.el Sat Aug 09 03:34:34 1997 +0000 +++ b/lisp/textmodes/fill.el Sat Aug 09 03:41:42 1997 +0000 @@ -52,10 +52,10 @@ 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 @@ ;; 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