Mercurial > emacs
changeset 19010:baf7d9450075
(fill-context-prefix): Be stricter about
whether first-line prefix is compatible with second-line prefix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 27 Jul 1997 19:56:21 +0000 |
| parents | 1493fc19f324 |
| children | 96c53acede23 |
| files | lisp/textmodes/fill.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/fill.el Sun Jul 27 19:53:27 1997 +0000 +++ b/lisp/textmodes/fill.el Sun Jul 27 19:56:21 1997 +0000 @@ -210,12 +210,14 @@ ;; If we get a fill prefix from the second line, ;; make sure it or something compatible is on the first line too. (and second-line-prefix first-line-prefix - (if (or (string-match (regexp-quote second-line-prefix) + (if (or (string-match (concat "\\`" + (regexp-quote second-line-prefix) + "\\(\\'\\|[ \t]\\)") first-line-prefix) - (and (string-match "[ \t]" second-line-prefix) + (and (string-match "\\`[ \t]+\\'" second-line-prefix) (>= (string-width first-line-prefix) (string-width second-line-prefix)))) - second-line-prefix)) + second-line-prefix)) ;; If we get a fill prefix from a one-line paragraph, ;; maybe change it to whitespace, ;; and check that it isn't a paragraph starter.