diff options
| -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." | |||
| 546 | ;; character to find the correct break point. | 546 | ;; character to find the correct break point. |
| 547 | (if (not (and (eq (charset-after (1- (point))) 'ascii) | 547 | (if (not (and (eq (charset-after (1- (point))) 'ascii) |
| 548 | (eq (charset-after (point)) 'ascii))) | 548 | (eq (charset-after (point)) 'ascii))) |
| 549 | (fill-find-break-point (+ linebeg | 549 | ;; Make sure we take SOMETHING after the |
| 550 | (current-left-margin) | 550 | ;; fill prefix if any. |
| 551 | (length fill-prefix)))))) | 551 | (fill-find-break-point |
| 552 | (save-excursion | ||
| 553 | (goto-char linebeg) | ||
| 554 | (move-to-column prefixcol) | ||
| 555 | (point)))))) | ||
| 552 | 556 | ||
| 553 | ;; If the left margin and fill prefix by themselves | 557 | ;; If the left margin and fill prefix by themselves |
| 554 | ;; pass the fill-column, keep at least one word. | 558 | ;; pass the fill-column, keep at least one word. |