procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(batch-update-autoloads): Remove useless use of concat.

Browse source
This commit is contained in:
Glenn Morris 2009-10-07 16:10:31 +00:00
parent 09094f2893
commit ab2baced6e
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -693,8 +693,9 @@ Calls `update-directory-autoloads' on the command line arguments."
(insert-file-contents mfile)
(when (re-search-forward "^lisp= " nil t)
(setq lim (line-end-position))
(while (re-search-forward "\\${lispsource}\\([^ ]*\\)\\.elc?" lim t)
(push (concat (expand-file-name (match-string 1) ldir) ".el")
(while (re-search-forward "\\${lispsource}\\([^ ]+\\.el\\)c?\\>"
lim t)
(push (expand-file-name (match-string 1) ldir)
autoload-excludes)))))))
(let ((args command-line-args-left))
(setq command-line-args-left nil)