unix2dos in Emacs

参考了这个blog里的实现方式

(defun unix-dos () (interactive)
  (let ((current-buffer-file-name buffer-file-name))
     (goto-char (point-min))
     (while (search-forward "\n" nil t) (replace-match "\r\n"))
     (save-buffer)
     (kill-buffer nil)
     (find-file current-buffer-file-name)))