Mercurial > emacs
changeset 105515:4adf54462047
(batch-update-autoloads): Remove useless use of concat.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 07 Oct 2009 16:10:31 +0000 |
| parents | 4c53b5211a28 |
| children | a4a71cca109b |
| files | lisp/ChangeLog lisp/emacs-lisp/autoload.el |
| diffstat | 2 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Oct 07 15:04:43 2009 +0000 +++ b/lisp/ChangeLog Wed Oct 07 16:10:31 2009 +0000 @@ -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
--- a/lisp/emacs-lisp/autoload.el Wed Oct 07 15:04:43 2009 +0000 +++ b/lisp/emacs-lisp/autoload.el Wed Oct 07 16:10:31 2009 +0000 @@ -693,8 +693,9 @@ (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)