diff options
| author | Eli Zaretskii | 2016-10-19 10:42:45 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2016-10-19 10:42:45 +0300 |
| commit | b2f32e4c9a06234019f07f448b53b76e62aebbba (patch) | |
| tree | 29031bcdd7026f291844ff360bdee9839f74f2b9 | |
| parent | 9a758b4ccc9543ce0e74b4d71e5cd3a1443583e1 (diff) | |
| download | emacs-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.el | 8 |
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) |