procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(fill-individual-paragraphs): If JUST-ONE-LINE-PREFIX matches

Browse source 
TWO-LINES-PREFIX except with longer whitespace, treat that as a match
even is spaces are replaced with a tab.
This commit is contained in:
Richard M. Stallman 1998-07-04 09:44:09 +00:00
parent 031bf182c0
commit c221399445
1 changed files with 13 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/textmodes/fill.el
View file

@ -1027,7 +1027,8 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines."
;; use that.
(or (let ((adaptive-fill-first-line-regexp "")
just-one-line-prefix
two-lines-prefix)
two-lines-prefix
adjusted-two-lines-prefix)
(setq just-one-line-prefix
(fill-context-prefix
(point)
@ -1038,10 +1039,17 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines."
(point)
(save-excursion (forward-line 2)
(point))))
(setq adjusted-two-lines-prefix
(substring two-lines-prefix 0
(string-match "[ \t]*\\'"
two-lines-prefix)))
;; See if JUST-ONE-LINE-PREFIX
;; is the same as TWO-LINES-PREFIX
;; except perhaps with longer whitespace.
(if (and just-one-line-prefix
two-lines-prefix
(string-match (concat "\\`"
(regexp-quote two-lines-prefix)
(regexp-quote adjusted-two-lines-prefix)
"[ \t]*\\'")
just-one-line-prefix))
two-lines-prefix
@ -1080,4 +1088,7 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines."
(fill-region-as-paragraph start (point) justify)
(or had-newline (delete-char -1))))))))
(defun fill-strip-trailing-space (string)
))
;;; fill.el ends here