aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2022-06-01 12:55:06 +0200
committerLars Ingebrigtsen2022-06-01 12:55:16 +0200
commita6322e7f134fa3fc4627bb36dcbbe0b78bb00091 (patch)
tree07d0b4cdae70236f3dfa7f7f6b287fc07f797a8c
parente9bb2d7f4ec47bd3a19df8ceaa43d0ad36dbf9b3 (diff)
downloademacs-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.el9
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