diff options
| author | Karl Heuer <kwzh@gnu.org> | 1999-07-27 20:06:20 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1999-07-27 20:06:20 +0000 |
| commit | e7029763cae839439b8dc7d9fb90eb4a03de6a9c (patch) | |
| tree | f058f6ff51b7b710401d9f561c8102035bc3efb3 | |
| parent | 071ebee939c205e91940cda662708506219f9e31 (diff) | |
| download | emacs-e7029763cae839439b8dc7d9fb90eb4a03de6a9c.tar.gz emacs-e7029763cae839439b8dc7d9fb90eb4a03de6a9c.tar.bz2 emacs-e7029763cae839439b8dc7d9fb90eb4a03de6a9c.zip | |
(fill-region-as-paragraph): Fix previous change.
| -rw-r--r-- | lisp/textmodes/fill.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index b600cd91031..571e39cc8bf 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -546,9 +546,13 @@ space does not end a sentence, so don't break a line there." ;; character to find the correct break point. (if (not (and (eq (charset-after (1- (point))) 'ascii) (eq (charset-after (point)) 'ascii))) - (fill-find-break-point (+ linebeg - (current-left-margin) - (length fill-prefix)))))) + ;; Make sure we take SOMETHING after the + ;; fill prefix if any. + (fill-find-break-point + (save-excursion + (goto-char linebeg) + (move-to-column prefixcol) + (point)))))) ;; If the left margin and fill prefix by themselves ;; pass the fill-column, keep at least one word. |