(batch-update-autoloads): Remove useless use of concat.
This commit is contained in:
parent
09094f2893
commit
ab2baced6e
2 changed files with 8 additions and 2 deletions
|
@ -1,3 +1,8 @@
|
|||
2009-10-07 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* emacs-lisp/autoload.el (batch-update-autoloads): Remove useless use of
|
||||
concat.
|
||||
|
||||
2009-10-07 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* files-x.el (read-file-local-variable): Include some
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue