# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1141005484 0
# Node ID 35ff03ec3238ec8be64bf66786518c5154103c14
# Parent  919e61a6e66171308545ed3c4feaaf4ce4b78154
(update-directory-autoloads): Use `get-load-suffixes' instead of
`load-suffixes'.

diff -r 919e61a6e661 -r 35ff03ec3238 lisp/emacs-lisp/autoload.el
--- 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