353 |
;; Don't split a line if the rest would look like a new paragraph. |
;; Don't split a line if the rest would look like a new paragraph. |
354 |
(unless use-hard-newlines |
(unless use-hard-newlines |
355 |
(save-excursion |
(save-excursion |
356 |
(skip-chars-forward " \t") (looking-at paragraph-start))) |
(skip-chars-forward " \t") |
357 |
|
;; If this break point is at the end of the line, |
358 |
|
;; which can occur for auto-fill, don't consider the newline |
359 |
|
;; which follows as a reason to return t. |
360 |
|
(and (not (eolp)) |
361 |
|
(looking-at paragraph-start)))) |
362 |
(run-hook-with-args-until-success 'fill-nobreak-predicate))))) |
(run-hook-with-args-until-success 'fill-nobreak-predicate))))) |
363 |
|
|
364 |
;; Put `fill-find-break-point-function' property to charsets which |
;; Put `fill-find-break-point-function' property to charsets which |