(update-file-autoloads): Fix placement of new sections.
authorRoland McGrath <roland@gnu.org>
Sat, 6 Jan 1996 19:57:24 +0000 (19:57 +0000)
committerRoland McGrath <roland@gnu.org>
Sat, 6 Jan 1996 19:57:24 +0000 (19:57 +0000)
lisp/emacs-lisp/autoload.el

index 829b5ec..b019294 100644 (file)
@@ -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