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 |