emacs-diffs
[Top][All Lists]
Advanced

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

[Emacs-diffs] emacs-25 b2f32e4: Don't scan compiled module files for aut


From: Eli Zaretskii
Subject: [Emacs-diffs] emacs-25 b2f32e4: Don't scan compiled module files for autoloads
Date: Wed, 19 Oct 2016 07:44:11 +0000 (UTC)

branch: emacs-25
commit b2f32e4c9a06234019f07f448b53b76e62aebbba
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    Don't scan compiled module files for autoloads
    
    * lisp/emacs-lisp/autoload.el (update-directory-autoloads): Ignore
    compiled module files.  Make sure the extension really ends the
    file name.
---
 lisp/emacs-lisp/autoload.el |    8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index eb6b746..d4b9479 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -766,7 +766,13 @@ write its autoloads into the specified file instead."
   (interactive "DUpdate autoloads from directory: ")
   (let* ((files-re (let ((tmp nil))
                     (dolist (suf (get-load-suffixes))
-                      (unless (string-match "\\.elc" suf) (push suf tmp)))
+                       ;; We don't use module-file-suffix below because
+                       ;; we don't want to depend on whether Emacs was
+                       ;; built with or without modules support, nor
+                       ;; what is the suffix for the underlying OS.
+                      (unless (string-match "\\.\\(elc\\|\\so\\|dll\\)\\'"
+                                             suf)
+                         (push suf tmp)))
                      (concat "^[^=.].*" (regexp-opt tmp t) "\\'")))
         (files (apply 'nconc
                       (mapcar (lambda (dir)



reply via email to

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