Mercurial > emacs
diff lisp/emacs-lisp/autoload.el @ 20817:297fefd12ecf
(update-file-autoloads): Give clean errors
if autoloads file is empty or can't be written.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 02 Feb 1998 01:12:18 +0000 |
parents | ec8fe53ace41 |
children | 7d8bbe35875e |
line wrap: on
line diff
--- a/lisp/emacs-lisp/autoload.el Mon Feb 02 01:09:35 1998 +0000 +++ b/lisp/emacs-lisp/autoload.el Mon Feb 02 01:12:18 1998 +0000 @@ -314,6 +314,10 @@ (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)