Mercurial > emacs
changeset 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 | 6397d7a97277 |
| children | 732ffd28a863 |
| files | lisp/emacs-lisp/autoload.el |
| diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
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)