Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 17001:ce8565274e49
(update-file-autoloads): Read loaddefs.el without
any code conversion.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 20 Feb 1997 05:39:18 +0000 |
| parents | 22c9b578e220 |
| children | b2c8fb8139c8 |
comparison
equal
deleted
inserted
replaced
| 17000:7fc1577aa8e7 | 17001:ce8565274e49 |
|---|---|
| 290 (save-excursion | 290 (save-excursion |
| 291 ;; We want to get a value for generated-autoload-file from | 291 ;; We want to get a value for generated-autoload-file from |
| 292 ;; the local variables section if it's there. | 292 ;; the local variables section if it's there. |
| 293 (if existing-buffer | 293 (if existing-buffer |
| 294 (set-buffer existing-buffer)) | 294 (set-buffer existing-buffer)) |
| 295 (set-buffer (find-file-noselect generated-autoload-file)) | 295 ;; We must read/write the file without any code conversion. |
| 296 (let ((coding-system-for-read 'no-conversion)) | |
| 297 (set-buffer (find-file-noselect generated-autoload-file))) | |
| 296 (save-excursion | 298 (save-excursion |
| 297 (save-restriction | 299 (save-restriction |
| 298 (widen) | 300 (widen) |
| 299 (goto-char (point-min)) | 301 (goto-char (point-min)) |
| 300 ;; Look for the section for LOAD-NAME. | 302 ;; Look for the section for LOAD-NAME. |