(update-file-autoloads): Go to the beginning of FILE before searching it

for generate-autoload-cookie.
This commit is contained in:
Roland McGrath 1993-07-18 20:01:03 +00:00
parent f58c6f7023
commit 811eaa609c

View file

@ -263,7 +263,10 @@ autoloads go somewhere else.")
(if (save-excursion
(set-buffer (find-file-noselect file))
(save-excursion
(search-forward generate-autoload-cookie nil t)))
(save-restriction
(widen)
(goto-char (point-min))
(search-forward generate-autoload-cookie nil t))))
;; There are autoload cookies in FILE.
;; Have the user tell us where to put the new section.
(progn