Mercurial > emacs
comparison lisp/textmodes/fill.el @ 18283:3909cd22d5e5
Fix previous change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 17 Jun 1997 21:47:30 +0000 |
| parents | 363bd42657e1 |
| children | a685286cc17f |
comparison
equal
deleted
inserted
replaced
| 18282:363bd42657e1 | 18283:3909cd22d5e5 |
|---|---|
| 234 (make-string (string-width first-line-prefix) ?\ )))) | 234 (make-string (string-width first-line-prefix) ?\ )))) |
| 235 ;; But either way, reject it if it indicates the start | 235 ;; But either way, reject it if it indicates the start |
| 236 ;; of a paragraph when text follows it. | 236 ;; of a paragraph when text follows it. |
| 237 (if (not (eq 0 (string-match paragraph-start | 237 (if (not (eq 0 (string-match paragraph-start |
| 238 (concat result "a")))) | 238 (concat result "a")))) |
| 239 result)))))))) | 239 result))))))) |
| 240 | 240 |
| 241 (defun fill-region-as-paragraph (from to &optional justify | 241 (defun fill-region-as-paragraph (from to &optional justify |
| 242 nosqueeze squeeze-after) | 242 nosqueeze squeeze-after) |
| 243 "Fill the region as one paragraph. | 243 "Fill the region as one paragraph. |
| 244 It removes any paragraph breaks in the region and extra newlines at the end, | 244 It removes any paragraph breaks in the region and extra newlines at the end, |