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 /lisp | |
| parent | eccf4d74145a00db8fc43b2af628f1660a52bb30 (diff) | |
| download | emacs-e8d732d9d784ec3e087a2276fa5ace4c51556cfc.tar.gz | |
(update-file-autoloads): Give clean errors
if autoloads file is empty or can't be written.
Diffstat (limited to 'lisp')
| -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) |