aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2016-10-19 10:42:45 +0300
committerEli Zaretskii2016-10-19 10:42:45 +0300
commitb2f32e4c9a06234019f07f448b53b76e62aebbba (patch)
tree29031bcdd7026f291844ff360bdee9839f74f2b9
parent9a758b4ccc9543ce0e74b4d71e5cd3a1443583e1 (diff)
downloademacs-b2f32e4c9a06234019f07f448b53b76e62aebbba.tar.gz
emacs-b2f32e4c9a06234019f07f448b53b76e62aebbba.zip
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.
-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)