From de10856c9dbce0840b044d023f7cc82bfcf638db Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Mon, 27 Feb 2006 01:58:04 +0000 Subject: [PATCH] (update-directory-autoloads): Use `get-load-suffixes' instead of `load-suffixes'. --- lisp/emacs-lisp/autoload.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.39.5