450 |
(subst-char-in-region from to ?\n ?\ ) |
(subst-char-in-region from to ?\n ?\ ) |
451 |
(if (and nosqueeze (not (eq justify 'full))) |
(if (and nosqueeze (not (eq justify 'full))) |
452 |
nil |
nil |
453 |
(canonically-space-region (or squeeze-after (point)) to)) |
(canonically-space-region (or squeeze-after (point)) to) |
454 |
|
;; Remove trailing whitespace. |
455 |
|
;; Maybe canonically-space-region should do that. |
456 |
|
(goto-char to) (delete-horizontal-space)) |
457 |
(goto-char from)) |
(goto-char from)) |
458 |
|
|
459 |
(defun fill-move-to-break-point (linebeg) |
(defun fill-move-to-break-point (linebeg) |