Function: longlines-wrap-region

longlines-wrap-region is a byte-compiled function defined in longlines.el.gz.

Signature

(longlines-wrap-region BEG END)

Documentation

Wrap each successive line, starting with the line before BEG.

Stop when we reach lines after END that don't need wrapping, or the end of the buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/longlines.el.gz
;;; Wrapping the paragraphs

(defun longlines-wrap-region (beg end)
  "Wrap each successive line, starting with the line before BEG.
Stop when we reach lines after END that don't need wrapping, or the
end of the buffer."
  (let ((mod (buffer-modified-p)))
    (setq longlines-wrap-point (point))
    (goto-char beg)
    (forward-line -1)
    ;; Two successful longlines-wrap-line's in a row mean successive
    ;; lines don't need wrapping.
    (while (null (and (longlines-wrap-line)
		      (or (eobp)
			  (and (>= (point) end)
			       (longlines-wrap-line))))))
    (goto-char longlines-wrap-point)
    (set-buffer-modified-p mod)))