Mercurial > emacs
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) |