diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2006-02-27 01:58:04 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2006-02-27 01:58:04 +0000 |
| commit | de10856c9dbce0840b044d023f7cc82bfcf638db (patch) | |
| tree | 1a79e8b6257768720e2a07e7cb4eaea9c5d152e0 /lisp/emacs-lisp | |
| parent | dd4451e037087843da6be8105b318c96c3a98cfb (diff) | |
| download | emacs-de10856c9dbce0840b044d023f7cc82bfcf638db.tar.gz emacs-de10856c9dbce0840b044d023f7cc82bfcf638db.tar.bz2 emacs-de10856c9dbce0840b044d023f7cc82bfcf638db.zip | |
(update-directory-autoloads): Use `get-load-suffixes' instead of
`load-suffixes'.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index d6477b854a1..ee2d74c5646 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -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 |