aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1997-08-07 20:51:57 +0000
committerRichard M. Stallman1997-08-07 20:51:57 +0000
commit82d5a637623b33342e6552a36dd0455816a6b2f4 (patch)
tree4a42381e038990a38929d65bdeef115a3a95121c
parent81f9cf5226a6c9dfd26cf83a0166e766c832b7c0 (diff)
downloademacs-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.el6
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,