mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

(update-file-autoloads): Fix placement of new sections.

Browse Source
This commit is contained in:
Roland McGrath 1996-01-06 19:57:24 +00:00
parent b59c72562e
commit 0f09bac62e
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/emacs-lisp/autoload.el
View File

@ -330,8 +330,14 @@ autoloads go somewhere else.")
;; insert one before the section here. ;; insert one before the section here.
(goto-char (match-beginning 0)) (goto-char (match-beginning 0))
(setq found 'new))))) (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) (or (eq found 'up-to-date)
(and (memq found '(nil new)) (and (eq found 'new)
;; Check that FILE has any cookies before generating a ;; Check that FILE has any cookies before generating a
;; new section for it. ;; new section for it.
(save-excursion (save-excursion