diff options
| -rw-r--r-- | lisp/textmodes/paragraphs.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el index a7cc32b7413..775f0ea72a9 100644 --- a/lisp/textmodes/paragraphs.el +++ b/lisp/textmodes/paragraphs.el | |||
| @@ -195,12 +195,14 @@ to which the end of the previous line belongs, or the end of the buffer." | |||
| 195 | (setq multiple-lines t)) | 195 | (setq multiple-lines t)) |
| 196 | (forward-line -1)) | 196 | (forward-line -1)) |
| 197 | (move-to-left-margin) | 197 | (move-to-left-margin) |
| 198 | ;; Don't move back over a line before the paragraph | 198 | ;;; This deleted code caused a long hanging-indent line |
| 199 | ;; which doesn't start with fill-prefix | 199 | ;;; not to be filled together with the following lines. |
| 200 | ;; unless that is the only line we've moved over. | 200 | ;;; ;; Don't move back over a line before the paragraph |
| 201 | (and (not (looking-at fill-prefix-regexp)) | 201 | ;;; ;; which doesn't start with fill-prefix |
| 202 | multiple-lines | 202 | ;;; ;; unless that is the only line we've moved over. |
| 203 | (forward-line 1)) | 203 | ;;; (and (not (looking-at fill-prefix-regexp)) |
| 204 | ;;; multiple-lines | ||
| 205 | ;;; (forward-line 1)) | ||
| 204 | (not (bobp))) | 206 | (not (bobp))) |
| 205 | (while (and (re-search-backward sp-paragraph-start nil 1) | 207 | (while (and (re-search-backward sp-paragraph-start nil 1) |
| 206 | ;; Found a candidate, but need to check if it is a | 208 | ;; Found a candidate, but need to check if it is a |