diff options
| -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.") | |||
| 330 | ;; insert one before the section here. | 330 | ;; insert one before the section here. |
| 331 | (goto-char (match-beginning 0)) | 331 | (goto-char (match-beginning 0)) |
| 332 | (setq found 'new))))) | 332 | (setq found 'new))))) |
| 333 | (or found | ||
| 334 | (progn | ||
| 335 | (setq found 'new) | ||
| 336 | ;; No later sections in the file. Put before the last page. | ||
| 337 | (goto-char (point-max)) | ||
| 338 | (search-backward "\f"))) | ||
| 333 | (or (eq found 'up-to-date) | 339 | (or (eq found 'up-to-date) |
| 334 | (and (memq found '(nil new)) | 340 | (and (eq found 'new) |
| 335 | ;; Check that FILE has any cookies before generating a | 341 | ;; Check that FILE has any cookies before generating a |
| 336 | ;; new section for it. | 342 | ;; new section for it. |
| 337 | (save-excursion | 343 | (save-excursion |