procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't scan compiled module files for autoloads

Browse source 
* lisp/emacs-lisp/autoload.el (update-directory-autoloads): Ignore
compiled module files.  Make sure the extension really ends the
file name.
This commit is contained in:
Eli Zaretskii 2016-10-19 10:42:45 +03:00
parent 9a758b4ccc
commit b2f32e4c9a
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/autoload.el
View file

@ -766,7 +766,13 @@ write its autoloads into the specified file instead."
(interactive "DUpdate autoloads from directory: ") (interactive "DUpdate autoloads from directory: ")
(let* ((files-re (let ((tmp nil)) (let* ((files-re (let ((tmp nil))
(dolist (suf (get-load-suffixes)) (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) "\\'"))) (concat "^[^=.].*" (regexp-opt tmp t) "\\'")))
(files (apply 'nconc (files (apply 'nconc
(mapcar (lambda (dir) (mapcar (lambda (dir)