Mercurial > emacs
comparison lisp/textmodes/fill.el @ 18319:a685286cc17f
(fill-context-prefix): Fix previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 18 Jun 1997 20:26:21 +0000 |
| parents | 3909cd22d5e5 |
| children | ccd57f42a3c4 |
comparison
equal
deleted
inserted
replaced
| 18318:e3a032578eb3 | 18319:a685286cc17f |
|---|---|
| 207 (buffer-substring-no-properties start (match-end 0))) | 207 (buffer-substring-no-properties start (match-end 0))) |
| 208 (adaptive-fill-function (funcall adaptive-fill-function))))) | 208 (adaptive-fill-function (funcall adaptive-fill-function))))) |
| 209 (if at-second | 209 (if at-second |
| 210 ;; If we get a fill prefix from the second line, | 210 ;; If we get a fill prefix from the second line, |
| 211 ;; make sure it or something compatible is on the first line too. | 211 ;; make sure it or something compatible is on the first line too. |
| 212 (and second-line-prefix | 212 (and second-line-prefix first-line-prefix |
| 213 (if (or (string-match (regexp-quote second-line-prefix) | 213 (if (or (string-match (regexp-quote second-line-prefix) |
| 214 first-line-prefix) | 214 first-line-prefix) |
| 215 (and (string-match "[ \t]" second-line-prefix) | 215 (and (string-match "[ \t]" second-line-prefix) |
| 216 (>= (string-width first-line-prefix) | 216 (>= (string-width first-line-prefix) |
| 217 (string-width second-line-prefix)))) | 217 (string-width second-line-prefix)))) |