# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 886381938 0
# Node ID 297fefd12ecf40c96c5ecce91dcf9ab6d725eb0b
# Parent  6397d7a972776c571b2249eed30c7767f727d0ca
(update-file-autoloads): Give clean errors
if autoloads file is empty or can't be written.

diff -r 6397d7a97277 -r 297fefd12ecf lisp/emacs-lisp/autoload.el
--- 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)