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

(update-directory-autoloads): Use `get-load-suffixes' instead of

Browse source 
`load-suffixes'.
This commit is contained in:
Luc Teirlinck 2006-02-27 01:58:04 +00:00
parent dd4451e037
commit de10856c9d
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -512,7 +512,7 @@ The function does NOT recursively descend into subdirectories of the
directory or directories specified."
(interactive "DUpdate autoloads from directory: ")
(let* ((files-re (let ((tmp nil))
(dolist (suf load-suffixes
(dolist (suf (get-load-suffixes)
(concat "^[^=.].*" (regexp-opt tmp t) "\\'"))
(unless (string-match "\\.elc" suf) (push suf tmp)))))
(files (apply 'nconc