[Emacs-diffs] master 96bd07a: Include versioned preloaded libraries in `package--builtin-versions'

[Chris Feng]

branch: master
commit 96bd07a3226700156fa7d5ec20e9bd6550c95057
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>

    Include versioned preloaded libraries in `package--builtin-versions'
    
    * lisp/emacs-lisp/autoload.el (update-directory-autoloads): Do not
    exclude preloaded libraries or remove entries generated for them.
    (autoload-generate-file-autoloads): Do not generate autoload
    statements for preloaded libraries.
---
 lisp/emacs-lisp/autoload.el |   39 +++++++++++++++++++--------------------
 1 file changed, 19 insertions(+), 20 deletions(-)

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 6473e31..fbb08fc 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -736,20 +736,22 @@ FILE's modification time."
                                                package--builtin-versions))
                                  (princ "\n")))))
 
-                      (goto-char (point-min))
-                      (while (not (eobp))
-                        (skip-chars-forward " \t\n\f")
-                        (cond
-                         ((looking-at (regexp-quote generate-autoload-cookie))
-                          ;; If not done yet, figure out where to insert this 
text.
-                          (unless output-start
-                            (setq output-start (autoload--setup-output
-                                                otherbuf outbuf absfile 
load-name)))
-                          (autoload--print-cookie-text output-start load-name 
file))
-                         ((looking-at ";")
-                          ;; Don't read the comment.
-                          (forward-line 1))
-                         (t
+                      ;; Do not insert autoload entries for excluded files.
+                      (unless (member absfile autoload-excludes)
+                        (goto-char (point-min))
+                        (while (not (eobp))
+                          (skip-chars-forward " \t\n\f")
+                          (cond
+                           ((looking-at (regexp-quote 
generate-autoload-cookie))
+                            ;; If not done yet, figure out where to insert 
this text.
+                            (unless output-start
+                              (setq output-start (autoload--setup-output
+                                                  otherbuf outbuf absfile 
load-name)))
+                            (autoload--print-cookie-text output-start 
load-name file))
+                           ((looking-at ";")
+                            ;; Don't read the comment.
+                            (forward-line 1))
+                           (t
                   ;; Avoid (defvar <foo>) by requiring a trailing space.
                   ;; Also, ignore this prefix business
                   ;; for ;;;###tramp-autoload and friends.
@@ -767,8 +769,8 @@ FILE's modification time."
                                      "define-erc-response-handler"
                                      "defun-rcirc-command"))))
                     (push (match-string 2) defs))
-                          (forward-sexp 1)
-                          (forward-line 1))))))
+                            (forward-sexp 1)
+                            (forward-line 1)))))))
 
           (when (and autoload-compute-prefixes defs)
             ;; This output needs to always go in the main loaddefs.el,
@@ -1058,9 +1060,7 @@ write its autoloads into the specified file instead."
                  ((not (stringp file)))
                  ((or (not (file-exists-p file))
                        ;; Remove duplicates as well, just in case.
-                       (member file done)
-                       ;; If the file is actually excluded.
-                       (member (expand-file-name file) autoload-excludes))
+                       (member file done))
                    ;; Remove the obsolete section.
                    (setq changed t)
                   (autoload-remove-section (match-beginning 0)))
@@ -1086,7 +1086,6 @@ write its autoloads into the specified file instead."
       (let ((no-autoloads-time (or last-time '(0 0 0 0))) file-time)
        (dolist (file files)
          (cond
-          ((member (expand-file-name file) autoload-excludes) nil)
           ;; Passing nil as second argument forces
           ;; autoload-generate-file-autoloads to look for the right
           ;; spot where to insert each autoloads section.