From 0f09bac62e88bb00387efc56aafed095672f773e Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Sat, 6 Jan 1996 19:57:24 +0000 Subject: [PATCH] (update-file-autoloads): Fix placement of new sections. --- lisp/emacs-lisp/autoload.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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 -- 2.39.2