Commit f2bd2c1e authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

Fix minor problems with loaddefs autogeneration

* admin/ldefs-clean.el (ldefs-clean): Bind coding-system-for-read
and coding-system-for-write, to produce a UTF-8 file with Unix
EOLs on MS-Windows.

* lisp/ldefs-boot-manual.el (image-type): Add autoload cookie.
parent 43e792cd
...@@ -57,6 +57,9 @@ ...@@ -57,6 +57,9 @@
(defun ldefs-clean () (defun ldefs-clean ()
(find-file "../lisp/ldefs-boot-auto.temp") ;; Remove CR characters produced on MS-DOS/MS-Windows systems.
(let ((coding-system-for-read 'utf-8-dos))
(find-file "../lisp/ldefs-boot-auto.temp"))
(ldefs-clean-up) (ldefs-clean-up)
(write-file "ldefs-boot-auto.el")) (let ((coding-system-for-write 'utf-8-unix))
(write-file "ldefs-boot-auto.el")))
...@@ -16,6 +16,9 @@ ...@@ -16,6 +16,9 @@
(autoload 'dos-convert-standard-filename "dos-fns.el" nil nil nil) (autoload 'dos-convert-standard-filename "dos-fns.el" nil nil nil)
(autoload 'w32-convert-standard-filename "w32-fns.el" nil nil nil) (autoload 'w32-convert-standard-filename "w32-fns.el" nil nil nil)
;; This is needed on MS-Windows only, and won't be in
;; ldefs-boot-auto.el on other platforms.
(autoload 'image-type "image" nil nil nil)
(load "ldefs-boot-auto.el") (load "ldefs-boot-auto.el")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment