Mercurial > emacs

changeset 22687:d858c344ab27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fill-individual-paragraphs): If JUST-ONE-LINE-PREFIX matches TWO-LINES-PREFIX except with longer whitespace, treat that as a match even is spaces are replaced with a tab.
author Richard M. Stallman <rms@gnu.org>
date Sat, 04 Jul 1998 09:44:09 +0000
parents 96320770e3d5
children c952205ba590
files lisp/textmodes/fill.el
diffstat 1 files changed, 13 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/fill.el	Sat Jul 04 02:49:48 1998 +0000
+++ b/lisp/textmodes/fill.el	Sat Jul 04 09:44:09 1998 +0000
@@ -1027,7 +1027,8 @@
 			     ;; 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 @@
 					  (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 @@
 	    (fill-region-as-paragraph start (point) justify)
 	    (or had-newline (delete-char -1))))))))
 
+(defun fill-strip-trailing-space (string)
+))
+
 ;;; fill.el ends here