mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(enable-kinsoku): Doc fix.

Browse source
This commit is contained in:
Richard M. Stallman 1997-08-09 03:41:42 +00:00
parent e42537fec7
commit 4dc0f0fc0e
1 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/textmodes/fill.el
View file

@ -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