diff options
| author | Richard M. Stallman | 1995-04-07 06:02:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-04-07 06:02:37 +0000 |
| commit | 078e01466dee152e9caf4036d3104259282536b6 (patch) | |
| tree | df518071c4afc1e6c799e805ae6e36153911c24e | |
| parent | b69328cae2cba9bcfc8f27aa15ca75649ac7b51e (diff) | |
| download | emacs-078e01466dee152e9caf4036d3104259282536b6.tar.gz emacs-078e01466dee152e9caf4036d3104259282536b6.zip | |
(fill-region-as-paragraph): If JUSTIFY is non-nil,
pass t to justify-current-line.
| -rw-r--r-- | lisp/textmodes/fill.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 55cb1d64409..7571ab5cf4c 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el | |||
| @@ -335,9 +335,9 @@ space does not end a sentence, so don't break a line there." | |||
| 335 | ;; Justify the line just ended, if desired. | 335 | ;; Justify the line just ended, if desired. |
| 336 | (if justify | 336 | (if justify |
| 337 | (if (eobp) | 337 | (if (eobp) |
| 338 | (justify-current-line justify t t) | 338 | (justify-current-line (not (null justify)) t t) |
| 339 | (forward-line -1) | 339 | (forward-line -1) |
| 340 | (justify-current-line justify nil t) | 340 | (justify-current-line (not (null justify)) nil t) |
| 341 | (forward-line 1)))))) | 341 | (forward-line 1)))))) |
| 342 | ;; Leave point after final newline. | 342 | ;; Leave point after final newline. |
| 343 | (goto-char (point-max))) | 343 | (goto-char (point-max))) |