mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(fill-context-prefix): Accept a whitespace

Browse source 
prefix from the second line, regardless of the first line.
This commit is contained in:
Richard M. Stallman 1997-08-07 20:51:57 +00:00
parent 81f9cf5226
commit 82d5a63762
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/textmodes/fill.el
View file

@ -210,13 +210,13 @@ 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 the first line has the second line prefix too, use it.
(if (or (string-match (concat "\\`"
(regexp-quote second-line-prefix)
"\\(\\'\\|[ \t]\\)")
first-line-prefix)
(and (string-match "\\`[ \t]+\\'" second-line-prefix)
(>= (string-width first-line-prefix)
(string-width second-line-prefix))))
;; If the second line prefix is whitespace, use it.
(string-match "\\`[ \t]+\\'" second-line-prefix))
second-line-prefix))
;; If we get a fill prefix from a one-line paragraph,
;; maybe change it to whitespace,