;; XEmacs change
(if (not dont-skip-first)
(forward-line 1))
- (if (>= (point) to)
- (goto-char firstline)
- (setq at-second t))
+ (cond ((>= (point) to)
+ (goto-char firstline))
+ ((/= (point) from)
+ (setq at-second t)))
(move-to-left-margin)
;; XEmacs change
(let ((start (point))
;(eol (save-excursion (end-of-line) (point)))
)
(setq result
- (if (not (looking-at paragraph-start))
+ (if (or dont-skip-first (not (looking-at paragraph-start)))
(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)))))
;;; 97/3/14 jhod: Kinsoku change
;; Spacing is not necessary for charcters of no word-separater.
;; The regexp word-across-newline is used for this check.
+ (defvar word-across-newline)
(if (not (and (featurep 'mule)
(stringp word-across-newline)))
(subst-char-in-region from (point-max) ?\n ?\ )
;; This is the actual filling loop.
(let ((prefixcol 0) linebeg
(re-break-point (if (featurep 'mule)
- (concat "[ \n\t]\\|" word-across-newline)
+ (concat "[ \n\t]\\|" word-across-newline
+ ".\\|." word-across-newline)
"[ \n\t]")))
(while (not (eobp))
(setq linebeg (point))
;; 97/3/14 jhod: This functions are added for Kinsoku support
(defun find-space-insertable-point ()
- "Search backward for a permissable point for inserting justification spaces"
+ "Search backward for a permissible point for inserting justification spaces"
(if (boundp 'space-insertable)
(if (re-search-backward space-insertable nil t)
(progn (forward-char 1)