procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(update-file-autoloads): Use raw-text to

Browse source 
read generated-autoload-file, and set buffer-file-coding-system to
raw-text-unix after reading the file.
This commit is contained in:
Eli Zaretskii 2000-12-06 13:56:18 +00:00
parent d94d636f10
commit 9e3366e44b
2 changed files with 17 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/ChangeLog
View file

@ -1,3 +1,13 @@
2000-12-06 Eli Zaretskii <eliz@is.elta.co.il>
* emacs-lisp/autoload.el (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.
* international/mule-conf.el (file-coding-system-alist): Use
raw-text for reading loaddefs.el and raw-text-unix for writing
it.
2000-12-06 Gerd Moellmann <gerd@gnu.org>
* cus-start.el: Add entry for even-window-heights.

10
lisp/emacs-lisp/autoload.el
View file

@ -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)