Mercurial > emacs
changeset 7721:b04897534717
(fill-region-as-paragraph): if left-margin is nonzero,
do adaptive-fill processing even for one-line paragraphs.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 28 May 1994 08:15:16 +0000 |
| parents | 0e0ef6c1e53a |
| children | e422f06592d3 |
| files | lisp/textmodes/fill.el |
| diffstat | 1 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/fill.el Sat May 28 07:22:21 1994 +0000 +++ b/lisp/textmodes/fill.el Sat May 28 08:15:16 1994 +0000 @@ -85,11 +85,15 @@ (setq fill-prefix (buffer-substring start (point)))) (goto-char (min from to)) (if (eolp) (forward-line 1)) - ;; If paragraph has only one line, don't assume + ;; If paragraph has only one line, don't assume in general ;; that additional lines would have the same starting ;; decoration. Assume no indentation. -;; (re-search-forward adaptive-fill-regexp) -;; (setq fill-prefix (make-string (current-column) ?\ )) + ;; But if left-margin is nonzero, we can assume ordinary + ;; lines do have indentation. + (if (> left-margin 0) + (progn + (re-search-forward adaptive-fill-regexp) + (setq fill-prefix (make-string (current-column) ?\ )))) ))) (save-restriction