(update-file-autoloads): Fix placement of new sections.

1 files changed, 7 insertions, 1 deletions

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 829b5ec55cf..b019294e365 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -330,8 +330,14 @@ autoloads go somewhere else.")
                      ;; insert one before the section here.
                      (goto-char (match-beginning 0))
                      (setq found 'new)))))
+          (or found
+              (progn
+                (setq found 'new)
+                ;; No later sections in the file.  Put before the last page.
+                (goto-char (point-max))
+                (search-backward "\f")))
           (or (eq found 'up-to-date)
-              (and (memq found '(nil new))
+              (and (eq found 'new)
                    ;; Check that FILE has any cookies before generating a
                    ;; new section for it.
                    (save-excursion