comparison lisp/textmodes/fill.el @ 56489:fb549e5bb99c

(fill-comment-paragraph): Handle indent-tabs-mode. (fill-delete-newlines): Call sentence-end as function. (fill-nobreak-p, canonically-space-region): Likewise. (fill-nobreak-p): If this break point is at the end of the line, don't consider the newline which follows as a reason to return t.
author Richard M. Stallman <rms@gnu.org>
date Tue, 20 Jul 2004 20:51:13 +0000
parents 8ecfbf14a036
children 7f57e96cf880 b9eee0a7bef5
comparison
equal deleted inserted replaced
56488:46efdafb0b3a 56489:fb549e5bb99c
351 (and (looking-at "\\.") 351 (and (looking-at "\\.")
352 (not (looking-at (sentence-end))))) 352 (not (looking-at (sentence-end)))))
353 ;; Don't split a line if the rest would look like a new paragraph. 353 ;; Don't split a line if the rest would look like a new paragraph.
354 (unless use-hard-newlines 354 (unless use-hard-newlines
355 (save-excursion 355 (save-excursion
356 (skip-chars-forward " \t") (looking-at paragraph-start))) 356 (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))))
357 (run-hook-with-args-until-success 'fill-nobreak-predicate))))) 362 (run-hook-with-args-until-success 'fill-nobreak-predicate)))))
358 363
359 ;; Put `fill-find-break-point-function' property to charsets which 364 ;; Put `fill-find-break-point-function' property to charsets which
360 ;; require special functions to find line breaking point. 365 ;; require special functions to find line breaking point.
361 (dolist (pair '((katakana-jisx0201 . kinsoku) 366 (dolist (pair '((katakana-jisx0201 . kinsoku)