Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 21119:7d8bbe35875e
(update-file-autoloads):
Undo 1997-08-23 change.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 09 Mar 1998 01:01:36 +0000 |
parents | 297fefd12ecf |
children | 9ca6953d7ce8 |
comparison
equal
deleted
inserted
replaced
21118:2aa0dc203036 | 21119:7d8bbe35875e |
---|---|
308 ;; the local variables section if it's there. | 308 ;; the local variables section if it's there. |
309 (if existing-buffer | 309 (if existing-buffer |
310 (set-buffer existing-buffer)) | 310 (set-buffer existing-buffer)) |
311 ;; We must read/write the file without any code conversion. | 311 ;; We must read/write the file without any code conversion. |
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 generated-autoload-file))) |
314 (expand-file-name generated-autoload-file | |
315 (expand-file-name "lisp" | |
316 source-directory))))) | |
317 (or (> (buffer-size) 0) | 314 (or (> (buffer-size) 0) |
318 (error "Autoloads file %s does not exist" buffer-file-name)) | 315 (error "Autoloads file %s does not exist" buffer-file-name)) |
319 (or (file-writable-p buffer-file-name) | 316 (or (file-writable-p buffer-file-name) |
320 (error "Autoloads file %s is not writable" buffer-file-name)) | 317 (error "Autoloads file %s is not writable" buffer-file-name)) |
321 (save-excursion | 318 (save-excursion |