Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 90341:5754737d1e04
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-34
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 123-134)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 40-48)
- Merge from emacs--devo--0
- Update from CVS
- Munge arch explicit ids in etc/images to match Emacs
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 03 Mar 2006 07:48:46 +0000 |
| parents | c5406394f567 35ff03ec3238 |
| children | a8190f7e546e |
comparison
equal
deleted
inserted
replaced
| 90340:8f2b88ad38c4 | 90341:5754737d1e04 |
|---|---|
| 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) |