(defun fix-lf () (interactive) (save-excursion (goto-char (point-min)) (while (re-search-forward "\x0d\x0a" nil t) (replace-match "\x0a" t t)) (goto-char (point-min)) (while (re-search-forward "\x0d" nil t) (replace-match "\x0a" t t))))
[download]