From 0b33ec466a843e68cbee19dd56a568bcdaf8637c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 2 Feb 1998 01:12:18 +0000 Subject: (update-file-autoloads): Give clean errors if autoloads file is empty or can't be written. --- lisp/emacs-lisp/autoload.el | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'lisp/emacs-lisp') 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) -- cgit v1.2.3