comparison lisp/textmodes/fill.el @ 50659:f20dbbe44da9

(fill-region-as-paragraph): Fix "last line goes to fill-column+1" problem.

50658:94bb873a9f0d

	;; This is the actual filling loop.
	(goto-char from)
	(let (linebeg)
	  (while (< (point) to)
	    (setq linebeg (point))
	    (move-to-column (1+ (current-fill-column)))
	    (if (when (< (point) to)
		  ;; Find the position where we'll break the line.
		  (fill-move-to-break-point linebeg)
		  ;; Check again to see if we got to the end of
		  ;; the paragraph.
		  (skip-chars-forward " \t")
		  (< (point) to))

50659:f20dbbe44da9

	;; This is the actual filling loop.
	(goto-char from)
	(let (linebeg)
	  (while (< (point) to)
	    (setq linebeg (point))
	    (move-to-column (current-fill-column))
	    (if (when (< (point) to)
		  ;; Find the position where we'll break the line.
		  (forward-char 1) ;Use an immediately following space, if any.
		  (fill-move-to-break-point linebeg)
		  ;; Check again to see if we got to the end of
		  ;; the paragraph.
		  (skip-chars-forward " \t")
		  (< (point) to))