diff options
| -rw-r--r-- | admin/ldefs-clean.el | 7 | ||||
| -rw-r--r-- | lisp/ldefs-boot-manual.el | 3 |
2 files changed, 8 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"))) | ||
diff --git a/lisp/ldefs-boot-manual.el b/lisp/ldefs-boot-manual.el index 2f6e3fd2094..06b9738d5ee 100644 --- a/lisp/ldefs-boot-manual.el +++ b/lisp/ldefs-boot-manual.el | |||
| @@ -16,6 +16,9 @@ | |||
| 16 | (autoload 'dos-convert-standard-filename "dos-fns.el" nil nil nil) | 16 | (autoload 'dos-convert-standard-filename "dos-fns.el" nil nil nil) |
| 17 | (autoload 'w32-convert-standard-filename "w32-fns.el" nil nil nil) | 17 | (autoload 'w32-convert-standard-filename "w32-fns.el" nil nil nil) |
| 18 | 18 | ||
| 19 | ;; This is needed on MS-Windows only, and won't be in | ||
| 20 | ;; ldefs-boot-auto.el on other platforms. | ||
| 21 | (autoload 'image-type "image" nil nil nil) | ||
| 19 | 22 | ||
| 20 | (load "ldefs-boot-auto.el") | 23 | (load "ldefs-boot-auto.el") |
| 21 | 24 | ||