Mercurial > emacs
diff lisp/emacs-lisp/autoload.el @ 69167:35ff03ec3238
(update-directory-autoloads): Use `get-load-suffixes' instead of
`load-suffixes'.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Mon, 27 Feb 2006 01:58:04 +0000 |
| parents | 067115a6e738 |
| children | e98e3d0ee915 5754737d1e04 |
line wrap: on
line diff
--- a/lisp/emacs-lisp/autoload.el Mon Feb 27 01:56:19 2006 +0000 +++ b/lisp/emacs-lisp/autoload.el Mon Feb 27 01:58:04 2006 +0000 @@ -512,7 +512,7 @@ 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