diff options
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/acdw.el | 8 |
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." |