Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 4152:1e1a395e4718
(update-file-autoloads): Go to the beginning of FILE before searching it
for generate-autoload-cookie.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Sun, 18 Jul 1993 20:01:03 +0000 |
| parents | 410395998370 |
| children | ccb1fb62bba6 |
comparison
equal
deleted
inserted
replaced
| 4151:e6d5beaca907 | 4152:1e1a395e4718 |
|---|---|
| 261 ;; There was an existing section and we have updated it. | 261 ;; There was an existing section and we have updated it. |
| 262 () | 262 () |
| 263 (if (save-excursion | 263 (if (save-excursion |
| 264 (set-buffer (find-file-noselect file)) | 264 (set-buffer (find-file-noselect file)) |
| 265 (save-excursion | 265 (save-excursion |
| 266 (search-forward generate-autoload-cookie nil t))) | 266 (save-restriction |
| 267 (widen) | |
| 268 (goto-char (point-min)) | |
| 269 (search-forward generate-autoload-cookie nil t)))) | |
| 267 ;; There are autoload cookies in FILE. | 270 ;; There are autoload cookies in FILE. |
| 268 ;; Have the user tell us where to put the new section. | 271 ;; Have the user tell us where to put the new section. |
| 269 (progn | 272 (progn |
| 270 (save-window-excursion | 273 (save-window-excursion |
| 271 (switch-to-buffer (current-buffer)) | 274 (switch-to-buffer (current-buffer)) |