Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 7354:0611d70ad480
(update-directory-autoloads): Ignore files
whose names start with =. Bind enable-local-eval to nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 06 May 1994 08:11:04 +0000 |
| parents | 54968237a1ac |
| children | d9b4098cebb7 |
comparison
equal
deleted
inserted
replaced
| 7353:334cececa42d | 7354:0611d70ad480 |
|---|---|
| 352 | 352 |
| 353 ;;;###autoload | 353 ;;;###autoload |
| 354 (defun update-directory-autoloads (dir) | 354 (defun update-directory-autoloads (dir) |
| 355 "Run \\[update-file-autoloads] on each .el file in DIR." | 355 "Run \\[update-file-autoloads] on each .el file in DIR." |
| 356 (interactive "DUpdate autoloads for directory: ") | 356 (interactive "DUpdate autoloads for directory: ") |
| 357 (mapcar 'update-file-autoloads | 357 (let ((enable-local-eval nil)) |
| 358 (directory-files dir t "\\.el$")) | 358 (mapcar 'update-file-autoloads |
| 359 (directory-files dir t "^[^=].*\\.el$"))) | |
| 359 (if (interactive-p) | 360 (if (interactive-p) |
| 360 (save-excursion | 361 (save-excursion |
| 361 (set-buffer (find-file-noselect generated-autoload-file)) | 362 (set-buffer (find-file-noselect generated-autoload-file)) |
| 362 (save-buffer)))) | 363 (save-buffer)))) |
| 363 | 364 |