diff options
| author | Kenichi Handa | 1999-07-26 00:29:37 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1999-07-26 00:29:37 +0000 |
| commit | 9d289ed7c77100035a41cbd21f4254c8a41d2ec7 (patch) | |
| tree | b9270c02b2c7182cb60492976ff445034f00b9be | |
| parent | 7141e1e0ffb4a1846f7054c41a1e98598b8ee6c3 (diff) | |
| download | emacs-9d289ed7c77100035a41cbd21f4254c8a41d2ec7.tar.gz emacs-9d289ed7c77100035a41cbd21f4254c8a41d2ec7.zip | |
(fill-region-as-paragraph): Fix previous change.
| -rw-r--r-- | lisp/textmodes/fill.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 020e831bb39..b600cd91031 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el | |||
| @@ -546,10 +546,9 @@ 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 | 549 | (fill-find-break-point (+ linebeg |
| 550 | (+ linebeg | 550 | (current-left-margin) |
| 551 | (current-left-margin) | 551 | (length fill-prefix)))))) |
| 552 | (if fill-prefix (length fill-prefix) 0)))))) | ||
| 553 | 552 | ||
| 554 | ;; If the left margin and fill prefix by themselves | 553 | ;; If the left margin and fill prefix by themselves |
| 555 | ;; pass the fill-column, keep at least one word. | 554 | ;; pass the fill-column, keep at least one word. |