diff options
author | Richard M. Stallman <rms@gnu.org> | 1998-02-02 01:12:18 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1998-02-02 01:12:18 +0000 |
commit | e8d732d9d784ec3e087a2276fa5ace4c51556cfc (patch) | |
tree | f7cc537a93dd1239708d7d3f7006a672c400bdf8 | |
parent | eccf4d74145a00db8fc43b2af628f1660a52bb30 (diff) | |
download | emacs-e8d732d9d784ec3e087a2276fa5ace4c51556cfc.tar.gz |
(update-file-autoloads): Give clean errors
if autoloads file is empty or can't be written.
-rw-r--r-- | lisp/emacs-lisp/autoload.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 9ae7188120a..1a85cd7c688 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -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) |