Tweak how loaddefs-gen decides whether to do a full update
* lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Do a complete build more often to avoid problems with going from old loaddefs.el files to new ones.
This commit is contained in:
parent
e9bb2d7f4e
commit
a6322e7f13
1 changed files with 8 additions and 1 deletions
|
@ -508,6 +508,13 @@ If INCLUDE-PACKAGE-VERSION, include package version data."
|
|||
(directory-files (expand-file-name d)
|
||||
t files-re))
|
||||
(if (consp dir) dir (list dir)))))
|
||||
(updating (and (file-exists-p output-file)
|
||||
;; Always do a complete update if loaddefs-gen.el
|
||||
;; has been updated and we're doing a base build.
|
||||
include-package-version
|
||||
(file-newer-than-file-p
|
||||
output-file
|
||||
(expand-file-name "emacs-lisp/loaddefs-gen.el"))))
|
||||
(defs nil))
|
||||
|
||||
;; Collect all the autoload data.
|
||||
|
@ -518,7 +525,7 @@ If INCLUDE-PACKAGE-VERSION, include package version data."
|
|||
(file-count 0))
|
||||
(dolist (file files)
|
||||
(progress-reporter-update progress (setq file-count (1+ file-count)))
|
||||
(when (or (not (file-exists-p output-file))
|
||||
(when (or (not updating)
|
||||
(file-newer-than-file-p file output-file))
|
||||
(setq defs (nconc
|
||||
(loaddefs-generate--parse-file
|
||||
|
|
Loading…
Add table
Reference in a new issue