diff options
| author | Roland McGrath <roland@gnu.org> | 1996-01-06 19:57:24 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1996-01-06 19:57:24 +0000 |
| commit | 73898fc327603b1ec0133b5ac3a253bf477fb3f1 (patch) | |
| tree | 9fb5b18275057937f394a5587ce954028902762a /lisp/emacs-lisp | |
| parent | 1c200cb421f9c89fcb40453dfd1a4de0858eaaeb (diff) | |
| download | emacs-73898fc327603b1ec0133b5ac3a253bf477fb3f1.tar.gz | |
(update-file-autoloads): Fix placement of new sections.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 8 |
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 |