diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-06-02 11:13:08 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-06-02 11:13:20 +0200 |
| commit | afc0bfd38076d8184c506d3f3c2e9f4313103c1b (patch) | |
| tree | 1228768c079849453a6ee4468267c451985c67ee /lisp/emacs-lisp/loaddefs-gen.el | |
| parent | 760fd43082975ba9400d846b87e2016f43e98c85 (diff) | |
| download | emacs-afc0bfd38076d8184c506d3f3c2e9f4313103c1b.tar.gz emacs-afc0bfd38076d8184c506d3f3c2e9f4313103c1b.tar.bz2 emacs-afc0bfd38076d8184c506d3f3c2e9f4313103c1b.zip | |
Speed up loaddefs-generate on slow disks
* lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Make file
update comparisons faster.
Diffstat (limited to 'lisp/emacs-lisp/loaddefs-gen.el')
| -rw-r--r-- | lisp/emacs-lisp/loaddefs-gen.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/loaddefs-gen.el b/lisp/emacs-lisp/loaddefs-gen.el index e5a5c21d234..46aec173e86 100644 --- a/lisp/emacs-lisp/loaddefs-gen.el +++ b/lisp/emacs-lisp/loaddefs-gen.el @@ -522,11 +522,15 @@ If INCLUDE-PACKAGE-VERSION, include package version data." (byte-compile-info (concat "Scraping files for loaddefs")) 0 (length files) nil 10)) + (output-time + (file-attribute-modification-time (file-attributes output-file))) (file-count 0)) (dolist (file files) (progress-reporter-update progress (setq file-count (1+ file-count))) (when (or (not updating) - (file-newer-than-file-p file output-file)) + (time-less-p output-time + (file-attribute-modification-time + (file-attributes file)))) (setq defs (nconc (loaddefs-generate--parse-file file output-file |