aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/emacs-lisp/autoload.el8
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index eb6b746bd80..d4b9479b752 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."
766 (interactive "DUpdate autoloads from directory: ") 766 (interactive "DUpdate autoloads from directory: ")
767 (let* ((files-re (let ((tmp nil)) 767 (let* ((files-re (let ((tmp nil))
768 (dolist (suf (get-load-suffixes)) 768 (dolist (suf (get-load-suffixes))
769 (unless (string-match "\\.elc" suf) (push suf tmp))) 769 ;; We don't use module-file-suffix below because
770 ;; we don't want to depend on whether Emacs was
771 ;; built with or without modules support, nor
772 ;; what is the suffix for the underlying OS.
773 (unless (string-match "\\.\\(elc\\|\\so\\|dll\\)\\'"
774 suf)
775 (push suf tmp)))
770 (concat "^[^=.].*" (regexp-opt tmp t) "\\'"))) 776 (concat "^[^=.].*" (regexp-opt tmp t) "\\'")))
771 (files (apply 'nconc 777 (files (apply 'nconc
772 (mapcar (lambda (dir) 778 (mapcar (lambda (dir)