Mercurial > emacs

changeset 4413:5a00cec8e9b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fill-region-as-paragraph): When we take one word after the fill column, don't stop at period with just one space. When checking whether at beginning of line, if no fill prefix, ignore intervening whitespace.
author Richard M. Stallman <rms@gnu.org>
date Mon, 02 Aug 1993 05:55:56 +0000
parents 12c4e5b53463
children 3356419b94c1
files lisp/textmodes/fill.el
diffstat 1 files changed, 26 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/fill.el	Mon Aug 02 05:54:55 1993 +0000
+++ b/lisp/textmodes/fill.el	Mon Aug 02 05:55:56 1993 +0000
@@ -165,12 +165,24 @@
 			(eq (char-after (- (point) 2)) ?\.))
 	      (forward-char -2)
 	      (skip-chars-backward "^ \n" linebeg))
-	    (if (if (zerop prefixcol) (bolp) (>= prefixcol (current-column)))
+	    (if (if (zerop prefixcol)
+		    (save-excursion
+		      (skip-chars-backward " " linebeg)
+		      (bolp))
+		  (>= prefixcol (current-column)))
 		;; Keep at least one word even if fill prefix exceeds margin.
 		;; This handles all but the first line of the paragraph.
-		(progn
-		  (skip-chars-forward " ")
-		  (skip-chars-forward "^ \n"))
+		;; Meanwhile, don't stop at a period followed by one space.
+		(let ((first t))
+		  (move-to-column prefixcol)
+		  (while (and (not (eobp))
+			      (or first
+				  (and (not (bobp))
+				       (save-excursion (forward-char -1)
+						       (looking-at "\\. ")))))
+		    (skip-chars-forward " ")
+		    (skip-chars-forward "^ \n")
+		    (setq first nil)))
 	      ;; Normally, move back over the single space between the words.
 	      (forward-char -1))
 	    (if (and fill-prefix (zerop prefixcol)
@@ -179,9 +191,16 @@
 			      (substring fill-prefix 0 (- (point) (point-min)))))
 		;; Keep at least one word even if fill prefix exceeds margin.
 		;; This handles the first line of the paragraph.
-		(progn
-		  (skip-chars-forward " ")
-		  (skip-chars-forward "^ \n"))))
+		;; Don't stop at a period followed by just one space.
+		(let ((first t))
+		  (while (and (not (eobp))
+			      (or first
+				  (and (not (bobp))
+				       (save-excursion (forward-char -1)
+						       (looking-at "\\. ")))))
+		    (skip-chars-forward " ")
+		    (skip-chars-forward "^ \n")
+		    (setq first nil)))))
 	  ;; Replace all whitespace here with one newline.
 	  ;; Insert before deleting, so we don't forget which side of
 	  ;; the whitespace point or markers used to be on.