summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--lisp/acdw.el8
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 @@
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."