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 | 0f09bac62e88bb00387efc56aafed095672f773e (patch) | |
| tree | 121cce233a265ca8bedc9405477436aa30f1c1c2 /lisp | |
| parent | b59c72562e34e7e8dac076c22bfa83b9fc4ea379 (diff) | |
| download | emacs-0f09bac62e88bb00387efc56aafed095672f773e.tar.gz | |
(update-file-autoloads): Fix placement of new sections.
Diffstat (limited to '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 |