mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

(batch-update-autoloads): Rather than having the list of preloaded

Browse source 
files passed on the command-line, get it from src/Makefile.
This commit is contained in:
Glenn Morris 2009-10-07 07:18:53 +00:00
parent 8b31f1a612
commit 5152da64b8
1 changed files with 13 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

25
lisp/emacs-lisp/autoload.el
View file

@ -683,18 +683,19 @@ directory or directories specified."
(defun batch-update-autoloads () (defun batch-update-autoloads ()
"Update loaddefs.el autoloads in batch mode. "Update loaddefs.el autoloads in batch mode.
Calls `update-directory-autoloads' on the command line arguments." Calls `update-directory-autoloads' on the command line arguments."
;; For use during the Emacs build process only. We do the file-name ;; For use during the Emacs build process only.
;; expansion here rather than in lisp/Makefile in order to keep the (unless autoload-excludes
;; shell command line short. (Long lines are an issue on some systems.) (let* ((ldir (file-name-directory generated-autoload-file))
(if (stringp autoload-excludes) (mfile (expand-file-name "../src/Makefile" ldir))
(setq autoload-excludes lim)
(mapcar (when (file-readable-p mfile)
(lambda (file) (with-temp-buffer
(concat (insert-file-contents mfile)
(expand-file-name (file-name-sans-extension file) (when (re-search-forward "^lisp= ")
(file-name-directory generated-autoload-file)) (setq lim (line-end-position))
".el")) (while (re-search-forward "\\${lispsource}\\([^ ]*\\)\\.elc?" lim t)
(split-string autoload-excludes)))) (push (concat (expand-file-name (match-string 1) ldir) ".el")
autoload-excludes)))))))
(let ((args command-line-args-left)) (let ((args command-line-args-left))
(setq command-line-args-left nil) (setq command-line-args-left nil)
(apply 'update-directory-autoloads args))) (apply 'update-directory-autoloads args)))