(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]
www.com | www.net | www.org
No recent polls found