;; 97/3/14 Jareth Hein (jhod@po.iijnet.or.jp) added functions for kinsoku (asian text
;; line break processing)
;; 97/3/14 Jareth Hein (jhod@po.iijnet.or.jp) added functions for kinsoku (asian text
;; line break processing)
(cond ((and adaptive-fill-regexp (looking-at adaptive-fill-regexp))
(buffer-substring-no-properties start (match-end 0)))
(adaptive-fill-function (funcall adaptive-fill-function)))))
(cond ((and adaptive-fill-regexp (looking-at adaptive-fill-regexp))
(buffer-substring-no-properties start (match-end 0)))
(adaptive-fill-function (funcall adaptive-fill-function)))))
(skip-chars-forward " \t")
;; Then change all newlines to spaces.
;;; 97/3/14 jhod: Kinsoku change
(skip-chars-forward " \t")
;; Then change all newlines to spaces.
;;; 97/3/14 jhod: Kinsoku change
;; The regexp word-across-newline is used for this check.
(defvar word-across-newline)
(if (not (and (featurep 'mule)
;; The regexp word-across-newline is used for this check.
(defvar word-across-newline)
(if (not (and (featurep 'mule)
;; This is the actual filling loop.
(let ((prefixcol 0) linebeg
(re-break-point (if (featurep 'mule)
;; This is the actual filling loop.
(let ((prefixcol 0) linebeg
(re-break-point (if (featurep 'mule)