diff options
Diffstat (limited to 'admin')
| -rw-r--r-- | admin/ldefs-clean.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/admin/ldefs-clean.el b/admin/ldefs-clean.el index 91512b4bbb7..33bc9e529fa 100644 --- a/admin/ldefs-clean.el +++ b/admin/ldefs-clean.el | |||
| @@ -57,6 +57,9 @@ | |||
| 57 | 57 | ||
| 58 | 58 | ||
| 59 | (defun ldefs-clean () | 59 | (defun ldefs-clean () |
| 60 | (find-file "../lisp/ldefs-boot-auto.temp") | 60 | ;; Remove CR characters produced on MS-DOS/MS-Windows systems. |
| 61 | (let ((coding-system-for-read 'utf-8-dos)) | ||
| 62 | (find-file "../lisp/ldefs-boot-auto.temp")) | ||
| 61 | (ldefs-clean-up) | 63 | (ldefs-clean-up) |
| 62 | (write-file "ldefs-boot-auto.el")) | 64 | (let ((coding-system-for-write 'utf-8-unix)) |
| 65 | (write-file "ldefs-boot-auto.el"))) | ||