changeset 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 919e61a6e661
children 6e701396a0ec
files lisp/emacs-lisp/autoload.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
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