Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 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 | ec8fe53ace41 |
| children | 7d8bbe35875e |
comparison
equal
deleted
inserted
replaced
| 20816:6397d7a97277 | 20817:297fefd12ecf |
|---|---|
| 312 (let ((coding-system-for-read 'no-conversion)) | 312 (let ((coding-system-for-read 'no-conversion)) |
| 313 (set-buffer (find-file-noselect | 313 (set-buffer (find-file-noselect |
| 314 (expand-file-name generated-autoload-file | 314 (expand-file-name generated-autoload-file |
| 315 (expand-file-name "lisp" | 315 (expand-file-name "lisp" |
| 316 source-directory))))) | 316 source-directory))))) |
| 317 (or (> (buffer-size) 0) | |
| 318 (error "Autoloads file %s does not exist" buffer-file-name)) | |
| 319 (or (file-writable-p buffer-file-name) | |
| 320 (error "Autoloads file %s is not writable" buffer-file-name)) | |
| 317 (save-excursion | 321 (save-excursion |
| 318 (save-restriction | 322 (save-restriction |
| 319 (widen) | 323 (widen) |
| 320 (goto-char (point-min)) | 324 (goto-char (point-min)) |
| 321 ;; Look for the section for LOAD-NAME. | 325 ;; Look for the section for LOAD-NAME. |