From: Luc Teirlinck <teirllm@auburn.edu>
Date: Mon, 27 Feb 2006 01:58:04 +0000 (+0000)
Subject: (update-directory-autoloads): Use `get-load-suffixes' instead of
X-Git-Tag: emacs-pretest-22.0.90~3887
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=de10856c9dbce0840b044d023f7cc82bfcf638db;p=emacs.git

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

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