emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 1f9834c 1/5: Don't include the other loaddef files in the no-auto


From: Lars Ingebrigtsen
Subject: master 1f9834c 1/5: Don't include the other loaddef files in the no-autoloads section
Date: Tue, 30 Nov 2021 22:55:25 -0500 (EST)

branch: master
commit 1f9834cd764fb89d01afca096068034acbf2c79d
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Don't include the other loaddef files in the no-autoloads section
    
    * lisp/emacs-lisp/autoload.el (make-directory-autoloads): Don't
    include the other loaddef files in the no-autoloads section.
---
 lisp/emacs-lisp/autoload.el | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 23fb400..5857aa5 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -1196,9 +1196,17 @@ directory or directories specified."
          (goto-char (point-max))
          (search-backward "\f" nil t)
          (autoload-insert-section-header
-          (current-buffer) nil nil no-autoloads (if autoload-timestamps
-                                                    no-autoloads-time
-                                                  autoload--non-timestamp))
+          (current-buffer) nil nil
+           ;; Filter out the other loaddefs files, because it makes
+           ;; the list unstable (and leads to spurious changes in
+           ;; ldefs-boot.el) since the loaddef files can be created in
+           ;; any order.
+           (seq-filter (lambda (file)
+                         (not (string-match-p "[/-]loaddefs.el" file)))
+                       no-autoloads)
+           (if autoload-timestamps
+              no-autoloads-time
+            autoload--non-timestamp))
          (insert generate-autoload-section-trailer)))
 
       ;; Don't modify the file if its content has not been changed, so `make'



reply via email to

[Prev in Thread] Current Thread [Next in Thread]