(fill-context-prefix): Be stricter about
whether first-line prefix is compatible with second-line prefix.
This commit is contained in:
parent
487e6fcbdd
commit
c61005b96d
1 changed files with 5 additions and 3 deletions
|
@ -210,12 +210,14 @@ act as a paragraph-separator."
|
|||
;; 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.
|
||||
|
|
Loading…
Add table
Reference in a new issue