diff options
| author | Lars Ingebrigtsen | 2022-06-01 12:55:06 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-06-01 12:55:16 +0200 |
| commit | a6322e7f134fa3fc4627bb36dcbbe0b78bb00091 (patch) | |
| tree | 07d0b4cdae70236f3dfa7f7f6b287fc07f797a8c | |
| parent | e9bb2d7f4ec47bd3a19df8ceaa43d0ad36dbf9b3 (diff) | |
| download | emacs-a6322e7f134fa3fc4627bb36dcbbe0b78bb00091.tar.gz emacs-a6322e7f134fa3fc4627bb36dcbbe0b78bb00091.zip | |
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.
| -rw-r--r-- | lisp/emacs-lisp/loaddefs-gen.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/loaddefs-gen.el b/lisp/emacs-lisp/loaddefs-gen.el index 8dcb55d82d4..63b3fd13d7f 100644 --- a/lisp/emacs-lisp/loaddefs-gen.el +++ b/lisp/emacs-lisp/loaddefs-gen.el | |||
| @@ -508,6 +508,13 @@ If INCLUDE-PACKAGE-VERSION, include package version data." | |||
| 508 | (directory-files (expand-file-name d) | 508 | (directory-files (expand-file-name d) |
| 509 | t files-re)) | 509 | t files-re)) |
| 510 | (if (consp dir) dir (list dir))))) | 510 | (if (consp dir) dir (list dir))))) |
| 511 | (updating (and (file-exists-p output-file) | ||
| 512 | ;; Always do a complete update if loaddefs-gen.el | ||
| 513 | ;; has been updated and we're doing a base build. | ||
| 514 | include-package-version | ||
| 515 | (file-newer-than-file-p | ||
| 516 | output-file | ||
| 517 | (expand-file-name "emacs-lisp/loaddefs-gen.el")))) | ||
| 511 | (defs nil)) | 518 | (defs nil)) |
| 512 | 519 | ||
| 513 | ;; Collect all the autoload data. | 520 | ;; Collect all the autoload data. |
| @@ -518,7 +525,7 @@ If INCLUDE-PACKAGE-VERSION, include package version data." | |||
| 518 | (file-count 0)) | 525 | (file-count 0)) |
| 519 | (dolist (file files) | 526 | (dolist (file files) |
| 520 | (progress-reporter-update progress (setq file-count (1+ file-count))) | 527 | (progress-reporter-update progress (setq file-count (1+ file-count))) |
| 521 | (when (or (not (file-exists-p output-file)) | 528 | (when (or (not updating) |
| 522 | (file-newer-than-file-p file output-file)) | 529 | (file-newer-than-file-p file output-file)) |
| 523 | (setq defs (nconc | 530 | (setq defs (nconc |
| 524 | (loaddefs-generate--parse-file | 531 | (loaddefs-generate--parse-file |