diff options
| author | Richard M. Stallman | 1997-08-07 20:51:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-08-07 20:51:57 +0000 |
| commit | 82d5a637623b33342e6552a36dd0455816a6b2f4 (patch) | |
| tree | 4a42381e038990a38929d65bdeef115a3a95121c | |
| parent | 81f9cf5226a6c9dfd26cf83a0166e766c832b7c0 (diff) | |
| download | emacs-82d5a637623b33342e6552a36dd0455816a6b2f4.tar.gz emacs-82d5a637623b33342e6552a36dd0455816a6b2f4.zip | |
(fill-context-prefix): Accept a whitespace
prefix from the second line, regardless of the first line.
| -rw-r--r-- | lisp/textmodes/fill.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index c1f44301a4b..88a685c2562 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el | |||
| @@ -210,13 +210,13 @@ act as a paragraph-separator." | |||
| 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 first-line-prefix | 212 | (and second-line-prefix first-line-prefix |
| 213 | ;; If the first line has the second line prefix too, use it. | ||
| 213 | (if (or (string-match (concat "\\`" | 214 | (if (or (string-match (concat "\\`" |
| 214 | (regexp-quote second-line-prefix) | 215 | (regexp-quote second-line-prefix) |
| 215 | "\\(\\'\\|[ \t]\\)") | 216 | "\\(\\'\\|[ \t]\\)") |
| 216 | first-line-prefix) | 217 | first-line-prefix) |
| 217 | (and (string-match "\\`[ \t]+\\'" second-line-prefix) | 218 | ;; If the second line prefix is whitespace, use it. |
| 218 | (>= (string-width first-line-prefix) | 219 | (string-match "\\`[ \t]+\\'" second-line-prefix)) |
| 219 | (string-width second-line-prefix)))) | ||
| 220 | second-line-prefix)) | 220 | second-line-prefix)) |
| 221 | ;; If we get a fill prefix from a one-line paragraph, | 221 | ;; If we get a fill prefix from a one-line paragraph, |
| 222 | ;; maybe change it to whitespace, | 222 | ;; maybe change it to whitespace, |