Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 21369:9ca6953d7ce8
(update-file-autoloads): Redo 1997-08-23 change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 05 Apr 1998 18:47:51 +0000 |
| parents | 7d8bbe35875e |
| children | 89c1bfb63571 |
comparison
equal
deleted
inserted
replaced
| 21368:37b978fc46cb | 21369:9ca6953d7ce8 |
|---|---|
| 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 generated-autoload-file))) | 313 (set-buffer (find-file-noselect |
| 314 (expand-file-name generated-autoload-file | |
| 315 (expand-file-name "lisp" | |
| 316 source-directory))))) | |
| 314 (or (> (buffer-size) 0) | 317 (or (> (buffer-size) 0) |
| 315 (error "Autoloads file %s does not exist" buffer-file-name)) | 318 (error "Autoloads file %s does not exist" buffer-file-name)) |
| 316 (or (file-writable-p buffer-file-name) | 319 (or (file-writable-p buffer-file-name) |
| 317 (error "Autoloads file %s is not writable" buffer-file-name)) | 320 (error "Autoloads file %s is not writable" buffer-file-name)) |
| 318 (save-excursion | 321 (save-excursion |