Function: verb-body-lf-to-crlf

verb-body-lf-to-crlf is a natively compiled function defined in verb.el.

Signature

(verb-body-lf-to-crlf RS)

Documentation

Prepend a carriage-return before all line-feeds in RS's body.

Do this only for intervals of the string not having the verb-lf-keep property.

Source Code

;; Defined in /nix/store/8jnfn8w2mxcxbr2crbklcnija9m0zlkq-emacs-packages-deps/share/emacs/site-lisp/elpa/verb-20260818.1921/verb.el
(defun verb-body-lf-to-crlf (rs)
  "Prepend a carriage-return before all line-feeds in RS's body.
Do this only for intervals of the string not having the `verb-lf-keep'
property."
  (let* ((body (oref rs body))
         (intervals (verb-util--object-intervals body))
         parts)
    (dolist (elem intervals)
      (let* ((start (nth 0 elem))
             (end (nth 1 elem))
             (props (nth 2 elem))
             (s (substring body start end)))
        (push (if (plist-member props 'verb-lf-keep)
                  s
                (replace-regexp-in-string "\n" "\r\n" s))
              parts)))
    (oset rs body (string-join (nreverse parts)))
    rs))