comparison lisp/textmodes/fill.el @ 7721:b04897534717

(fill-region-as-paragraph): if left-margin is nonzero, do adaptive-fill processing even for one-line paragraphs.

7720:0e0ef6c1e53a

	      (let ((start (point)))
		(re-search-forward adaptive-fill-regexp)
		(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
	    ;; 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) ?\ ))
	    )))

    (save-restriction
      (narrow-to-region from to)
      (goto-char (point-min))

7721:b04897534717

	      (let ((start (point)))
		(re-search-forward adaptive-fill-regexp)
		(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 in general
	    ;; that additional lines would have the same starting
	    ;; decoration.  Assume no indentation.
	    ;; 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
      (narrow-to-region from to)
      (goto-char (point-min))