1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/acdw.el b/lisp/acdw.el
index ab02a9e..f297691 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el

@@ -30,6 +30,14 @@
 ;;; Utility functions
+(defun dos2unix (buffer)
+  "Replace \r\n with \n in BUFFER."
+  (interactive "*b")
+  (save-excursion
+    (goto-char (point-min))
+    (while (search-forward (string ?\C-m ?\C-j) nil t)
+      (replace-match (string ?\C-j) nil t))))
 (defun expand-file-name-exists-p (&rest expand-file-name-args)
  "Call `expand-file-name' on EXPAND-FILE-NAME-ARGS, returning
  its name if it exists, or NIL otherwise."

diff --git a/lisp/acdw.el b/lisp/acdw.el index ab02a9e..f297691 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el
@@ -30,6 +30,14 @@
30		30
31	;;; Utility functions	31	;;; Utility functions
32		32
		33	(defun dos2unix (buffer)
		34	"Replace \r\n with \n in BUFFER."
		35	(interactive "*b")
		36	(save-excursion
		37	(goto-char (point-min))
		38	(while (search-forward (string ?\C-m ?\C-j) nil t)
		39	(replace-match (string ?\C-j) nil t))))
		40
33	(defun expand-file-name-exists-p (&rest expand-file-name-args)	41	(defun expand-file-name-exists-p (&rest expand-file-name-args)
34	"Call `expand-file-name' on EXPAND-FILE-NAME-ARGS, returning	42	"Call `expand-file-name' on EXPAND-FILE-NAME-ARGS, returning
35	its name if it exists, or NIL otherwise."	43	its name if it exists, or NIL otherwise."