diff options
| author | Luc Teirlinck | 2006-02-27 01:58:04 +0000 |
|---|---|---|
| committer | Luc Teirlinck | 2006-02-27 01:58:04 +0000 |
| commit | de10856c9dbce0840b044d023f7cc82bfcf638db (patch) | |
| tree | 1a79e8b6257768720e2a07e7cb4eaea9c5d152e0 | |
| parent | dd4451e037087843da6be8105b318c96c3a98cfb (diff) | |
| download | emacs-de10856c9dbce0840b044d023f7cc82bfcf638db.tar.gz emacs-de10856c9dbce0840b044d023f7cc82bfcf638db.zip | |
(update-directory-autoloads): Use `get-load-suffixes' instead of
`load-suffixes'.
| -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 | |||
| 512 | directory or directories specified." | 512 | directory or directories specified." |
| 513 | (interactive "DUpdate autoloads from directory: ") | 513 | (interactive "DUpdate autoloads from directory: ") |
| 514 | (let* ((files-re (let ((tmp nil)) | 514 | (let* ((files-re (let ((tmp nil)) |
| 515 | (dolist (suf load-suffixes | 515 | (dolist (suf (get-load-suffixes) |
| 516 | (concat "^[^=.].*" (regexp-opt tmp t) "\\'")) | 516 | (concat "^[^=.].*" (regexp-opt tmp t) "\\'")) |
| 517 | (unless (string-match "\\.elc" suf) (push suf tmp))))) | 517 | (unless (string-match "\\.elc" suf) (push suf tmp))))) |
| 518 | (files (apply 'nconc | 518 | (files (apply 'nconc |