Nu har jag det.
Istället för att göra ett hack i shell, gjorde jag följande för att konvertera radslut till CRLF i Emacs. Jag vet att det finns unix2dos och liknande, men jag ville ha lite mer kontroll på hantering av binära filer m m. (defun map-files (fn dir) "Apply function FN to all files in DIR, including subdirectories. The function is called with a file loaded into a buffer, which is saved when the function returns. Doesn't descend into the .hg subdirectory." (dolist (i (directory-files dir t)) (unless (member (file-name-nondirectory i) '("." ".." ".hg")) (if (file-directory-p i) (map-files fn i) (with-current-buffer (find-file-noselect i) (funcall fn) (when (buffer-modified-p) (save-buffer)) (kill-buffer)))))) (defun set-buffer-crlf () (when (eql (coding-system-eol-type buffer-file-coding-system) 0) (let ((coding (coding-system-change-eol-conversion buffer-file-coding-system 1))) (when coding (set-buffer-file-coding-system coding))))) (defun convert-to-crlf () "Convert all files to CRLF line endings." (map-files #'set-buffer-crlf "/foo/bar/baz")) _______________________________________________ Lisp mailing list Lisp@lisp.se http://mailman.nocrew.org/cgi-bin/mailman/listinfo/lisp