Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 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 | 067115a6e738 |
| children | e98e3d0ee915 5754737d1e04 |
comparison
equal
deleted
inserted
replaced
| 69166:919e61a6e661 | 69167:35ff03ec3238 |
|---|---|
| 510 | 510 |
| 511 The function does NOT recursively descend into subdirectories of the | 511 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 |
| 519 (mapcar (lambda (dir) | 519 (mapcar (lambda (dir) |
| 520 (directory-files (expand-file-name dir) | 520 (directory-files (expand-file-name dir) |