diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2000-12-06 13:56:18 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2000-12-06 13:56:18 +0000 |
| commit | 9e3366e44bb25a631431112881f07d100a47d3e3 (patch) | |
| tree | 0349d39ff56e8d138db5b4b66c592b9ecfdd1afe /lisp/emacs-lisp/autoload.el | |
| parent | d94d636f10d0e3a9dc11403253c0b5654fe880a5 (diff) | |
| download | emacs-9e3366e44bb25a631431112881f07d100a47d3e3.tar.gz | |
(update-file-autoloads): Use raw-text to
read generated-autoload-file, and set buffer-file-coding-system to
raw-text-unix after reading the file.
Diffstat (limited to 'lisp/emacs-lisp/autoload.el')
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 3928ee1a747..7be1e71f466 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -376,12 +376,16 @@ are used." ;; the local variables section if it's there. (if existing-buffer (set-buffer existing-buffer)) - ;; We must read/write the file without any code conversion. - (let ((coding-system-for-read 'no-conversion)) + ;; We must read/write the file without any code conversion, + ;; but still decode EOLs. + (let ((coding-system-for-read 'raw-text)) (set-buffer (find-file-noselect (expand-file-name generated-autoload-file (expand-file-name "lisp" - source-directory))))) + source-directory)))) + ;; This is to make generated-autoload-file have Unix EOLs, so + ;; that it is portable to all platforms. + (setq buffer-file-coding-system 'raw-text-unix)) (or (> (buffer-size) 0) (error "Autoloads file %s does not exist" buffer-file-name)) (or (file-writable-p buffer-file-name) |