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)