mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 02:51:31 -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, ;; If we get a fill prefix from the second line,
;; make sure it or something compatible is on the first line too. ;; make sure it or something compatible is on the first line too.
(and second-line-prefix first-line-prefix (and second-line-prefix first-line-prefix
;; If the first line has the second line prefix too, use it.
(if (or (string-match (concat "\\`" (if (or (string-match (concat "\\`"
(regexp-quote second-line-prefix) (regexp-quote second-line-prefix)
"\\(\\'\\|[ \t]\\)") "\\(\\'\\|[ \t]\\)")
first-line-prefix) first-line-prefix)
(and (string-match "\\`[ \t]+\\'" second-line-prefix) ;; If the second line prefix is whitespace, use it.
(>= (string-width first-line-prefix) (string-match "\\`[ \t]+\\'" second-line-prefix))
(string-width second-line-prefix))))
second-line-prefix)) second-line-prefix))
;; If we get a fill prefix from a one-line paragraph, ;; If we get a fill prefix from a one-line paragraph,
;; maybe change it to whitespace, ;; maybe change it to whitespace,