diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-07-30 07:01:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-07-30 07:01:23 +0000 |
| commit | 362a07f4a4283d9f9f26667f70eaa31b80589250 (patch) | |
| tree | 88414f1e51fd155498e80745043eeb637c59edc3 /lisp | |
| parent | 3242b6f01b04f24098f638402a41f12da75be67a (diff) | |
| download | emacs-362a07f4a4283d9f9f26667f70eaa31b80589250.tar.gz | |
(fill-region-as-paragraph): Move misplaced paren
ending `(if (eobp) nil ...)'.
In the loop that avoids breaking after `.' with one space,
break if we actually have two spaces.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/textmodes/fill.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 01838207f21..57d7804657f 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -161,6 +161,7 @@ From program, pass args FROM, TO and JUSTIFY-FLAG." ;; avoid putting it at the end of the line. (while (and (> (point) (+ linebeg 2)) (eq (preceding-char) ?\ ) + (not (eq (following-char) ?\ )) (eq (char-after (- (point) 2)) ?\.)) (forward-char -2) (skip-chars-backward "^ \n" linebeg)) @@ -171,7 +172,7 @@ From program, pass args FROM, TO and JUSTIFY-FLAG." (skip-chars-forward " ") (skip-chars-forward "^ \n")) ;; Normally, move back over the single space between the words. - (forward-char -1))) + (forward-char -1)) (if (and fill-prefix (zerop prefixcol) (< (- (point) (point-min)) (length fill-prefix)) (string= (buffer-substring (point-min) (point)) @@ -180,7 +181,7 @@ From program, pass args FROM, TO and JUSTIFY-FLAG." ;; This handles the first line of the paragraph. (progn (skip-chars-forward " ") - (skip-chars-forward "^ \n"))) + (skip-chars-forward "^ \n")))) ;; 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. |