mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(enable-kinsoku): Name changed form do-kinsoku.

Browse Source 
(fill-region-as-paragraph): Do `kinsoku' processing only if both
enable-kinsoku and enable-multibyte-characters are non-nil.
This commit is contained in:
Kenichi Handa 1997-05-17 02:01:42 +00:00
parent 3fbca58aae
commit c4cd8760a2
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/textmodes/fill.el
View File

@ -51,9 +51,11 @@ A value of nil means that any change in indentation starts a new paragraph."
"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 @@ 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 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.