(update-file-autoloads): Give clean errors

if autoloads file is empty or can't be written.
This commit is contained in:
Richard M. Stallman 1998-02-02 01:12:18 +00:00
parent 7f45de2dfc
commit 0b33ec466a

View file

@ -314,6 +314,10 @@ are used."
(expand-file-name generated-autoload-file
(expand-file-name "lisp"
source-directory)))))
(or (> (buffer-size) 0)
(error "Autoloads file %s does not exist" buffer-file-name))
(or (file-writable-p buffer-file-name)
(error "Autoloads file %s is not writable" buffer-file-name))
(save-excursion
(save-restriction
(widen)